Verrouillage et déverrouillage automatique plusieurs feuilles Résolu/Fermé

Question

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

Utilisateur anonyme · Answer

Bonjour poupanano,
Ce message #1 de Patrice33740 pourra t'aider.
albkan

poupanano · Answer

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

Verrouillage et déverrouillage automatique plusieurs feuilles

2 réponses

Discussions similaires