Aide pour compléter ce code vba

Résolu/Fermé

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 à 13:41
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

A voir également:

Aide pour compléter ce code vba
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages
Code windows 10 - Guide

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 95
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 23 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

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

Codes bateaux et avion GTA vice city Stories

Acces à snapchat temporairement désactivé

Discussions similaires

Newsletters