انتقل إلى المحتوى الرئيسي

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

تتحدث هذه المقالة عن استخدام مربع اختيار لقفل وفتح مجموعة من الخلايا المحددة في 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 .

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


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

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations