Protectioon classeur

Bonjour le forum,

J'ai un classure de 12 feuilles (les 12 mois) il y a pas mal de formules et j'aimerais le protéger, j'ai essayé mais manifestement seulement feuille par feuilles, si il y a une manière de protéger le classeur en entier en quelques manips je suis preneur. Merci de votre aide.

Amicalement.

Alain

Bonsoir,

Un code que galopin01 m'a fourni récemment

il protège toutes les feuilles, le mot de passe PWd = "dudu" est facultatif.

Sub Protege(Optional Y) '*** de galopin01
Dim PWd$, i As Byte
    'PWd = "dudu"
    For i = 1 To Worksheets.Count
        With Worksheets(i)
            If IsMissing(Y) Then
            If .ProtectContents = False Then .Protect 'PWd
            Else
            If .ProtectContents Then .Unprotect 'PWd
            End If
        End With
    Next
End Sub

Amicalement

Claude.