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