بالكود_حماية و فك حماية ورقة عمل او عمود او نطاق_عن طريق Check Box

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

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

حتى لا ننسى هذه المشاركة   حماية الاعمدة بضغط علي زر 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 مثلا                               

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