placer simultanement un mot de passe identique sur plusieurs feuilles

[Océane]

Bonjour à tous
Je suis en train de fabriquer un classeur qui possède 12 feuilles, un autre 24.
Chaque feuille doit être protéger par un mot de passe, que je dois enlever puis remettre, au fur et à mesure des modifications que j'effectue.
Excite il un moyen de l'introduire simultanément dans toutes les feuilles, sans passer par une macro, si la macro est indispensable quelqu'un l'a il déjà réalisée ?

A+
et bon week-end

 

[vbacrumble]

Re : placer simultanement un mot de passe identique sur plusieurs feuilles

Bsr à tous

Sub protegedeprotegetout()
Dim wSheet As Worksheet
    For Each wSheet In Worksheets
        If wSheet.ProtectContents = True Then
           wSheet.Unprotect Password:="motpasse"
        Else
            wSheet.Protect Password:="motpasse"
        End If
    Next wSheet
End Sub

A+

 

[Océane]

Re : placer simultanement un mot de passe identique sur plusieurs feuilles

Bonsoir BSR
Merci pour ta réponse rapide; mais je viens de m'apercevoir qu'il me faudrait la même à l'envers : pour enlever le mot de passe !

 

[vbacrumble]

Re : placer simultanement un mot de passe identique sur plusieurs feuilles

Rebsr



Pour déprotéger il suffit de relancer la macro une seconde fois.

A+

 

[Océane]

Re : placer simultanement un mot de passe identique sur plusieurs feuilles

Rebsr



Pour déprotéger il suffit de relancer la macro une seconde fois.

A+

Ok, je vais tester tout çà en réel bientôt, pour l'instant, j'essaie de me retrouver entre les feuilles que j'ai protégées, celles que j'ai oubliées et celles ou je me suis trompées, d'où l'intérêt de ta macro.
Merci et à bientôt