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
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
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
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
4 déc. 2018 à 13:51
Bonjour,
La modification suivante devrait fonctionner :
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
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
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..
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..