Aide pour compléter ce code vba

Résolu

DAN41HOM Messages postés 24 Date d'inscription mardi 4 décembre 2018 Statut Membre Dernière intervention 14 décembre 2018 - 4 déc. 2018 à 13:41
DAN41HOM Messages postés 24 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

A voir également:

Aide pour compléter ce code vba
Code ascii - Guide
Code puk bloqué - Guide
Code activation windows 10 - Guide
Code deverouillage telephone perdu - Guide
Code blocks - Télécharger - Langages

2 réponses

Réponse 1 / 2

didibonf Messages postés 419 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 21 mai 2019 96
4 déc. 2018 à 13:51

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

Réponse 2 / 2

DAN41HOM Messages postés 24 Date d'inscription mardi 4 décembre 2018 Statut Membre Dernière intervention 14 décembre 2018 4
4 déc. 2018 à 14:26

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..

Discussions similaires

sertissage des cables rj45

Code de renvoi d'appel : Ooredo, Mobilis...

Votre réponse

Discussions similaires