Command Button that shows Hidden Sheets - Needs Password Protection

Hi, John,

please try

Sub ShowDataSheets()

Dim ws As Worksheet
Const cstrPW As String = "strangePW"

If InputBox(Prompt:="Enter the password", Title:="Enter Password", Default:="enter password here") = cstrPW Then
  For Each ws In ThisWorkbook.Worksheets
    ws.Visible = xlSheetVisible
  Next ws
Else
  MsgBox "Sorry, wrong password", vbInformation, "No luck here"
'  ThisWorkbook.Close True
End If

End Sub

Thanks for adding the code-tags.

Ciao,
Holger