Verouiller une ligne quand une des cellules est "ok"

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns(4)) Is Nothing Then Exit Sub
Dim cel As Range
Unprotect '+éventuellement mot de passe
For Each cel In Intersect(Target, Columns(4), Me.UsedRange) 'en cas de sélection d'une plage
 If UCase(cel) = "OK" Then cel.EntireRow.Locked = True
Next
Protect '+éventuellement mot de passe
End Sub

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal selection As Range)
    
    
    If selection.Column = 4 Then 'réduction du test à la colonne
        If selection.Rows.Count = 1 And selection.Columns.Count = 1 Then
            If LCase(selection.Value) = "ok" Then
                 
                ActiveSheet.Unprotect
                Rows(selection.Row).Locked = True
                ActiveSheet.Protect
            Else
                'si l'on veut enlever la protection :
                'ActiveSheet.Unprotect
                'Rows(selection.Row).Locked = False
                'ActiveSheet.Protect
           
            
            End If
        End If
    End If
End Sub

If UCase(cel) = "FIN" Then Range(Cells(cel.Row, 2), Cells(cel.Row, 37)).Locked = True

If UCase(cel) = "FIN" Then [COLOR="Red"]Intersect(cel.EntireRow, Columns("S:AK")).[/COLOR]Locked = True