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 -
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
A voir également:
- Excel ne parvient pas à insérer les feuilles dans le classeur de destination
- Insérer 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