البحث في الموقع
Showing results for tags 'حماية و فك حماية ورقة عمل'.
تم العثور علي 1 نتيجه
-
تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة حماية الاعمدة بضغط علي زر checkbox و مشاركة اخرى لنفس الموضوع حماية مجموعة من الخلايا باستخدام Check Box تم ارفاق كود الحل من الفاضل _ أ / أبوعبد الله بالملف رصد نصف العام.rar و مشاركة اخرى من الفاضل _ أ / هشام شلبى بالملف New ورقة عمل Microsoft Excel (2).rar يمكن تعديل الكود لحماية مجموعة من الخلايا وليس الشيت كله باستخدام الكود Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Selection.Locked = False Range("E7:E1000").Select Selection.Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ElseIf CheckBox1.Value = False Then ActiveSheet.Unprotect End If End Sub لتتم الحماية على المدى من E7:E1000 مثلا و لا تنسونا من صالح الدعاء