Allow to hide sheets in a locked workbook

[Krulle1000]

Hello,
How can I allow to hide sheets in my locked workbook? The code below doesn't work.
I receive Error 1004: Application-defined or object-defined error.
If I unlock my workbook than the code passes.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each ws In ThisWorkbook.Worksheets
If ws.CodeName <> "Sheet3" Then
ws.Visible = xlVeryHidden
Next ws
end Sub

 

[S_Wish]

unprotect book on start
protect in the end

 

[Krulle1000]

Thanks,

Protecting the Workbook on Open after the Sheets have been hidden & Unprotect the Workbook immediately on Close does the trick.
Below the code to force the users to enable macros while the workbook is protected.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Unprotect Password:="pass"
Sheet3.Visible = xlSheetVisible
For Each ws In ThisWorkbook.Worksheets
If ws.CodeName <> "Sheet3" Then
ws.Visible = xlVeryHidden
Else
ws.Name = "START"
End If
Next ws
End Sub

Private Sub Workbook_Open()
For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
Sheet3.Visible = xlVeryHidden
Sheet4.Visible = xlVeryHidden
ActiveWorkbook.Protect Password:="pass", structure:=True, Windows:=False
End Sub