Macro et classeur protégé
Fermé
Cedpilou
-
27 août 2013 à 14:16
Le Pingou Messages postés 12229 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 9 janvier 2025 - 29 août 2013 à 16:05
Le Pingou Messages postés 12229 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 9 janvier 2025 - 29 août 2013 à 16:05
A voir également:
- Macro et classeur protégé
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- Impossible de modifier une macro dans un classeur masqué ✓ - Forum Excel
3 réponses
Le Pingou
Messages postés
12229
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
9 janvier 2025
1 454
27 août 2013 à 22:59
27 août 2013 à 22:59
Bonjour,
Peut-être une solution par là !
Peut-être une solution par là !
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
575
27 août 2013 à 15:32
27 août 2013 à 15:32
Bonjour,
Pour ôter la protection:
Sub SupProtec()
'Supprime la protection de toutes les feuilles
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect Password:=""
Next
End Sub
Pour mettre la protection:
Sub MetProtec()
'Protège toutes les feuilles
For i = 1 To Worksheets.Count
Worksheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=""
Next
End Sub
Si tu as un mot de passe tu le mets après Password:="ici"
Tu mets ces codes dans un module standard et les commandes de renvoi dans le code principal.
Cordialement.
Pour ôter la protection:
Sub SupProtec()
'Supprime la protection de toutes les feuilles
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect Password:=""
Next
End Sub
Pour mettre la protection:
Sub MetProtec()
'Protège toutes les feuilles
For i = 1 To Worksheets.Count
Worksheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=""
Next
End Sub
Si tu as un mot de passe tu le mets après Password:="ici"
Tu mets ces codes dans un module standard et les commandes de renvoi dans le code principal.
Cordialement.
Merci, pour mettre et enlever la protection du classeur je n'ai aucun problème.
Mais j'ai un grand nombre de macro, donc est-il possible de créer une procédure dans le thisWorkbook qui permettrais de déverrouiller le classeur a chaque début de macro et de le verrouiller à chaque fin de macro ?
Sans devoir mettre un code dans chaque macro.
Cordialement,
Mais j'ai un grand nombre de macro, donc est-il possible de créer une procédure dans le thisWorkbook qui permettrais de déverrouiller le classeur a chaque début de macro et de le verrouiller à chaque fin de macro ?
Sans devoir mettre un code dans chaque macro.
Cordialement,
Le Pingou
Messages postés
12229
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
9 janvier 2025
1 454
29 août 2013 à 16:05
29 août 2013 à 16:05
Bonjour,
C'est dommage car tout y est, y compris le passage obligatoire par [ThisWorkbook].
Pour vous il suffit d'intégrer le dialogue d'identification directement dans le code [Private Sub Workbook_Open()].
C'est dommage car tout y est, y compris le passage obligatoire par [ThisWorkbook].
Pour vous il suffit d'intégrer le dialogue d'identification directement dans le code [Private Sub Workbook_Open()].
29 août 2013 à 09:03