Kolay Gelsin;
Excel bir çalışmam daha var, Sözleşme tarihi var veya yok durumunda yandaki sütun (Sözleşme Tarihi) kısmına; sözleşme var ise giriş izin verirsin yok ise o hücreye ilgili personel arkadaşlar müdahale etmemesi için ne yapabilirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then 'sadece B,C sütununa bakar
Application.EnableEvents = False
On Error GoTo hata
Dim cll As Range
AdrX = Target.Address & ":" & Target.Address
xDz = Split(AdrX, "$")
ilk = xDz(2)
Son = Val(xDz(4))
If ilk = "1:" Then ilk = "2:"
If Son < 2 Then Son = 2
Set Trgt = Range("B" & ilk & "B" & Son)
For Each cll In Trgt
Set Rng = cll
If Rng.Offset(, -1) = "Var" Then Else Rng.Value = ""
Next cll
End If
hata:
Application.EnableEvents = True
End Sub