hele rij locken indien een cel in die rij een bepaalde waarde bevat

[vlotter33]

Beste ,
is het mogelijk om een hele rij automatisch te laten locken van zodra in die rij een cel een bepaalde waarde heeft?
Hartelijk dank voor jullie hulp

 

[Conseclusie]

Een mogelijke manier:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(Target.Row, 8) = 5 Then
    Range("A1").Select
    MsgBox "Rij is geblokkeerd.", vbCritical, "Rij geblokkeerd"
End If
End Sub

Hierbij verspringt de cursor automatisch naar A1 indien in de H-kolom van de gekozen rij de waarde 5 staat.