Çözüldü Veri Girilen Hücreyi Kilitli Hale Getirme

[snncck]

B ve G sütunlarında veri girilip sonraki satıra inildiğinde yalnızca veri girilen hücrenin kilitlenmesini istiyorum.
Tablonun hemen hemen tamamı kilitli. Yalnızca 2 sütun veri girişine müsait.
Kayıtlar tek seferlik olsun, sonradan girilip değişiklik yapılamasın istiyorum.
Tablo ektedir. Yardımcı olabilir misiniz?

Fiş Takip Dosyası
Tablo Görseli

 

[snncck]

Kendin sordum ancak yine kendim çözdüm.
Bunu kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect 12345
If ActiveCell <> "" Then Selection.Locked = True
If ActiveCell = "" Then Selection.Locked = False
ActiveSheet.Protect 12345
End Sub