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!

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

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

Public Sub DemoLoginName()
    Const WinLogin As String = "nimrod,tellis,fredk"
    
    If InStr(1, WinLogin, Environ("username")) = 0 Then Exit Sub
    
    MsgBox "you're in"
End Sub

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"

RE: If Elself statement...

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

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...

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.

Sub CEO()
   
   Const WinLogin As String = "nimrod,tellis,fredk"


   If InStr(1, WinLogin, Environ("username")) = 0 Then Exit Sub
 '
   ' CEO Macro
   '

   '
    Sheets("CEO").Select
End Sub

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.

Option Compare Text

Public Sub ConfigBookForUser()

   If Environ("username") = "nimrod" Then
      Call CEO
      Call COO
   End If
   
   If Environ("username") = "tomh" Then
      Call CAO
      Call DEV
   End If
   
   If Environ("username") = "Bob" Then
      Call DEV
      
   End If
End Sub

Private Sub CEO()

'
' CEO Macro
'

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

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

'
Sheets("CAO").Select
End Sub
Private Sub DEV()

'
' DEV Macro
'

'
Sheets("DEV").Select
End Sub