@Hajo-locked Eigenschaft

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1")  0 Then Range("A2:A3") = Locked
End Sub

..läuft genauso wie :
If Range("A1") 0 Then Range("A2:A3").ClearContents
Gruß steffen
End Sub