كيف يمكنني إزالة جميع أزرار الأوامر أو الأزرار في 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 لتشغيل محررمايكروسوفت فيجوال بيسك للتطبيقات (VBA).

2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انقرإدراج > وحدة نمطية. ثم انسخ والصق كود 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 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

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

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

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

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

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

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

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   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...تنزيل مجاني...