These thoughts might help,
Create a little UserForm with a Label1, Label2, TextBox1 and CommandButton1
Under the Properties for Label1 set the Caption = "Enter Password for sheet: "
Under the Properties for Label2, delete any caption
Under the properties for TextBox1 set the PasswordChar to *
Then double click on the TextBox1 and paste in the following code;
Code:
Private Sub TextBox1_AfterUpdate()
Dim myPass(1 To 3) As Variant
Dim whichSheet As String
myPass(1) = ""
myPass(2) = "sillybugger"
myPass(3) = "youfool"
Select Case Label2.Caption 'Use the Label2 caption to figure out which sheet to go to
Case "Sheet2" 'if its sheet2, check the password for sheet2 and go there if ok
If TextBox1.Text = myPass(2) Then
Sheets("Sheet3").Visible = False
Sheets("Sheet2").Visible = True
Sheets("Sheet2").Activate
End If
Case "Sheet3"
If TextBox1.Text = myPass(3) Then
Sheets("Sheet2").Visible = False
Sheets("Sheet3").Visible = True
Sheets("Sheet3").Activate
End If
End Select
TextBox1.Text = ""
UserForm1.Hide
End Sub
Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub
For each of your buttons to navigate around the worksheets enter the code;
Code:
UserForm1.Label2.Caption = "Sheet2" 'change to the name of the sheet you want to go to etc
UserForm1.Show