Verrouillage et déverrouillage automatique plusieurs feuilles
Résolu/Fermé
poupanano
Messages postés
19
Date d'inscription
mercredi 19 octobre 2016
Statut
Membre
Dernière intervention
6 juillet 2023
-
17 janv. 2017 à 19:53
poupanano Messages postés 19 Date d'inscription mercredi 19 octobre 2016 Statut Membre Dernière intervention 6 juillet 2023 - 19 janv. 2017 à 13:48
poupanano Messages postés 19 Date d'inscription mercredi 19 octobre 2016 Statut Membre Dernière intervention 6 juillet 2023 - 19 janv. 2017 à 13:48
A voir également:
- Excel ne parvient pas à insérer les feuilles dans le classeur de destination
- Insérer liste déroulante excel - Guide
- Insérer signature word - Guide
- Insérer une vidéo dans powerpoint - Guide
- Aller à la ligne excel - Guide
- Formule excel - Guide
2 réponses
poupanano
Messages postés
19
Date d'inscription
mercredi 19 octobre 2016
Statut
Membre
Dernière intervention
6 juillet 2023
1
19 janv. 2017 à 13:48
19 janv. 2017 à 13:48
Bonjour albkan
J'ai trouvé une solution qui fonctionne très bien:
Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Protéger toutes les feuilles", "")
For Each i In Worksheets
i.Protect Password:=Motdepasse
Next
End Sub
Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
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
Next
End Sub
J'ai trouvé une solution qui fonctionne très bien:
Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Protéger toutes les feuilles", "")
For Each i In Worksheets
i.Protect Password:=Motdepasse
Next
End Sub
Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
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
Next
End Sub
