كيفية قفل أو إلغاء قفل الخلايا بناءً على القيم الموجودة في خلية أخرى في إكسيل؟
في بعض الحالات ، قد تحتاج إلى قفل الخلايا أو إلغاء تأمينها استنادًا إلى القيم الموجودة في خلية أخرى. على سبيل المثال ، تحتاج إلى إلغاء قفل النطاق B1: B4 إذا كانت الخلية A1 تحتوي على القيمة "Accepting" ؛ ويتم قفلها إذا كانت الخلية A1 تحتوي على القيمة "رفض". كيف يمكنك أن تفعل لتحقيق ذلك؟ هذه المقالة يمكن أن تساعدك.
قفل الخلايا أو إلغاء تأمينها استنادًا إلى القيم الموجودة في خلية أخرى باستخدام رمز VBA
قفل الخلايا أو إلغاء تأمينها استنادًا إلى القيم الموجودة في خلية أخرى باستخدام رمز VBA
يمكن أن يساعدك رمز VBA التالي في تأمين الخلايا أو إلغاء تأمينها استنادًا إلى القيمة الموجودة في خلية أخرى في Excel.
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة (الورقة التي تحتوي على خلايا تريد قفلها أو إلغاء تأمينها استنادًا إلى القيم الموجودة في خلية أخرى) ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.
2. ثم انسخ والصق رمز فبا التالي في نافذة التعليمات البرمجية.
رمز فبا: قفل الخلايا أو إلغاء تأمينها استنادًا إلى القيم الموجودة في خلية أخرى
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "Accepting" Then
Range("B1:B4").Locked = False
ElseIf Range("A1") = "Refusing" Then
Range("B1:B4").Locked = True
End If
End Sub
3. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا ، عند إدخال القيمة "قبول" في الخلية A1 ، يتم إلغاء تأمين النطاق B1: B4.
عند إدخال قيمة "رفض" في الخلية A1 ، يتم تأمين النطاق المحدد B1: B4 تلقائيًا.
افتح Excel Magic باستخدام Kutools AI
- التنفيذ الذكي: تنفيذ عمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك مدفوع بأوامر بسيطة.
- الصيغ المخصصة: قم بإنشاء صيغ مخصصة لتبسيط سير عملك.
- ترميز VBA: كتابة وتنفيذ كود VBA دون عناء.
- تفسير الصيغة: فهم الصيغ المعقدة بسهولة.
- ترجمة النص: كسر حواجز اللغة داخل جداول البيانات الخاصة بك.
مقالات ذات صلة:
- كيفية قفل جميع مراجع الخلايا في الصيغ مرة واحدة في إكسيل؟
- كيفية قفل أو حماية الخلايا بعد إدخال البيانات أو إدخالها في Excel؟
- كيفية قفل الصورة / الصورة في الخلية أو داخلها في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!