protection lignes

[laplayast]

Bonjour,

Je souhaiterai protéger les lignes blanches de l'écriture, ( 3 blanches contre une grise) et cela jusqu'à la ligne 7500.
Voir fichier joint.Avec le mode protéger plage cela est trop lourd à gérer. Y à t-il un mode avec visual basic afin de faciliter la tache.?

Merci de votre aide

 

[laetitia90]

Re : protection lignes

bonsoir laplayast 🙂
on pourrait tenter une événementielle c'est du 'brut' a adapter

Private Sub Worksheet_SelectionChange(ByVal T As Range)
 If Not Intersect(T, Range("a1:u7500")) Is Nothing And T.Count = 1 Then _
  If T.Interior.ColorIndex = -4142 Then Me.Protect Password:="aa" Else Me.Unprotect Password:="aa"
End Sub

avec un mot de passe

=xlnone mieux que =-4142 en fin de compte a voir 🙂

 

[mapomme]

Re : protection lignes

bonsoir laplayast, laetitia90,

En un plus compliqué. le code est dans Module1.