XL 2016 Protection plusieurs feuilles d'un classeur

[KTM]

Bonjour chers tous
j'ai 70 feuilles identiques 1 à 70 que je voudrais verrouillées en autorisant uniquement la sélection des cellules.
Les zones [A1:G56],[F95:O100] sont les zones permises à la saisie.
Manuellement on peut le faire mais compte tenu du nombre de feuilles je souhaiterais le faire par macro.
Merci!!

 

[sylvanu]

Bonsoir KTM,
Un essai en PJ avec :

Sub DéprotégerPlage()
    For Each F In Worksheets
        With Sheets(F.Name)
            .Range("A1:G56").Locked = False
            .Range("F95:O100").Locked = False
            .Protect
        End With
    Next F
End Sub

Les feuilles sont protégées sans mot de passe.

 

[KTM]

Bonsoir KTM,
Un essai en PJ avec :

Sub DéprotégerPlage()
    For Each F In Worksheets
        With Sheets(F.Name)
            .Range("A1:G56").Locked = False
            .Range("F95:O100").Locked = False
            .Protect
        End With
    Next F
End Sub

Les feuilles sont protégées sans mot de passe.

 

[KTM]

Merci