جلال الجمال_ابو أدهم قام بنشر ديسمبر 8, 2016 مشاركة قام بنشر ديسمبر 8, 2016 (معدل) تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل _ ا / ابو اسامة العينبوسي 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 بواسطه جلال الجمال_ابو أدهم 4 رابط هذا التعليق شارك More sharing options...
منياوى قام بنشر ديسمبر 22, 2016 مشاركة قام بنشر ديسمبر 22, 2016 (معدل) تم تعديل ديسمبر 22, 2016 بواسطه منياوى رابط هذا التعليق شارك More sharing options...
ميدو63 قام بنشر يناير 7, 2017 مشاركة قام بنشر يناير 7, 2017 اشكرك وجارى التجربة رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر يناير 8, 2017 الكاتب مشاركة قام بنشر يناير 8, 2017 منياوى ميدو63 تحياتى و ايام مباركة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.