Password Protected Tab Macro Help

[welshraz]

Hello again,

I have password protected a tab using the following:

Sub OpenWS()
Dim S As String
S = InputBox("Enter Password")
If S = vbNullString Then
Exit Sub
ElseIf S <> "teamlongdrop" Then
Exit Sub
Else
Worksheets("Contacts").Visible = xlSheetVisible
Sheets("Contacts").Select
End If
End Sub

I have linked this to a button but it asks for the password every time it is pressed. Is there a way of making it so that it only asks for the password if the tab is still hidden? Essentially, I want it to ask for a password the first time the button is pressed after the workbook is opened, but after that point it for it to just take you to the "Contacts" tab?

 

[Fluff]

How about

Sub OpenWS()
Dim S As String
If Sheets("Contacts").Visible = xlSheetVisible Then Exit Sub
S = InputBox("Enter Password")
If S = vbNullString Then
Exit Sub
ElseIf S <> "teamlongdrop" Then
Exit Sub
Else
Worksheets("Contacts").Visible = xlSheetVisible
Sheets("Contacts").Select
End If
End Sub

 

[Osvaldo Palmeiro]

Another way.

Sub OpenWS()
 If Sheets("Contacts").Visible = True Then Sheets("Contacts").Activate: Exit Sub
 Sheets("Contacts").Visible = InputBox("Enter Password") = "teamlongdrop": Sheets("Contacts").Activate
End Sub