Verrouiller des lignes VBA

Bonjour,

J'aimerais par un choix ( verrouiller/déverrouiller) de la liste déroulante colonne V

verrouiller ou déverrouiller la ligne

Cordialement Yannis

Bonjour Yannis111, le forum,

Un essai.....(code à placer dans le module de la feuille)...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:U196")) Is Nothing Then
  If Target.Count > 1 Then Exit Sub
   cancel = True
    If Cells(Target.Row, 22) = "VERROUILLER" Then
     Application.EnableEvents = False
     Application.Undo
      MsgBox "Aucune modification  possible car la ligne est verrouillée!", vbInformation
     Application.EnableEvents = True
    End If
 End If
End Sub

Cordialement,