Aide pour compléter ce code vba [Résolu/Fermé]

Signaler
Messages postés
23
Date d'inscription
mardi 4 décembre 2018
Statut
Membre
Dernière intervention
14 décembre 2018
-
Messages postés
23
Date d'inscription
mardi 4 décembre 2018
Statut
Membre
Dernière intervention
14 décembre 2018
-
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

2 réponses

Messages postés
418
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
21 mai 2019
61
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60843 internautes nous ont dit merci ce mois-ci

Messages postés
23
Date d'inscription
mardi 4 décembre 2018
Statut
Membre
Dernière intervention
14 décembre 2018
4
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..