Macro verrouillage/ déverrouillage

[Benjy51190]

Bonjour à tous.
J’utilise actuellement la macro pour verrouiller et déverrouiller l’intégralité des pages de mon tableau:

Sub ProtectDeprotect()
Dim ws As Worksheet
For Each ws In Worksheets
Select Case ws.ProtectContents
Case True
ws.Unprotect
Case False
ws.Protect
End Select
Next
End Sub

Y-at-il un moyen de la modifier pour que lors du verrouillage, “Format des cellules” dans les options: “PERMETTRE AUX UTILISATEURS DE CETTE FEUILLE D’EFFECTUER LES TACHES SUIVANTES” soit automatiquement sélectionné? ( voir pièce jointe)

Merci par avance pour votre aide
Capture ecran.pdf (1,2 Mo)

[Valky]

Bonjour @Benjy51190,

Tu peux essayer avec ce code :
Sub ProtectDeprotect()
Dim ws As Worksheet
For Each ws In Worksheets
Select Case ws.ProtectContents
Case True
ws.Unprotect
Case False
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
End Select
Next
End Sub

[Benjy51190]

Bonjour et merci beaucoup @Valky, encore une fois, c’est parfait.

Tu m’aides vraiment beaucoup.
Très bonne journée à toi et bon week end.

[Valky]

Ravi de pouvoir t’aider !