Verouiller et déverouiller les feuilles en masse

[Mi]

Bonjour, à mon tour de poster sur le nouveau forum. B)

J'ai un classeur qui contient des dizaines de feuilles. Feuilles qui normalement doivent être verouillées et que je doit parfois revoir, corriger. C'est embêttant de déverouiller puis verouiller chaque feuille, ce n'est pas la répétition la plus intéréssante.

Existe-t-il un macro qui une fois executé, puisse verouiller, respectivement déverouiller toutes les feuilles d'un classeur, avec le même mot de passe bien sûr ?

Merci pour toute aide,
Mi

 

[myDearFriend!]

Bonsoir Mi,


Ci-dessous une réponse possible à ton problème :

Sub Protection(Verrouille As Boolean)
Dim F As Worksheet
      For Each F In Worksheets
            If Verrouille Then
                  F.Protect Password:='TonMotDePasse'
            Else
                  F.Unprotect Password:='TonMotDePasse'
            End If
      Next F
End Sub


Pour protéger les feuilles, lancer :

Sub VerrouilleFeuilles()
      Protection True
End Sub

Pour déprotéger les feuilles, lancer :

Sub DeverrouilleFeuilles()
      Protection False
End Sub


Cordialement.

 

[Mi_]

A cette heure !! :woohoo:

Ca marche impéc, merci beaucoup !

Mi :silly: