Macro pour cacher des onglets

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
Sheets("Feuil1").Activate
If Me.ReadOnly Then
    For Each ws In Sheets(Array("Feuil2", "Feuil3"))
        ws.Visible = xlSheetHidden
    Next ws
End If
End Sub

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet, mdp As String
Sheets("Feuil1").Activate
mdp = InputBox("Mot de passe pour afficher feuil2 et 3")
If mdp <> "123456" Then Exit Sub
For Each ws In Sheets(Array("Feuil2", "Feuil3"))
    ws.Visible = xlSheetVisible
Next ws
End Sub