Macro button protection issue

[Terriz]

Hi,

I've got this project with 18 sheets. The first 15 sheets are visible to everyone. But the last 3 sheets are veryhidden. I want to create a togglebutton with a password protection, so if it's enabled it shows the last 3 sheets. End if it's disabled the sheets become veryhidden again. The show and hide part is pretty easy going. But protecting it with a password stresses my brain. Maybe someone has some input for me. Here's the code I got so far. Gr. Terriz

Private Sub Admin_button_click()
Dim Password As String
Answer = InputBox("Enter Password")
Password = "admin"
    If Answer = Password Then
    Application.ScreenUpdating = False
        Admin_Button.Value = True
            Sheets("Codes-Dashboard").Visible = xlSheetVisible
            Sheets("User Database").Visible = xlSheetVisible
            Sheets("To Do!").Visible = xlSheetVisible
    Else
        Admin_Button.Value = False
            Sheets("Codes-Dashboard").Visible = xlSheetVeryHidden
            Sheets("User Database").Visible = xlSheetVeryHidden
            Sheets("To Do!").Visible = xlSheetVeryHidden
    End If
    Application.ScreenUpdating = True
End Sub

EDIT: I forgot to mention the problem . The enabling part works, but disabling doesn't.

[Terriz]

Solved the problem allready!!! This is the new code:

Private Sub Admin_button_click()
Dim Pword As String
On Error Resume Next
 Pword = Application.InputBox(prompt:="Please enter Password", Title:="Password", Type:=2)
   If Not Pword = "admin" Then
       MsgBox "The Password you entered was incorrect"
      Exit Sub
   Else
      MsgBox "Your Password was correct"
   End If
     Application.ScreenUpdating = False
    If Admin_Button.Value = True Then
            Sheets("Codes-Dashboard").Visible = xlSheetVisible
            Sheets("User Database").Visible = xlSheetVisible
            Sheets("To Do!").Visible = xlSheetVisible
    Else
        Admin_Button.Value = False
            Sheets("Codes-Dashboard").Visible = xlSheetVeryHidden
            Sheets("User Database").Visible = xlSheetVeryHidden
            Sheets("To Do!").Visible = xlSheetVeryHidden
    End If
    Application.ScreenUpdating = True
End Sub

This puts me on another dilemma. Is there any way to show the password as dots in the inputbox?

[a53779]

Hey Terriz - Just wanted to tahnk you for the code. The question/answer portion of the code was exactly what I was looking for.

Cheers