Protection Cellules (Rectification Code)

Bonsoir à tous,

je reviens vers vous pour une petite modification concernant une partie de mon code qui fait la protection

je m'explique : sur le fichier ci inclus dans le module newmonthsheet j'ai cette partie dans le code

  NbLg = Range("D" & Rows.Count).End(xlUp).Row
  Cells.Locked = False
  Range("D10:D" & NbLg).Locked = True
  ActiveSheet.Protect Password:=""

cette partie quand je fais l'incrémentation par exemple de février vers Mars elle fait la protection des cellules que j'ai déja saisi sur février et qui reste sur mars dans la colonne D mais les cellules vide restent libre

ce que je souhaite c'est de modifier cette partie du code pour faire la même chose avec la colonne E

Merci d'avance

29protection.zip (214.23 Ko)

Bonjour,

pas sur d'avoir compris, mais change la lettre D par la lettre E ...

Bonjour,

je veux pas changer D par E mias je veux faire la même condition pour les deux colonnes D & E

Bonjour

marfipo a écrit :

je veux faire la même condition pour les deux colonnes D & E

Explique un peu mieux

Si tu veux protéger la colonne E il suffit de rajouter la colonne E

  NbLg = Range("D" & Rows.Count).End(xlUp).Row
  Cells.Locked = False
  Range("D10:E" & NbLg).Locked = True

Mais si tu ne veux protéger que les cellules non vides dans la colonne E

  NbLg = Range("D" & Rows.Count).End(xlUp).Row
  Cells.Locked = False
  Range("D10:D" & NbLg).Locked = True
For I = 10 To NbLg
    If Range("E" & I) <> "" Then
      Range("E" & I).Locked = True
    End If
  Next I
  ActiveSheet.Protect Password:=""

Comme d'habitude à toi de choisir

bonjour Banzai,

le premier code protégeait les cellules non vides de la colonne D après incrémentation

Maintenant je veux protéger les cellules non vides de la colonne D et de la colonne E après incrémentation

Cordialement,

Merci beaucoup Banzai,

ca marche comme je souhaitais

Rechercher des sujets similaires à "protection rectification code"