كيفية قفل وفتح الخلايا المحددة باستخدام مربع اختيار في إكسيل؟
تتحدث هذه المقالة عن استخدام مربع اختيار لقفل وفتح مجموعة من الخلايا المحددة في 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؟
- كيفية إنشاء قائمة منسدلة مع مربعات اختيار متعددة في إكسيل؟
- كيفية تمييز الخلية أو الصف مع خانة الاختيار في إكسيل؟
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
