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   -
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
A voir également:

2 réponses

poupanano Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   1
 
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
1