كود صغير جدا و لكن مفيد جدا_Cells.Locked_تأمين الخلية بعد الكتابة فيها ((تلقائيا))

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة    

 

تم ارفاق كود الحل من الفاضل _ ا /  ابو اسامة العينبوسي

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

 

 و لا تنسونا من صالح الدعاء

تحياتى

تم تعديل ديسمبر 8, 2016 بواسطه جلال الجمال_ابو أدهم

[منياوى]

تم تعديل ديسمبر 22, 2016 بواسطه منياوى

[ميدو63]

اشكرك وجارى التجربة

[جلال الجمال_ابو أدهم]

منياوى

ميدو63

تحياتى و ايام مباركة