Menu

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

Messages postés
11
Date d'inscription
mardi 4 décembre 2018
Dernière intervention
5 décembre 2018
- - Dernière réponse : DAN41HOM
Messages postés
11
Date d'inscription
mardi 4 décembre 2018
Dernière intervention
5 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
300
Date d'inscription
vendredi 18 juillet 2008
Dernière intervention
5 décembre 2018
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

Merci didibonf 1

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

CCM a aidé 29983 internautes ce mois-ci

Commenter la réponse de didibonf
Messages postés
11
Date d'inscription
mardi 4 décembre 2018
Dernière intervention
5 décembre 2018
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