Verrouillage et déverrouillage automatique plusieurs feuilles
Résolu
poupanano
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
poupanano Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
poupanano Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
Bonjour
J'ai un fichier avec de nombreuses feuilles et souhaiterai pouvoir verrouiller et déverrouiller toutes les feuilles en même temps en me demandant le mot de passe qui est commun à toutes les feuilles.
Je pense qu'il faut utiliser une macro mais n'ai pas les connaissances.
Pouvez-vous m'aider sur le sujet.
Merci pour vos retours
J'ai un fichier avec de nombreuses feuilles et souhaiterai pouvoir verrouiller et déverrouiller toutes les feuilles en même temps en me demandant le mot de passe qui est commun à toutes les feuilles.
Je pense qu'il faut utiliser une macro mais n'ai pas les connaissances.
Pouvez-vous m'aider sur le sujet.
Merci pour vos retours
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
