Sh.Protect UserInterFaceOnly problem

[Dedeke]

Hello,
Have been reading about UserInterfaceOnly in this forum but did not find a solution.

Having this problem using the code as followed:
Having multiple sheets protected with the same password.
When opening the workbook it demands the password for each sheet wich is protected.
After canceling the input for the passwords, so they stay protected, the code seems to work.

So when i delete the code from the workbook, on startup it does not show any popups to enter password.
Any idea why this happens. And maybe a solution.

Private Sub Workbook_Open()

Dim Sh As Worksheet

    For Each Sh In Worksheets
       Sh.Protect UserInterFaceOnly:=True
    Next
    
End Sub

Thx getting into this

 

[Dedeke]

Sorry , my bad.
Found the solution,like always, on this forum.

Private Sub Workbook_Open()
    Dim ws As Worksheet
 
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect UserInterfaceOnly:=True, Password:="1234"
    Next ws
End Sub