كيفية قفل وفتح الخلايا المحددة باستخدام مربع اختيار في إكسيل؟

تتحدث هذه المقالة عن استخدام مربع اختيار لقفل وفتح مجموعة من الخلايا المحددة في Excel.

قفل وإلغاء تأمين الخلايا المحددة باستخدام مربع اختيار باستخدام رمز VBA

قفل وإلغاء تأمين الخلايا المحددة باستخدام مربع اختيار باستخدام رمز VBA

يمكن أن يساعدك البرنامج النصي VBA أدناه في فتح أو قفل نطاق من الخلايا المحددة عند تحديد خانة الاختيار أو إلغاء تحديدها في ورقة العمل. الرجاء القيام بما يلي.

1. أولاً ، تحتاج إلى تحديد اسم لمجموعة الخلايا التي تريد قفلها وإلغاء قفلها باستخدام مربع اختيار.

هنا أحدد النطاق A1: A14 ، اكتب اسمًا LockRng في الاسم مربع ، ثم اضغط على أدخل مفتاح. انظر لقطة الشاشة:

2. في ورقة العمل تحتوي على خانة الاختيار التي ستستخدمها لتأمين الخلايا وإلغاء تأمينها ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.

ملاحظات: يجب أن تكون خانة الاختيار خانة اختيار ActiveX عند الإدراج.

3. في ظهرت ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز فبا أدناه في رمز نافذة.

رمز فبا: قفل أو إلغاء قفل نطاق من الخلايا المحددة بمربع اختيار

Private Sub CheckBox1_Click()
    Range("LockRng").Select
    On Error Resume Next
    If CheckBox1.Value = True Then
        Selection.Locked = Fals
        MsgBox "Range cells " & Selection.Address & " has been unlocked", vbInformation, "Kutools for Excel"
    Else
        Selection.Locked = True
        MsgBox "Range cells " & Selection.Address & " has been locked", vbInformation, "Kutools for Excel"
    End If
End Sub

ملاحظات: في الكود ، Checkbox1 هو اسم خانة الاختيار ، LockRng هو اسم خلية النطاق المحددة. يمكنك تغييرها كما تريد.

4. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

الآن يمكنك اختبار الكود. عند إلغاء تحديد خانة الاختيار ، فإن ملف كوتولس ل إكسيل سيظهر مربع الحوار ليخبرك أن النطاق المحدد قد تم قفله ، يرجى النقر فوق OK .

أثناء تحديد مربع الاختيار ، سيتم إلغاء قفل جميع الخلايا في النطاق المحدد وستحصل على ملف كوتولس ل إكسيل مربع الحوار على النحو المبين أدناه لقطة الشاشة اليمنى.

مقالات ذات صلة:

• كيفية تصفية البيانات على أساس خانة الاختيار في إكسيل؟
• كيفية إخفاء مربع الاختيار عندما يكون الصف مخفيًا في Excel؟
• كيفية إنشاء قائمة منسدلة مع مربعات اختيار متعددة في إكسيل؟
• كيفية تمييز الخلية أو الصف مع خانة الاختيار في إكسيل؟