supprimer la protection de toute les feuilles en meme temps

[patrol]

tout d'abord bonjours a tous

je vous joint un petit fichier de comptat sur lequel toutes les feuilles sont proteger

quelqu'un pourrait t'il m'aider si c'est possible a trouver une macro qui pourrait déproteger et reproteger toutes les feuilles en meme temps

j'ai retourné le probleme dans tout les sens mais je ne suis arrivé a rien

merci a tous

patrol

 

[karybou]

Re : supprimer la protection de toute les feuilles en meme temps

Bonjour,
Pour déprotéger les feuilles:

Sub non_protege()
Dim f As Worksheet
For Each f In ThisWorkbook.Worksheets
f.Unprotect
Next
End Sub

Pour les protéger:

Sub protege()
Dim f As Worksheet
For Each f In ThisWorkbook.Worksheets
f.Protect
Next
End Sub

Cordialement

Efgé, bonjour,
Je viens d'utiliser le code énnoncé ci-dessous, super cela fonctionne. Merci. J'ai juste une demande : est-il possible de rajouter un mot de passe ?
Cordialement
Karybou

 

[Efgé]

Re : supprimer la protection de toute les feuilles en meme temps

Bonjour karybou, le fil
Avec le MDP Toto :

Sub non_protege()
Dim f As Worksheet
For Each f In ThisWorkbook.Worksheets
f.Unprotect "Toto"
Next
End Sub

Et

Sub protege()
Dim f As Worksheet
For Each f In ThisWorkbook.Worksheets
f.Protect "Toto"
Next
End Sub

Cordialement

 

[karybou]

Re : supprimer la protection de toute les feuilles en meme temps

Mille mercis.
Vous êtes super.
karyn

 

[fredoalex]

Re : supprimer la protection de toute les feuilles en meme temps

bonjour,
la formule pour proteger les cellules marche bien mais j'ai un soucis. Avec ce code VBA les cellules non verouillées sont quand même bloquées.
Est il possible de proteger que les cellules verouillées sur toutes les feuilles du classeur?

merci d'avance