Using Password to show Sheet

[Kaieteur]

Hi Excel Gurus,
I would like some help again. My workbook automatically loads a macro upon startup but access to a specific sheet (called summary) is only granted to the treasurer by way of a password.

When the treasurer hits the "view Summary" button a userform (containing OK, Cancel buttons, a text box and a label) pops up prompting him to enter his password in the textbox. The reason I went this way is because I want to mask the password. I want when he enters a password and click OK or <Enter> he would be granted access to the sheet, otherwise he would be prompted again to "Enter password). If someone could assist with the code for this I would really appreciate it. I browsed through the Daniel Klann code but that is way too complicated for me.

 

[Tazguy37]

How about something like Pennysaver's post in this thread?:

http://www.mrexcel.com/board2/viewtopic.php?t=121090

Hope that helps!

 

[Kaieteur]

This code is OK but it shows the password while the user is typing it in. I have the user typing it into a textbox which masks it, thereby showing *** etc. What I would like to know is how to take this password from the textbox and process it, giving access to the sheet or denying access.

Any help will do.

 

[HalfAce]

Here's a pretty generic example for what you're asking.
There are a number of options available to you concerning this subject including using a normal inputbox (no userform) that utilizes the password characters, but this is probably easier to do (and definitely easier to explain ).
Assumes the textbox in use is named TextBox1.
Uses the password "open" (has been made to not be case sensitive).
Unhides a sheet named Sheet1.

Private Sub CommandButton1_Click()
If UCase(TextBox1) = "OPEN" Then
    Sheets("Sheet1").Visible = True
    Sheets("Sheet1").Select
    Unload Me
Else
MsgBox ("Invalid password"), , "Access Denied"
    TextBox1 = ""
    TextBox1.SetFocus
End If
End Sub

Hope it helps,
Dan

 

[Kaieteur]

Thanks a lot for the help. It works great.