aide pour compléter ce code vba Résolu

Question

Bonjour,

Je ne suis pas du tout expert en vba et j'ai trouvé cette syntase d'un code que j'aimerais changer en deprotection :
le voici :

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

didibonf · Answer

Bonjour,
La modification suivante devrait fonctionner :
Sub deprotect()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.ProtectContents Or sh.ProtectDrawingObjects Then
            sh.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
        End If
    Next
End Sub

DAN41HOM · Answer

Bonjour didibonf,

Tellement logique le "False" que je n'y ai pas pensé.
Grand merci pour le coup de main.
Je peux terminé ma macro tranquillement.

RESOLU..

Aide pour compléter ce code vba

2 réponses

Discussions similaires

Newsletters