كيفية إزالة جميع الأزرار أو أزرار الأوامر في Excel؟

في بعض مصنفات Excel، قد تكون قد أضفت العديد من الأزرار—مثل أزرار عناصر التحكم في النموذج أو أزرار الأوامر ActiveX—لتنفيذ مهام مختلفة أو لأتمتة العمليات. مع مرور الوقت، قد تحتاج إلى إزالة هذه الأزرار، سواء بسبب تغييرات في تصميم ورقة العمل، تنظيف القوالب، أو إعداد الملف لمشاركته. إذا كانت هناك عدة أزرار منتشرة عبر ورقة العمل، فإن إزالتها يدويًا يمكن أن تكون عملية شاقة للغاية وعرضة للخطأ. يقدم هذا المقال عدة طرق عملية لإزالة جميع أزرار عناصر التحكم في النموذج أو أزرار الأوامر من الورقة النشطة في Excel، مما يساعدك على تنظيف مصنفك بسرعة ومنع التفاعلات غير الضرورية أو الحيرة للمستخدمين الآخرين.

إزالة جميع الأزرار باستخدام 'الانتقال إلى الخاص'
إزالة جميع الأزرار بما في ذلك أزرار عناصر التحكم في النموذج وأزرار الأوامر عن طريق تحديدها جميعًا
إزالة جميع الأزرار بما في ذلك أزرار عناصر التحكم في النموذج وأزرار الأوامر عن طريق كود VBA
إزالة جميع أزرار عناصر التحكم في النموذج أو أزرار الأوامر باستخدام كود VBA

إزالة جميع الأزرار باستخدام 'الانتقال إلى الخاص'

أسهل طريقة عملية لإزالة الأزرار—وخاصة أزرار عناصر التحكم في النموذج—هي استخدام ميزة 'الانتقال إلى الخاص' في Excel. هذه الطريقة لا تتطلب كتابة نصوص VBA ومناسبة للمستخدمين الذين يفضلون تجنب الكود لكنهم يريدون المزيد من التحكم أكثر من التحديد اليدوي. تعمل هذه الطريقة بشكل أفضل مع عناصر التحكم في النماذج، لكنها لن تزيل عناصر التحكم ActiveX.

1. حدد أي خلية ضمن ورقة العمل النشطة، ثم اضغط F5 لفتح مربع حوار 'الانتقال إلى'. انقر فوق 'خاص' في مربع الحوار.

2. في مربع الحوار التالي، اختر 'الكائنات'، وانقر فوق 'موافق'. سيتم تحديد جميع الكائنات الرسومية—بما في ذلك أزرار عناصر التحكم في النموذج—على الفور في ورقة العمل الخاصة بك.

3. اضغط زر 'حذف' لإزالة جميع الأزرار والكائنات المحددة.

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

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

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

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

1. قم بتمكين وضع 'تصميم' عن طريق النقر فوق 'المطور' > 'وضع التصميم' في الشريط. تأكد من أن كلاً من أزرار عناصر التحكم في النموذج وأزرار التحكم ActiveX يمكن تحديدها وإدارتها. إذا لم ترى علامة التبويب 'المطور'، قد تحتاج إلى تمكينها في 'ملف' > 'خيارات' > 'تخصيص الشريط'

2. انقر على أحد الأزرار (سواء كان زر التحكم في النموذج أو زر الأمر) في ورقة العمل لتحديده. بعد ذلك، أثناء الضغط باستمرار على مفتاح Ctrl، اضغط على مفتاح A (Ctrl + A) لتحديد جميع الأزرار والكائنات الأخرى الموجودة في ورقة العمل النشطة.

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

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

إزالة جميع الأزرار بما في ذلك أزرار عناصر التحكم في النموذج وأزرار الأوامر عن طريق كود VBA

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

1. افتح ورقة العمل التي تحتوي على الأزرار التي تريد إزالتها. اضغط Alt + F11 لتشغيل محرر Microsoft Visual Basic for Applications (VBA).

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق 'إدراج' > 'وحدة'. قم بنسخ ولصق الكود التالي لـ VBA في نافذة الوحدة.

كود VBA: إزالة جميع الأزرار من الورقة النشطة

Sub Clear_ButtonsActiveSheet()
    Dim I As Long
    Dim xOLE As Object
    On Error Resume Next
    ActiveSheet.Buttons.Delete
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3. اضغط على مفتاح F5 أو انقر على زر 'تشغيل' لتنفيذ الكود. فورًا، جميع أنواع الأزرار—بما في ذلك كل من عناصر التحكم في النموذج وأزرار الأوامر—ستُزال من الورقة النشطة حاليًا.

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

إزالة جميع أزرار عناصر التحكم في النموذج أو أزرار الأوامر باستخدام كود VBA

في بعض الحالات، قد تحتاج إلى إزالة أنواع معينة فقط من الأزرار—إما فقط أزرار عناصر التحكم في النموذج أو فقط أزرار الأوامر ActiveX، مع الاحتفاظ بالنوع الآخر. يمكن أن يساعدك هذا في ضبط وظائف ورقة العمل دون التأثير على الكائنات غير المتعلقة. أدناه حلول VBA منفصلة لكل حالة، مما يمنحك تحكمًا أكبر في الأزرار التي يتم حذفها.

1. افتح ورقة العمل التي تحتوي على الأزرار التي تريد إزالتها بشكل انتقائي، ثم اضغط Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في محرر VBA، انقر فوق 'إدراج' > 'وحدة' لإنشاء وحدة جديدة، ثم قم بنسخ ولصق أحد كود VBA التاليين، حسب نوع الأزرار التي تريد إزالتها.

كود VBA: إزالة جميع أزرار عناصر التحكم في النموذج من الورقة النشطة

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

كود VBA: إزالة جميع أزرار الأوامر من الورقة النشطة

Sub Clear_ButtonsActiveSheet()
    Dim xOLE As Object
    On Error Resume Next
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

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

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

باختصار، توفر Excel طرقًا مختلفة لإزالة الأزرار—إما يدويًا، باستخدام 'الانتقال إلى الخاص'، أو من خلال برامج نصية VBA—بحيث يمكنك اختيار الطريقة الأكثر ملاءمة لسيناريوك. إذا واجهت مشكلات مثل وجود أزرار لا يمكن إزالتها، تأكد من أن ورقة العمل غير محمية، أو تحقق مما إذا كانت عناصر التحكم جزءًا من كائنات مجمّعة. عند الحاجة إلى عمليات حذف جماعي أو عندما تحتاج بشكل متكرر إلى إزالة عناصر التحكم من صفحات متعددة، يمكن أن يوفر لك استخدام برامج نصية VBA الكثير من الوقت. دائمًا تذكر حفظ نسخة احتياطية من مصنفك قبل إجراء عمليات حذف جماعية لضمان إمكانية استعادة المحتوى المهم عند الحاجة.

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

• كيفية إدراج صف جديد فارغ تلقائيًا باستخدام زر الأمر في Excel؟
• كيفية استخدام زر الأمر لحفظ ورقة العمل النشطة كملف PDF في Excel؟
• كيفية تحديث أو إدراج (الحالي) التاريخ والوقت بواسطة زر الأمر في Excel؟
• كيفية استخدام زر الأمر لتغيير قيمة خلية محددة في Excel؟

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

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

استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

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

مزيد من التفاصيل حول Kutools لـ Excel... تنزيل مجاني...

---

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

• تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
• افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
• يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!

مزيد من التفاصيل حول Office Tab... تنزيل مجاني...

---

جميع إضافات Kutools. مثبت واحد

حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.

• حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
• مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
• الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
• تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
• قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد

مزيد من التفاصيل حول Kutools for Office... تنزيل مجاني...