Protect en unprotect alle sheets (macro)

[Mkit]

Beste lezer,

Ik zit helaas met een vreemd probleempje, ik wil graag alle sheets met 1 knop vergrendelen en met 1 knop ontgrendelen.
Ik heb een heel simpel macro gemaakt, maar er is 1 sheet met een ander wachtwoord.
Een of ander manier willen 2 sheets niet ontgrendelen, ik krijg de volgende fout:

Fout 57131 tijdens uitvoering:
Door de toepassing of door object gedefinieerde fout

Sub Ontgrendelen()

'
' Ontgrendel macro
' Version 1.0
'

Sheets("Sheet1").Select
ActiveSheet.Unprotect "wachtwoord"
Sheets("Sheet2").Select
ActiveSheet.Unprotect "wachtwoord"
Sheets("Sheet3").Select
ActiveSheet.Unprotect "wachtwoord"
Sheets("Sheet4").Select
ActiveSheet.Unprotect "wachtwoord"
Sheets("Sheet5").Select
ActiveSheet.Unprotect "wachtwoord"
Sheets("Sheet6").Select
ActiveSheet.Unprotect "wachtwoord2"
Sheets("Sheet7").Select
ActiveSheet.Unprotect "wachtwoord"

Sheets("Sheet1").Select

End Sub

Hij loopt vast op sheet 2 en sheet 5.In beide sheets staan niets bijzonders. De macro wilt de sheet niet selecteren, loopt vast op "Sheets("Sheet2").Select
" Alle sheets zijn zichtbaar en niet verborgen. Waar kan het aan liggen?

Alvast bedankt voor uw medewerking

Met vriendelijk groet.

 

[HSV]

Vermijd select, en gooi het in een loop.

Sub hsv()
Dim i As Long
 For i = 1 To 7
  Sheets(i).Unprotect "Wachtwoord"
 Next i
End Sub

Maar hier zal je probleem vast niet mee verholpen zijn, dus zet je bestandje hier neer zodat de helpers er naar kunnen kijken.