password protect button

[jlocker]

Hi,

I'd like to require a password before the button can be "pushed". I'm not great with macros, so I'm really just looking for what I need to add to my current code. This is the macro I have assigned to the button:

Sub sHideASheet()

Sheets("Sheets2").Visible = True
Sheets("Sheets3").Visible = True

End Sub

I've tried a few of the suggestions from previous posts, but none seem to work for me. I don't know if it makes a difference, but the sheets being unhidden are very hidden. Any help is appreciated!

 

[mumps]

Try this macro. Replace the text in red to a password of your choosing.

Sub sHideASheet()
    Dim PW As String, response As String
    PW = "[COLOR="#FF0000"]Mypassword[/COLOR]"
    response = InputBox("Please enter the password.")
    If response = "" Then Exit Sub
    If response <> PW Then
        MsgBox ("Invalid password.  Please try again.")
        Exit Sub
    End If
    Sheets("Sheets2").Visible = True
    Sheets("Sheets3").Visible = True
End Sub

 

[jlocker]

Thank you very much for the help. There a password prompt now when I push the button, but upon entering the password, I get an error message that says, "Subscript out of range." The debugger highlights this line - Sheets("Sheets2").Visible True.

Any suggestions?

 

[jlocker]

Please disregard my first response. It was a typo in my original code that was causing the error. The code should have read: Sheets("Sheet2").Visible = True

When I corrected the tab names, it worked perfectly.

THANK YOU AGAIN!

 

[mumps]

You are very welcome.