Tabbladen beveiligen

[Roma]

Beste,

Ik gebruik onderstaande code om alle tabbladen in één keer te beveiligen.
Standaard wordt beveiligd Vergrendelde cellen selecteren en ontgrendelde cellen selecteren.

Mijn vraag is ik heb 1 tabblad waar celeigenschappen ook geselecteerd moet worden.
Heeft iemand hier een oplossing voor.

Sub ProtectAllSheets()
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect Password:="jouwpaswoord"
    Next
End Sub

 

[Cobbe]

Dan voeg je dat toch gewoon toe:

Sub ProtectAllSheets()
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect Password:="jouwpaswoord", AllowFormattingCells:=True
    Next
End Sub

 

[Roma]

Cobbe,
Bedankt alleen het werkt dan op alle tabbladen

 

[Cobbe]

Je zet dat er ook nog bij:

Sub ProtectAllSheets()
    For Each ws In ThisWorkbook.Worksheets
     
        ws.Protect Password:="jouwpaswoord", AllowFormattingCells:=ws.Name = "Blad3"
     
      Next
End Sub

 

[Roma]

Cobbe,
Bedankt werkt weer perfect
Bedankt