werkbladen beveiligen

[vrouw]

Hoi.

Ik heb onderstaande 2 macro`s gevonden om meerdere (verborgen en niet verborgen) werkbladen te beveiligen.
echter loopt de macro om de beveiliging te verwijderen stuk. Zit daar iets fout?

Sub Beveiligen()
For Each Sh In Worksheets
Sh.Protect Password:="123", UserInterfaceOnly:=True
Next
End Sub

Sub Beveiliging_weghalen()
For Each Sh In Worksheets
Sh.Unprotect Password:="123", UserInterfaceOnly:=True
Next
End Sub

 

[ExcelAmateur]

Vrouw,

Zo werkt het bij wel.

Sub Beveiliging_weghalen()
For Each Sh In Worksheets
Sh.Unprotect Password:="123"
Next
End Sub

 

[vrouw]

Ik krijg nog steeds een foutmelding.
heeft dat met de verborgen tabbladen te maken?

 

[ExcelAmateur]

Dat zou best kunnen.
Misschien nog even verder zoeken?

 

[vrouw]

Ben eruit.

Zat nog een onbekend paswoord tussen.

Thanks:thumb: