Menu

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

Messages postés
23
Date d'inscription
mardi 4 décembre 2018
Statut
Membre
Dernière intervention
14 décembre 2018
- - Dernière réponse : DAN41HOM
Messages postés
23
Date d'inscription
mardi 4 décembre 2018
Statut
Membre
Dernière intervention
14 décembre 2018
- 4 déc. 2018 à 14:26
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
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
416
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
19 mars 2019
54
1
Merci
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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 40353 internautes nous ont dit merci ce mois-ci

Commenter la réponse de didibonf
Messages postés
23
Date d'inscription
mardi 4 décembre 2018
Statut
Membre
Dernière intervention
14 décembre 2018
6
0
Merci
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..
Commenter la réponse de DAN41HOM