Note: The other languages of the website are Google-translated. Back to English

كيفية قفل أو إلغاء قفل الخلايا بناءً على القيم الموجودة في خلية أخرى في إكسيل؟

في بعض الحالات ، قد تحتاج إلى قفل الخلايا أو إلغاء تأمينها استنادًا إلى القيم الموجودة في خلية أخرى. على سبيل المثال ، تحتاج إلى إلغاء قفل النطاق 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 تلقائيًا.


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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (52)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكن قفل / إلغاء قفل خلية متغيرة على سبيل المثال عندما تكون الخلية [= INDEX (A16: L35، MATCH (W5، A16: A35,0،16)، MATCH ("PAY"، A16,0: LXNUMX،XNUMX))]
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد أمر VBA بسيطًا لا يمكنني اكتشافه ، الرجاء المساعدة
إذا كانت الخلية A1 هي Balnk ، فسيتم قفل الخلية A2 وإذا كانت الخلية A1 تحتوي على أي قيمة ، فسيتم إلغاء تأمين الخلية A2
وبالمثل ، إذا كانت الخلية A2 فارغة ، فسيتم تأمين الخلية A3 وإذا كانت الخلية A2 تحتوي على أي قيمة ، فسيتم إلغاء تأمين الخلية A3
وهكذا العديد من الخلايا حسب المتطلبات في أي جزء من الورقة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أحاول تحقيق ذلك ، لكني تلقيت خطأ مفاده أن VBA غير قادر على تعيين الخاصية Locked لفئة Range إذا كانت الورقة محمية. سيؤدي إلغاء حماية الورقة بعد ذلك إلى إبطال قفل الخلية. حول كيفية الحصول على هذا؟ شكرا على اي مساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل حللت؟ لدي نفس المشكلة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي المذكرة ،
الرجاء محاولة رمز VBA أدناه.

ورقة عمل فرعية خاصة_Activate ()
إذا لم يكن ActiveSheet.ProtectContents ثم
النطاق ("A1"). مغلق = خطأ
النطاق ("B1: B4"). مغلق = خطأ
إنهاء حالة
نهاية الفرعية
تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
Dim xRg كنطاق ، xRgA كمدى
على خطأ استئناف التالي
Application.EnableEvents = خطأ
تعيين xRg = Range ("B1: B4")
تعيين xRgA = النطاق ("A1")
إذا تقاطع (الهدف ، xRg). العنوان <> الهدف. العنوان _
أو xRgA = "القبول" ثم
Application.EnableEvents = صحيح
خروج الفرعية
ElseIf ActiveSheet.ProtectContents _
وتقاطع (الهدف ، xRg) = الهدف _
و xRgA.Value = "رفض" ثم
xRgA.Select
إنهاء حالة
Application.EnableEvents = صحيح
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ستحتاج إلى استخدام سطر الواجهة في المصنف ، لذلك عندما تفتح الملف ، فإنه يحمي الأوراق ولكنه يسمح لوحدات الماكرو بإجراء تغييرات على أي حال ؛

Private Sub Workbook_Open () 'ينتقل هذا إلى "ThisWorkbook"

أوراق العمل ("أداة الطلب"). حماية كلمة المرور: = "Pwd" ، UserInterFaceOnly: = صحيح

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي النملة ،
يمكن أن يساعدك رمز VBA أدناه في حل هذه المشكلة. شكرا لك على تعليقك.

ورقة عمل فرعية خاصة_Activate ()
إذا لم يكن ActiveSheet.ProtectContents ثم
النطاق ("A1"). مغلق = خطأ
النطاق ("B1: B4"). مغلق = خطأ
إنهاء حالة
نهاية الفرعية
تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
Dim xRg كنطاق ، xRgA كمدى
على خطأ استئناف التالي
Application.EnableEvents = خطأ
تعيين xRg = Range ("B1: B4")
تعيين xRgA = النطاق ("A1")
إذا تقاطع (الهدف ، xRg). العنوان <> الهدف. العنوان _
أو xRgA = "القبول" ثم
Application.EnableEvents = صحيح
خروج الفرعية
ElseIf ActiveSheet.ProtectContents _
وتقاطع (الهدف ، xRg) = الهدف _
و xRgA.Value = "رفض" ثم
xRgA.Select
إنهاء حالة
Application.EnableEvents = صحيح
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

هل من الممكن أن يكون VBA هذا يقفل مجموعة واحدة من الخلايا / يفتح مجموعة أخرى بناءً على ذلك؟ على سبيل المثال ، النطاق B1: B4 غير مؤمن و C1: C4 مؤمن من أجل "القبول" ثم يتم قفل B1: B4 و C1: C4 غير مؤمن بسبب "الرفض"؟


شكر،
المسيحية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي كريستيان ،
هل ورقة العمل الخاصة بك محمية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
من فضلك ، هل يمكن لأي شخص مساعدتي فيما يلي.
أريد إدراج صور الطالب في ورقة واحدة ، وتظهر في ورقة أخرى بناءً على أسمائهم
لإنشاء طائرة تنقل لمساعدة المستخدمين
لتعيين ورقة (أوراق) معينة للمستخدم
لإنشاء واجهة للمصنف
لإنشاء صفحة تسجيل الدخول
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي ليو ،
أي سؤال حول Excel ، من فضلك لا تتردد في النشر في منتدانا: https://www.extendoffice.com/forum.html.
ستحصل على المزيد من الدعم حول برنامج Excel من محترف Excel لدينا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

لقد جربت الكود الخاص بك وقمت بتحريره قليلاً ، لكن لا يمكنني معرفة الخطأ الذي أفعله هنا؟

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
إذا كان النطاق ("A40") <> "" ثم
المدى ("D40: E40"). مغلق = خطأ
نطاق ElseIf ("A40") = "" إذن
المدى ("D40: E40"). مغلق = صحيح
إنهاء حالة
نهاية الفرعية


كان رأيي في ذلك إذا لم يكن هناك شيء فيه (A40). ثم أريد أن مؤمن بواسطة VBA. إذا احتوت A40 على شيء ما ، فأنا أريد إلغاء قفله. آمل أن تتمكن من رؤية معنى ذلك.


تحياتي كريستوفر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
لا يوجد خطأ في التعليمات البرمجية الخاصة بك. انها تعمل جيدا بالنسبة لي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً. أنا أيضا لا أستطيع الحصول على هذا الرمز للعمل. لا تفعل شيئا على الاطلاق. كما لو أن الرمز غير موجود حتى ؟؟ أنا جديد جدًا على VBA ولدي فهم أساسي له. هل يتم تشغيل هذا الرمز كما هو ، أم يجب أن تتم إضافة أشياء إليه أيضًا حتى يتم تشغيله؟ أو تحولت إلى ماكرو (الذي لا أفهم السبب حقًا لأن هذا هو تسجيل للتعليمات ، بناءً على فهمي لها)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا سيكون الرمز إذا أردت قفل الخلية E1 ، E2 ، E3 .............. للنص المحدد (لنقول "P") على الخلية B1 ، B2 ، B3 ... ..............على التوالى.

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

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
إذا كان Target.Count = 1 ثم
If Target.Address = Range ("A1"). Address And Target.Value = "A" ثم
النطاق ("B1"). مغلق = صحيح
ElseIf Target.Address = Range ("A2"). Address And Target.Value = "A" ثم
النطاق ("B2"). مغلق = صحيح
ElseIf Target.Address = Range ("A3"). Address And Target.Value = "A" ثم
النطاق ("B3"). مغلق = صحيح
إنهاء حالة
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد!
Мне тоже необходимо заблокировать значение, но только в одной ячейке в зависимости от значения в другой, я попробовала использовать код в комментарии выше, но он не работает(оставила только один параметр для блокировки), но он у меня не работает - при этом нет сообщения об ошибке، ячейка، которая должна быть заблокирована - просто не блокируется، остается активной. В ем может быть причина؟

от код، который я использовала:

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
إذا كان الهدف t = 1 ثم
إذا كان Target.Address = Range ("C9"). Address And Target.Value = "согласно плану" ثم
المدى ("C10"). مغلق = صحيح
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا الشبح ،
أنا آسف لأنني لا أفهم تمامًا ما تعنيه. للتوضيح ، يرجى إرفاق نموذج ملف أو لقطة شاشة ببياناتك والنتائج المرجوة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! بحاجة الى بعض النصائح.
هل هناك طريقة لعدم السماح بتحديث خلية ما لم تفي بشرط في خلية أخرى؟
نموذج: إذا لم يتم تحديث الخلية A ، فلن تسمح لي بتغيير قيمة الخلية B لإكمالها.

نقدر ردود الفعل.
شكر!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزتي مارجي ،
يرجى المحاولة أدناه رمز VBA.

خافت PreVal كسلسلة
خافت NextVal كسلسلة
ورقة عمل فرعية خاصة_Activate ()
PreVal = النطاق ("A1")
NextVal = المدى ("A1")
نهاية الفرعية
ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
إذا (Target.Count = 1) و (Target.Address = "$ A $ 1") ثم
NextVal = المدى ("A1")
إنهاء حالة
نهاية الفرعية
تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
إذا كان Target.Count = 1 ثم
إذا كان Target.Address = "$ A $ 1" إذن
PreVal = النطاق ("A1")
ElseIf (Target.Address = "$ B $ 1") ثم
إذا كان PreVal = NextVal ثم
Application.EnableEvents = خطأ
النطاق ("A1"). حدد
Application.EnableEvents = صحيح
إنهاء حالة
إنهاء حالة
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكن لبعض واحد تصحيح هذا الثابتة والمتنقلة >>>

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
ل7 = الأول ل100
If Range ("Cells (D، i)") = "Loan" ثم
Range ("Cells (V، i): Cells (X، i)"). مغلق = صحيح
نطاق ElseIf ("الخلايا (D، i)") = "المدخرات"
Range ("Cells (Q، i): Cells (U، i)"). مغلق = صحيح
Range ("Cells (W، i): Cells (X، i)"). مغلق = صحيح
نطاق ElseIf ("الخلايا (D، i)") = "ShareCap" ثم
Range ("Cells (Q، i): Cells (U، i)"). مغلق = صحيح
Range ("Cells (V، i)"). مغلق = صحيح
إنهاء حالة
أنا القادم
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! هل يستطيع احد مساعدتي؟ لا بد لي من قفل / تجميد خلية. هذه الخلية مرتبطة بخلية أخرى ولها قيمة تتغير كل دقيقة. ما أفعله هو الاحتفاظ بالقيمة لمدة دقيقة / ساعة معينة. كيف يمكنني عمل ذلك بدون نسخه ولصقه كقيمة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزتي ميرا ،
معذرة لا تستطيع المساعدة في هذا ، يمكنك نشر سؤالك في منتدانا: https://www.extendoffice.com/forum.html للحصول على المزيد من دعم Excel من المحترفين لدينا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
أنا جديد حقا على هذا.
لقد كنت أحاول وضع نظام فواتير معًا في Excel.
لقد صنعت 3 أوراق.
1. نموذج الفاتورة (الفاتورة) - مجرد فاتورة عامة يتم إرسالها إلى وكلائي أسبوعياً.

2. ورقة بيانات (ورقة بيانات) على وجه الدقة - حيث يمكن للفاتورة قراءة عنوان اسم الشركة وما إلى ذلك ، لذلك إذا تغير أي شيء ، فسيتم تحديث الفاتورة تلقائيًا.

3. علامة تبويب التقويم (التقويم 2018) على وجه الدقة - المشار إليها في قالب الفاتورة ، وتضع التاريخ المطابق ورقم الفاتورة في الفواتير الفعلية.

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

أتمنى أن تفهموا يا رفاق ما أحاول القيام به.
شكرا مقدما.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي أندو فيريس.
يمكن أن يساعدك رمز VBA أدناه. يرجى وضع الكود في نافذة كود الورقة في التقويم 2018 ، قم بتغيير A1 إلى الخلية المنسدلة. شكرًا لك.

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
خافت xRg كمدى
على خطأ استئناف التالي
تعيين xRg = تقاطع (الهدف ، النطاق ("A1"))
إذا كان xRg لا شيء ، فاخرج من Sub
إذا كان الهدف .Validation.Type> = 0 ثم
If Target.Value = "Closed" ثم
أوراق ("ورقة البيانات"). حماية
ElseIf xRg.Value = "نشط" ثم
أوراق ("ورقة البيانات")
إنهاء حالة
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أقوم بإعداد إدارة مخزون المستودعات في نموذج Excel. لتسليم مخزون ، يتعين علي إصدار تصريح دخول ، أريد أن يتم تحديث البيانات المقابلة في صفحة أخذ المخزون اليومية مع تغيير رقم مرور البوابة التسلسلي ، سيتم قفل الصف التالي وسيتم ملؤه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
سيكون لطيفا إذا كان يمكنك تحميل المصنف الخاص بك هنا. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك أن ترشدني إلى ما هو الخطأ هنا من فضلك؟ شكرا لكم مقدما.

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
إذا كان النطاق ("K: K") = "OVER STOCK" ثم
المدى ("S: S"). مغلق = صحيح
نطاق ElseIf ("K: K") = "SLOW MOVING" ثم
المدى ("S: S"). مغلق = صحيح
نطاق ElseIf ("K: K") = "NORMAL" ثم
المدى ("S: S"). مغلق = خطأ
نطاق ElseIf ("K: K") = "SHORTAGE" ثم
المدى ("S: S"). مغلق = خطأ
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك أن تنصحني بكيفية تصحيح هذا؟ شكرا لكم مقدما.

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
إذا كان النطاق ("أ: أ") = "حركة بطيئة" ثم
المدى ("B: B") مغلق = صحيح
نطاق ElseIf ("A: A") = "OVER STOCK" ثم
المدى ("B: B") مغلق = صحيح
نطاق ElseIf ("A: A") = "NORMAL" ثم
النطاق ("B: B"). مغلق = خطأ
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لست خبيرًا في VB ، أود أن أقول إن لديك عددًا كبيرًا جدًا من "Elseif" - إذا قمت بتغييرهم جميعًا إلى IF فقط باستثناء الأخير ، فآمل أن ينجح ذلك.
بشكل أساسي إذا قام X بهذا ، إذا قام Y بذلك ، إذا قام Z بذلك ، إذا لم يفعل أي من هؤلاء - افعل هذا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف سيكون الرمز إذا أردت قفل كتلة من الخلايا (الصفوف 6 و 7 و 8 / أحرف D إلى U بالإضافة إلى الخلايا F5 و J5) وجعلها تفتح عندما أضع علامة "X" في الخلية E5؟ شكرا لك مقدما!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ميتشي ،
هل تقصد أن كتلة الخلايا المحددة قد تم قفلها يدويًا مسبقًا وتريد فقط فتحها بكتابة "X" في الخلية E5؟
في حالة إزالة "X" من الخلية E5 ، هل تريد قفل النطاقات مرة أخرى؟
أحتاج المزيد من التفاصيل عن المشكلة.
شكرا لتعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ميتشل (أو أي شخص آخر) ، المبنى من Crystal. لقد قمت بقفل جميع الخلايا يدويًا واستنادًا إلى المعلومات الواردة في العمود G ، أود أن تظل مقفلة أو غير مقفلة. يجب إلغاء تأمين خلايا المثال في العمود H فقط إذا تم وضع "c / p" في الخلية السابقة في العمود G
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكن قفل خلية عندما تصل إلى قيمة معينة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل يمكنك التفضل بالتحقق من سبب عدم نجاحها؟

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
إذا كان النطاق ("A3: A37"). القيمة <> "" ثم
النطاق ("B3: B37"). مغلق = صحيح
نطاق ElseIf ("A3: A37") = "" بعد ذلك
النطاق ("B3: B37"). مغلق = خطأ
إنهاء حالة

إذا كان النطاق ("B3: B37"). القيمة <> "" ثم
النطاق ("A3: A37"). مغلق = صحيح
نطاق ElseIf ("B3: B37") = "" ثم
النطاق ("A3: A37"). مغلق = خطأ
إنهاء حالة

نهاية الفرعية


شكرا جزيلا لك مقدما!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hi
لقد حاولت للتو استخدام الكود أعلاه
وتقول خطأ من النوع 13 عندما أحاول استخدامه.
هل يمكنك مساعدتي في هذا؟

شكرا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
ما هو إصدار Excel الذي تستخدمه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
hi

إذا كنت بحاجة إلى قفل خلية في الورقة 2 (الخلية C4) بناءً على مطالبة من الورقة 1 (الخلية C1) ،
إذا كانت "لا" على الورقة 1 C4 ؛ يجب قفل الورقة 2 ويجب أن تنقل القيمة من الورقة 1 C4 ،
إلى الورقة 2 C4.

إذا كانت الإجابة "نعم" في الورقة 1 ، يجب أن أكون قادرًا على الكتابة في الخلية في الورقة 2

شكرا بنت
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، من فضلك أي شخص يساعدني في كود VBA.

إذا حددت من القائمة المنسدلة في نطاق الخلية (A1: A1000) "abc" ثم لا أقفل النطاق (D1: D1000) إلى (F1: F1000)



إذا حددت من القائمة المنسدلة في نطاق الخلية (A1: A1000) "abc" ثم لا أقفل النطاق (D1: D1000) إلى (F1: F1000)



إذا اخترت من القائمة المنسدلة في نطاق الخلية (A1: A1000) "abc" ، فقم بإغلاق النطاق (D1: D1000) إلى (F1: F1000)



على سبيل المثال ، الخلية A1 المعنية لـ D1 إلى F1



A2 لـ D2 إلى F2
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بنسخ كل شيء من الأعلى إلى ورقة. لقد نجحت لمدة ثانية والآن أتلقى الخطأ "غير قادر على تعيين خاصية Locked لفئة Range". حتى أنني فتحت ورقة جديدة كاملة ونسخت مثالك حرفيًا. اي فكره تعتمد عليها؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

أحتاج صالحك. عندما أحدد لا خيار من خلية أريد أن تكون الأعمدة أدناه مؤمنة / رمادية اللون.

هل هذا ممكن؟ لقد جربت هذه الصيغة ولكن لم أتمكن من العمل

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)

إذا كان النطاق ("D90") = "نعم" إذن

النطاق ("C94: F104"). مغلق = خطأ

نطاق ElseIf ("D90") = "لا" بعد ذلك

النطاق ("C94: F104"). مغلق = صحيح

إنهاء حالة

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا شتيفي ،
الكود يعمل بشكل جيد.
إذا كنت تريد قفل نطاق الخلايا لمنع التحرير ، فأنت بحاجة إلى حماية ورقة العمل يدويًا بعد تحديد لا يوجد خيار في D90.
ونظرًا لوجود D90 في النطاق C94: F104 ، بعد حماية ورقة العمل ، لا يمكن تحرير D90 أيضًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
D90 ليس في النطاق. إنه 4 صفوف فوق C94
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL