Bonjour,
J'ai juste besoin d'une aide sur ce bout de code en vba (je n'y connais rien).
Je l'ai pour l'action protéger mais pas pour déprotéger :
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If Not sh.ProtectContents Or Not sh.ProtectDrawingObjects Then
sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Merci à vous.
Merci de ne pas m'avoir aider...j'ai trouvé la solution.
J'ai juste besoin d'une aide sur ce bout de code en vba (je n'y connais rien).
Je l'ai pour l'action protéger mais pas pour déprotéger :
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If Not sh.ProtectContents Or Not sh.ProtectDrawingObjects Then
sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Merci à vous.
Merci de ne pas m'avoir aider...j'ai trouvé la solution.
Dernière édition: