XL 2016 Protection plusieurs feuilles d'un classeur

sylvanu à dit:

Bonsoir KTM,
Un essai en PJ avec :

VB:

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.

Cliquez pour agrandir...