XL 2016 aide sur un code simple...(résolu).

DAN41

XLDnaute Nouveau
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.
 
Dernière édition:

Discussions similaires


Haut Bas