Verrouillage et déverrouillage automatique plusieurs feuilles
Résolu
poupanano
Messages postés
20
Statut
Membre
-
poupanano Messages postés 20 Statut Membre -
poupanano Messages postés 20 Statut Membre -
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
- Word et excel gratuit - Guide
- Cdg heure d'arrivée a destination shein ✓ - Forum Consommation & Internet
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