Command Button that shows Hidden Sheets - Needs Password Protection

Hi, John,

thanks for the feedback.

A small alteration for the number of tries which might be of interest to you as well:

Sub ShowDataSheets()

Dim ws As Worksheet
Static lngTries As Long

Const cstrPW As String = "strangePW"
Const clngMAX As Long = 3

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
  lngTries = lngTries + 1
  MsgBox "Sorry, wrong password", vbInformation, "Missed trie: " & lngTries & " of " & clngMAX & " tries"
  If lngTries = clngMAX Then ThisWorkbook.Close True
End If

End Sub

Ciao,
Holger

Thanks so much... I saw somewhere that I can specify to only open specific sheets desired - not all sheets in the Workbook, but ones that only have "Data" as part of it's description...

Can the code below also be coded to only allow the sheets with "Data" be shown?

Sub ShowDataSheets()

Dim ws As Worksheet
Static lngTries As Long

Const cstrPW As String = "strangePW"
Const clngMAX As Long = 3

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
  lngTries = lngTries + 1
  MsgBox "Sorry, wrong password", vbInformation, "Missed trie: " & lngTries & " of " & clngMAX & " tries"
  If lngTries = clngMAX Then ThisWorkbook.Close True
End If

End Sub

John

Hi, John,

if the left 4 characters of the sheetnames are Data:

'...
  For Each ws In ThisWorkbook.Worksheets
    If Left(ws.Name, 4) = "Data" Then
      ws.Visible = xlSheetVisible
    End If
  Next ws

If Data is contained anywhere in the sheetname:

  For Each ws In ThisWorkbook.Worksheets
    If InStr(1, ws.Name, "Data") > 0 Then
      ws.Visible = xlSheetVisible
    End If
  Next ws

Ciao,
Holger