Microsoft 365 Verrouillage cellules sur plage de 2000 lignes et 1/4

[laplayast]

Bonjour,
Je travaille avec une base de 2000 lignes et je souhaite protéger, 1ligne sur 4; et certaine colonnes. Le système protection Excel est trop lourd.
Voir fichier joint.

Merci pour votre aide

 

[job75]

Bonsoir laplayast,

Le problème n'est pas clair car toutes les cellules de la feuille sont verrouillées.

Que faut-il donc faire ? Déverrouiller 3 lignes du tableau sur 4 ?

A+

 

[laplayast]

Bonjour,
J'ai n'ai pas été assez clair, on protège les lignes blanches et les lignes grises reçoivent les données. Le fichier joint apporte l'exemple. J'espère que c'est suffisant.
Merci.

 

[job75]

Bonjour laplayast, le forum,

Exécutez :

Sub Verrouiller()
Dim i&
With ActiveSheet
    .Protect "toto", UserInterfaceOnly:=True
    .Cells.Locked = True
    For i = 12 To 2000 Step 4
        .Rows(i).Locked = False
    Next
End With
End Sub

La feuille sera protégée zvec le mot de passe "toto".

A+

 

[laplayast]

Bonjour,
J’essaie d’appliquer le code, dans la feuille ou workbook, ou module; ça ne marche pas. J'ai certainement loupé quelque chose. Le fichier précédent est toujours valable.
Merci pour votre aide.
A+

 

[job75]

J'ai certainement loupé quelque chose. Le fichier précédent est toujours valable.

Je ne vois pas comment car c'est élémentaire.

 

[laplayast]

bonjour,
Alors j'ai besoin du déroulé de la mise en place de la protection (les cases à cocher dans accueil, et protéger la feuille. Je suis bloqué. l’idéal étape 1 = ça; étape 2= ça; etc...
Merci.