Vba op beveiligde blad ?

[Excel01]

Ik heb twee bladen (blad1 en Blad2) in excel.
Deze zijn beveiligd met een wachtwoord. Vba werkt dus niet op de beveiligde bladen.
Ik heb deze code op internet gevonden en werkt goed op Blad1 maar werkt niet op blad2.
Hoe kan ik deze twee bladen combineren in de code.

Private Sub Workbook_Open()
Sheets("Blad1").Protect _
Password:="wachtwoord", _
UserInterfaceOnly:=True
End Sub

 

[edmoor]

Zo doe je alle werkbladen ineens:

Private Sub Workbook_Open()
    For Each sht In ThisWorkbook.Sheets
        sht.Protect _
        Password:="wachtwoord", _
        UserInterfaceOnly:=True
    Next sht
End Sub

 

[Excel01]

edmoor tnks