VBA- Hiding Tabs with error skip

[Woodleigh]

Having some trouble with Getting this to work. What i am trying to do is have this tabe "New PVA Summary" Always visible, but the rest of the tabs hidden. So if all the tabs are visible, when you open the Workbook, it automatically hide and locks the workbook. This only works though if the tabs are visible, if the tabs are hidden I am getting and error.

I changed my code to have it tab name dependent but it seems i am now running into a "Type mismatch error", can't seem to figure this out. any help would be appreciated. I am sure it something super simple. Below is the code:

Dim WS As Worksheets

For Each WS In ActiveWorkbook.Worksheets
If WS.Name Like "New PVA Summary*" Then
WS.Visible = True
Else
WS.Visible = False
End If
Next WS

ActiveWorkbook.Protect ("123")
End Sub

 

[JackDanIce]

Welcome to the board, try:

Sub Macro1()
  
    Dim x As Long
    Const sheetName As String = "Daily TimeTable*"
  
    On Error Resume Next
    For x = 1 To Worksheets.Count
        Sheets(x).Visible = Sheets(x).name Like sheetName
    Next x
    On Error GoTo 0   

    ActiveWorkbook.Protect ("123")

End Sub

 

[Woodleigh]

While this works in hiding the tab and not providing an error message, This seems to permanently hid the Tabs, and the other macro to unhide the them with the same password provides " incorrect password" error debug message. i have unprotected the worksheet and tried to manually unhide with no luck

 

[Fluff]

How about

   Dim WS As Worksheet
   
   ActiveWorkbook.Unprotect "123"
   For Each WS In ActiveWorkbook.Worksheets
      If WS.Name Like "Main*" Then
         WS.Visible = True
      Else
         WS.Visible = False
      End If
   Next WS
   
   ActiveWorkbook.Protect ("123")

 

[Woodleigh]

How about

   Dim WS As Worksheet
  
   ActiveWorkbook.Unprotect "123"
   For Each WS In ActiveWorkbook.Worksheets
      If WS.Name Like "Main*" Then
         WS.Visible = True
      Else
         WS.Visible = False
      End If
   Next WS
  
   ActiveWorkbook.Protect ("123")

absolute legend! works perfectly.

Cheers mate, I knew it would be simple!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[JackDanIce]

Some code changes (reconciled against @Fluff's) try:

Sub Macro1()
   
    Dim x As Long
    Const sheetName As String = "Main*"
   
    ActiveWorkbook.Unprotect "123"
   
    On Error Resume Next
    For x = 1 To Worksheets.Count
        Sheets(x).Visible = Sheets(x).Name Like sheetName
    Next x
    On Error GoTo 0
   
   ActiveWorkbook.Protect "123"
   
End Sub