XL 2016 Protection plusieurs feuilles d'un classeur

KTM · 16 Novembre 2022

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 · 16 Novembre 2022

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.

KTM · 17 Novembre 2022

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.

KTM · 17 Novembre 2022

Merci

XL 2016 Protection plusieurs feuilles d'un classeur

KTM

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Pièces jointes

KTM

XLDnaute Impliqué

KTM

XLDnaute Impliqué

Discussions similaires