Protection classeur même cellules sur toutes les feuilles

Bonjour,

je viens à vous car j'ai des petits soucis,

j'ai un tableau excel assez complet dont j'ai protégé plusieurs cellules de plusieurs colonnes, aujourd'hui je voudrai dupliqué cette feuille, 12 fois pour les 12 mois de l'année.

Toutes les cellules d'une certaines couleurs sont modifiables les autres non, et protéger la feuille et définir les plages des cellules à modifier est très important.

Est ce que vous pouvez m'aider ??

Si vous avez besoin de la feuille pour m'aider, je vous l'enverais

Merci d'avance

Cordialement,

Oren011

Ton fichier est indispensable pour recevoir une aide du forum.

Cdlt.

Merci de votre réponse si rapide, je vous joins le fichier

Toutes les case en jaune doit être modifiable le reste non....

Je voudrais dupliquer cette feuille avec la protection sur toutes les autre feuilles....

merci par avance

Re,

Une première réponse de principe à étudier et adapter.

Cdlt.

Option Explicit
' --------------------------------------------------------------------------------
Public Sub Proteger_feuilles()
Dim ws As Worksheet

    On Error Resume Next
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            .Unprotect
            .Cells.Locked = True
            .Range("G8:K12,N8:N12,Q8:T12").Locked = False
            .Range("D18:E24,D26:E32,D42:E48,D50:E56").Locked = False
            .Range("H18:H24,H26:H32,H42:H48,H50:H56").Locked = False
            .Range("R18:R24,R26:R32,R42:R48,R50:R56").Locked = False
            .Range("W18:X24,W26:X32,W42:X48,W50:X56").Locked = False
            .Range("AA18:AA24,AA26:AA32,AA42:AA48,AA50:AA56").Locked = False
            .Range("AP18:AP24,AP26:AP32,AP42:AP48,AP50:AP56").Locked = False
            .Protect
        End With
    Next

End Sub
' --------------------------------------------------------------------------------
Public Sub Deproteger_feuilles()
Dim ws As Worksheet

    On Error Resume Next
    For Each ws In ActiveWorkbook.Worksheets
        ws.Unprotect
    Next

End Sub

C'est top, c'est exactement ce que je voulais!!!

Merci bcp :!!!