Password Protect Macro

[Noz2k]

Basically I have a few command buttons on a switchboard (main menu), type sheet, which when clicked on open the appropriate sheet in the workbook.

What I would like to do is to place password on some of these macros, as not all users should have access to all sheets.

Any help on this, or a pointing in the right direction would be great, thanks.

 

[MrKowz]

Check out the InputBox function in VBA. You can use something like:

Dim pword As String
pword = InputBox("Please enter the password:")
If pword <> "abc123" Then
    MsgBox "Incorrect password"
Else
    'Code for correct password
End If

 

[JackDanIce]

Try:

Sub ProtectMyPrivates ()
Dim iPassword As String, MyEntry As String
iPassword = "testme" 'or whatever your password is
myentry = InputBox("What is the password?")
If password <> myentry Then
    MsgBox "Incorrect password, macro now stopping"
    Exit Sub
Else
    ' Call your macro
End If

End Sub

 

[Noz2k]

Thank you that works.


Now what if I want to place this password on a combobox, so that if the user wants pick an option from the dropdown they need a password?

I can make it so that the user needs to enter a password on every change of the combobox, but I would like the user to only have to enter the password once (until the form is closed). Any idea?