Hücreyi Kilitlemede Macro Sorunu

[aykut12344]

Arkadaşlar C sütunundaki hücrelere değer girilmesini engellemek yani kilitlemek istiyorum Sayfa kilitleme ile yaptığımda macro çalışma hatası veriyor. Macro C sütuna otomatik saat ve tarih değeri giriyor Başka türlü macro kodla kilitlemeyi yapabilir miyim ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column + 1) = Date & " - " & Time
End Sub

Aldığım hata mesajı aşağıda:

Aldığım hata run-time error '1004'

Nesne başvurusu bir nesnenin öğelerine ayarlanmadı