Macro et classeur protégé
Fermé
Cedpilou
-
27 août 2013 à 14:16
Le Pingou Messages postés 11538 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 mars 2023 - 29 août 2013 à 16:05
Le Pingou Messages postés 11538 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 mars 2023 - 29 août 2013 à 16:05
A voir également:
- Macro et classeur protégé
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Média protégé en écriture ✓ - Forum Matériel informatique
- Macro Recorder - Télécharger - Divers Utilitaires
- Impossible de modifier une macro dans un classeur masqué ✓ - Forum Excel
3 réponses
Le Pingou
Messages postés
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
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
1263
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
572
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
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
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