XL 2016 Protection plusieurs feuilles d'un classeur

KTM

XLDnaute Impliqué
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

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • ProtectSheets.xlsm
    23.2 KB · Affichages: 3

Discussions similaires