تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة
تم ارفاق كود الحل من الفاضل _ ا / ابو اسامة العينبوسي
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets(1).Protect Password:="Secret", UserInterfaceOnly:=True
Sheets(1).Cells.Locked = True
If Sheets(1).Cells(ActiveCell.Row, ActiveCell.Column).Value = vbNullString Then Sheets(1).Cells(ActiveCell.Row, ActiveCell.Column).Locked = False
End Sub
مرفق الملف
Lock.zip
و لا تنسونا من صالح الدعاء
تحياتى