Require password input from all UNLESS the user is a specific name

**galvinpaddy** · 07-01-2012, 10:56 AM

Afternoon Happy Campers,

I have the following code on a workbook.

Please Login or Register  to view this content.

Which runs very nicely indeed. any user who opens the sheet must supply the correct password, or the sheet does not unlock.
But i would like to know if i can get VBA to look at the windows login name of the person trying to unlock, and if it matches my own (Bloggs, Joe) then when i click the button for unlocking the sheet, VBA will bypass the need to enter the password? but for any other username it will require them to enter a password?
Not entirely sure if its too much of a complicate thing (doubtful) or not, but im guessing im going to get the best answer from this forum!!
(The sheet is my own creation and i also have another button with a predefined password)
At present the sheet works, very well (with lots of input from here lol) i would just like to put the finishing touches onto it, as a kind of bragging right lol

kind regards, galvinpaddy.

**galvinpaddy** · 07-01-2012, 10:58 AM

and i have just noticed how much i appear to like the 'LOL' abbreviation.

lol

**WasWodge** · 07-01-2012, 12:53 PM

Try the code below on a copy of your workbook as untested

Please Login or Register  to view this content.

**galvinpaddy** · 07-02-2012, 03:35 AM

Hi WasWodge,
Thanks for the effort, however it does not appear to work.

**WasWodge** · 07-02-2012, 05:20 AM

That is a bit strange as I tried it later in the day on my laptop and it worked for me. Did you type in your username exactly as it is written? I.e. No different spaces. The username is the name you sign on to your pc with and it must be exactly the same as the password. On my phone until this evening and so I won't be able to test anything until then.

**galvinpaddy** · 07-02-2012, 05:27 AM

Ah, ok.
In excel VBA i have a function - Application.UserName
This shows my name as Surname, Firstname - however - logging into windows itself my login is Firstname.Surname
thanks for highlighting that, i will give it a try shortly.
Regards.

**WasWodge** · 07-02-2012, 06:49 AM

Please Login or Register  to view this content.

**galvinpaddy** · 07-02-2012, 07:47 AM

hi, thanks that has shown me my username as it should be. but still doesnt unlock all sheets.
i have the following codes.

Please Login or Register  to view this content.

and

Please Login or Register  to view this content.

Should the codes unlock the sheet for me, without having to click the command button?
EDIT * the code is also asking me to enter the password for all of the sheets one by one.

**WasWodge** · 07-02-2012, 08:12 AM

It sounds like you need the code for your username in a workbook open event . I will have a look this evening when I get in. As for the sheets needing to have the password entered for each sheet I didn't alter your original code but again I will have a look when I get in

**WasWodge** · 07-02-2012, 09:55 AM

Hi Richard, Try placing the code below in the ThisWorkbook module. Leave your original code in the standard module.

To place code in the ThisWorkbook module

Copy the Excel VBA code that you want to use
Select the workbook in which you want to store the code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
In the Project Explorer, find your workbook, and open the list of Microsoft Excel Objects
Right-click on the ThisWorkbook object, and choose View Code
Where the cursor is flashing, choose Edit | Paste

Please Login or Register  to view this content.

**galvinpaddy** · 07-03-2012, 01:19 AM

hahahaha, fantastic, thanks very much indeed

didnt occur to me that it would need to be in 'ThisWorkbook'
Sincere thanks!!!

regards, rich

**galvinpaddy** · 07-03-2012, 01:23 AM

sorry, few final questions to this if i may, how do i add more than one username to this code, and is it possible to have a text box/user form/ etc pop up, so when it sees the name that allows the sheets to be unlocked, pops up and asks - "Unlock All?" clicking yes unlocks, clicking no leaves locked?

kind regards.

**WasWodge** · 07-03-2012, 04:53 AM

I will see if I can get a chance to have a look this evening if I get a chance when I am on my pc rather than my phone

**WasWodge** · 07-03-2012, 10:18 PM

Hi Rich, try putting this in the ThisWorkbook module

Please Login or Register  to view this content.

And put the code below in a standard module

Please Login or Register  to view this content.

Please note: You should really take the solved off the post if you are adding another question.

**galvinpaddy** · 07-04-2012, 01:10 AM

Fantastic code, thank-you very much indeed, greatly appreciated.
Rep added.
regards, galvinpaddy

Require password input from all UNLESS the user is a specific name

LinkBack

Thread Tools

Rate This Thread

Display

Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Re: Require password input from all UNLESS the user is a specific name

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions