Verrouillage et déverrouillage automatique plusieurs feuilles
Résolu
poupanano
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
poupanano Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
poupanano Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Excel ne parvient pas à insérer les feuilles dans le classeur de destination
- Insérer une vidéo dans powerpoint - Guide
- Insérer liste déroulante excel - Guide
- Insérer signature word - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Word et excel gratuit - Guide
2 réponses
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