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

job75

XLDnaute Barbatruc

• 5 Décembre 2023

• #2

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+

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 6 Décembre 2023

• #3

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.

 

Pièces jointes

• 1 Verrouillage cellules.xlsm

  19 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Décembre 2023

• #4

Bonjour laplayast, le forum,

Exécutez :

VB:

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+

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 6 Décembre 2023

• #5

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Décembre 2023

• #6

laplayast à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• 1 Verrouillage cellules.xlsm

  19.2 KB · Affichages: 3

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 6 Décembre 2023

• #7

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.

 

Vote positif 0 Vote négatif