Bonjour,

Je viens faire appel à vous avec vos neurones qui seront meilleurs que les miens je pense.....
Je veux protéger chaque onglet du fichier mais en seulement certaines cellules...

Voici mon code de départ :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
For i = 1 To Sheets.Count
    Sheets(i).Protect "mot de passe", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True
Next i
Voila ce que j'aimerais....

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
For i = 1 To Sheets.Count
    Sheets(i).Range("A:A,1:12,34:60,G:S,F13:F33").Protect "mot de passe", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True
Next i