Ajouter déverrouillage de toutes les feuilles en début de macro
Résolu/Fermé
poupanano
Messages postés
18
Date d'inscription
mercredi 19 octobre 2016
Statut
Membre
Dernière intervention
6 juillet 2023
-
30 janv. 2017 à 12:30
poupanano Messages postés 18 Date d'inscription mercredi 19 octobre 2016 Statut Membre Dernière intervention 6 juillet 2023 - 31 janv. 2017 à 14:16
poupanano Messages postés 18 Date d'inscription mercredi 19 octobre 2016 Statut Membre Dernière intervention 6 juillet 2023 - 31 janv. 2017 à 14:16
A voir également:
- Ajouter déverrouillage de toutes les feuilles en début de macro
- Code de déverrouillage oublié - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Ajouter un compte gmail - Guide
- Ajouter signature word - Guide
2 réponses
PHILOU10120
Messages postés
6393
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
9 octobre 2024
810
Modifié par PHILOU10120 le 31/01/2017 à 11:37
Modifié par PHILOU10120 le 31/01/2017 à 11:37
Bonjour Poupanano
Voici les lignes de codes
Attention de bien conserver votre mot de passe si vous en utilisez un
Pour ôter la protection de la feuille sélectionnée
Sheets("FEUIL1").Select
ActiveSheet.Unprotect Password:="MOT DE PASSE"
(le mot de passe n’est pas obligatoire si vous voulez juste protéger contre l’écriture sur des cellules avec formules vous pouvez protéger sans mot de passe)
'Pour mettre la protection de la feuille sélectionnée
Sheets("FEUIL1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Mettre autant de ligne que de feuilles à protéger
C'est en forgeant que l'on devient forgeron. - C'est au pied du mur que l'on voit le maçon - on apprend toujours de ses erreurs
Voici les lignes de codes
Attention de bien conserver votre mot de passe si vous en utilisez un
Pour ôter la protection de la feuille sélectionnée
Sheets("FEUIL1").Select
ActiveSheet.Unprotect Password:="MOT DE PASSE"
(le mot de passe n’est pas obligatoire si vous voulez juste protéger contre l’écriture sur des cellules avec formules vous pouvez protéger sans mot de passe)
'Pour mettre la protection de la feuille sélectionnée
Sheets("FEUIL1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Mettre autant de ligne que de feuilles à protéger
C'est en forgeant que l'on devient forgeron. - C'est au pied du mur que l'on voit le maçon - on apprend toujours de ses erreurs
poupanano
Messages postés
18
Date d'inscription
mercredi 19 octobre 2016
Statut
Membre
Dernière intervention
6 juillet 2023
1
31 janv. 2017 à 14:16
31 janv. 2017 à 14:16
Merci Philou10120
Peut-être pour éviter un paquet de ligne peut-on utiliser le genre de code suivant:
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Déprotéger toutes les feuilles", "")
For Each i In Worksheets
i.Unprotect Password:=Motdepasse
Mais où l'insérer?
Peut-être pour éviter un paquet de ligne peut-on utiliser le genre de code suivant:
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Déprotéger toutes les feuilles", "")
For Each i In Worksheets
i.Unprotect Password:=Motdepasse
Mais où l'insérer?