Multiple passwords for single Macro

Hey everybody!

Does anyone know how to protect a single macro with multiple passwords?

For instance, I've already used the following code to protect a macro:

If UCase(InputBox("Enter Password")) <> "Password" Then Exit Sub

I would, however, like to have a "master key" password that works in addition to the password identified above. So basically one unique password for one particular user, and then a master password for an administrator that works for this macro and every other macro in the workbook.

I currently have about 25 macros (one for each tab) set up and each has a unique password, but I'd like to add a "master" password to each one of these macros.

Does that make sense?

Any help would be greatly appreciated!

Please Login or Register  to view this content.

ANOTHER SOL'N
This solution does not require a password ... what it does is check who is logged into the computer and admits you to the macro based on comparing the login name to the list of people allowed into macro. In my system I take that a step further and have the macro go out to a central spreadsheet that checks for login name to Macro relationship... this allows for central admin of all macro access. Or ... you can have the name listed in each macro .. as it is in this example

Please Login or Register  to view this content.

Public Const AdminPassword As String = "AdminPass"

Public Sub DemoPassword()

Const LocalPassword = "LocalPass"

pswd = Application.InputBox("Enter Password", "Password")

If pswd <> LocalPassword And pswd <> AdminPassword Then Exit Sub

MsgBox "you're in"

End Sub

*************

I tried using this code, but it didn't seem to work at all. When I took out the first two lines and just used the following, it seemed to prompt me for a password and when I used "LocalPass", it worked, but I wasn't able to enter in any other password. Am I missing something? Also, I'm the step before rookie in the coding world, so your patience is greatly appreciated!

Const LocalPassword = "LocalPass"

pswd = Application.InputBox("Enter Password", "Password")

If pswd <> LocalPassword And pswd <> AdminPassword Then Exit Sub

MsgBox "you're in"

Here is what I currently have in one module:

Sub CEO()
If UCase(InputBox("Enter Password")) <> "ELIJAH" Then Exit Sub
'
' CEO Macro
'

'
Sheets("CEO").Select
End Sub
Sub COO()
'
' COO Macro
'

'
Sheets("COO").Select
End Sub
Sub CAO()
'
' CAO Macro
'

'
Sheets("CAO").Select
End Sub
Sub DEV()
If UCase(InputBox("Enter Password")) <> "MACEVEDO" Then Exit Sub
'
' DEV Macro
'

'
Sheets("DEV").Select
End Sub
Sub FIN()
If UCase(InputBox("Enter Password")) <> "LUBYS" Then Exit Sub
'
' FIN Macro
'

'
Sheets("FIN").Select
End Sub
Sub HR()
If UCase(InputBox("Enter Password")) <> "5JESSICA5" Then Exit Sub
'
' HR Macro
'

'
Sheets("HR").Select
End Sub
Sub KTC()
If UCase(InputBox("Enter Password")) <> "KTC1234" Then Exit Sub
'
' KTC Macro
'

'
Sheets("KTC").Select
End Sub

Where do I add the following code:

Public Const AdminPassword As String = "AdminPass"

Public Sub DemoPassword()

Const LocalPassword = "LocalPass"

pswd = Application.InputBox("Enter Password", "Password")

If pswd <> LocalPassword And pswd <> AdminPassword Then Exit Sub

MsgBox "you're in"

End Sub

Again, I'm very new to this, sorry for the confusion...

RE: If Elself statement...

I have no idea what this would be... sorry

YOU'RE AMAZING!!!!!!! Thank you, thank you, thank you. Sorry I'm so dumb. That's exactly what I needed.

Are you interested in seeing an example that doesn't ask for a password... it gives you access based on the name you logged into windows with ???

That might be a little too intense. This is for a small organization and will be used with our budgeting process this year, basically i just wanted to prevent users from being able to change other users budgets and access other info within the book. I appreciate the offer, though! You are way smart.

Its really not the intense .. and requires less upkeep... for example here's your CEO macro with it letting people with the windows login names of either nimrod, tellis, or fredk.

Now the is no need to ask , or maintian passwords.

Please Login or Register  to view this content.

Ok, sweet. I'll give it a whirl. Thanks again - very very helpful stuff.

Here's another solution...
You have people run "ConfigBookForUser" macro ... when run it automatically knows who is logged in and run's the macros that are set up for that person.

Note that the old macros have been made private .. so user's can't see or access them directly and that no longer are any passwords needed.

Please Login or Register  to view this content.