كيفية إزالة الماكروهات من Excel (دليل كامل)

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

• عن طريق حفظ الملف بتنسيق xlsx
• مع خيار النقرة الواحدة الذي توفره Kutools

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

أشياء يجب معرفتها قبل إزالة الماكروهات في Excel

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

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

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

إزالة ماكرو محدد

الخطوة 1: فتح مربع الحوار الماكرو

انتقل إلى علامة التبويب المطور وحدد الماكروهات لفتح مربع الحوار الماكرو. (إذا لم تكن علامة التبويب المطور مرئية في Excel الخاص بك، انظر الملاحظة بعد الخطوات.)

الخطوة 2: تحديد وحذف ماكرو محدد

1. قم بتوسيع قائمة "الماكروهات في" واختر الوجهة المرغوبة التي تريد إزالة الماكروهات منها.
2. من قائمة الماكروهات، حدد الماكرو الذي تريد إزالته.
3. انقر فوق حذف.
4. 

حذف جميع الماكروهات من مصنف

في الحالات التي تحتاج فيها إلى إزالة جميع الماكروهات من مصنف، إليك طريقتان:

حذف جميع الماكروهات من مصنف عن طريق حفظ الملف بتنسيق xlsx

تنسيق "مصنف Excel (*.xlsx)" لا يدعم الماكروهات بطبيعته. وبالتالي، فإن حفظ مصنفك بهذا التنسيق المحدد سيؤدي إلى إزالة تلقائية لجميع الماكروهات المضمنة. لتنفيذ هذه الطريقة، يرجى المتابعة كما يلي:

1. انتقل إلى ملف > حفظ باسم.
2. قم بتوسيع قائمة نوع الملف واختر "مصنف Excel (*.xlsx)" التنسيق.
   نصيحة: يمكنك إدخال اسم جديد لملف .xlsx في مربع النص الموجود أعلى القائمة المنسدلة. لحفظ الملف في موقع آخر، انقر فوق تصفح.
3. انقر حفظ.

   

   ملاحظة: قد تختلف واجهة حفظ باسم عبر إصدارات Excel المختلفة. إذا لم تشاهد الجزء الأيمن كما هو موضح أعلاه، حيث يتم اختيار تنسيق الملف، يمكنك دائمًا النقر فوق تصفح ثم اختيار تنسيق "مصنف Excel (*.xlsx)".

4. في مربع الحوار الذي يظهر، حدد نعم.
5. 

النتيجة

نتيجة لذلك، يتم حفظ ملف جديد بتنسيق ".xlsx" بدون ماكروهات. سيأخذ هذا الملف اسم الملف الأصلي .xlsm وسيتم حفظه في نفس الموقع.

حذف جميع الماكروهات من مصنف باستخدام خيار النقرة الواحدة المقدم من Kutools

Kutools لـ Excel، وهو إضافة متقدمة لـ Excel، يقدم للمستخدمين خيار النقرة الواحدة لإزالة جميع الماكروهات المضمنة في مصنف بسهولة. بنقرة واحدة، يمكنك مسح وحدات VBA، نماذج المستخدم، أوراق الحوار Excel 5/95، وأوراق الماكرو XLM الخاصة بـ Excel 4.

بمجرد فتح المصنف الذي يحتوي على الماكروهات التي تريد حذفها، انتقل إلى علامة التبويب Kutools، وحدد حذف > إزالة جميع الماكروهات. وهكذا، لقد انتهيت!

حذف جميع الماكروهات من عدة مصنفات

عند مواجهة مهمة إزالة الماكروهات من عدة مصنفات، هناك طريقتان يمكنك اتباعهما:

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

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

الخطوة 1: إنشاء وحدة جديدة

1. اضغط على Alt + F11 لفتح محرر Visual Basic for Applications (VBA).
2. انقر فوق إدراج > وحدة لإنشاء وحدة جديدة.
3. 

الخطوة 2: نسخ كود VBA إلى نافذة الوحدة

انسخ الكود VBA أدناه والصقه في نافذة الوحدة المفتوحة.

Sub RemoveMacrosFromWorkbooks()
' Update by ExtendOffice

    Dim wb As Workbook
    Dim FolderPath As String
    Dim filename As String
    Dim VBComp As Object
    Dim VBProj As Object

    With Application.FileDialog(msoFileDialogFolderPicker)
        .title = "Select a folder"
        .Show
        If .SelectedItems.Count = 0 Then
            MsgBox "No folder selected. The procedure will exit.", vbExclamation
            Exit Sub
        End If
        FolderPath = .SelectedItems(1)
    End With

    If Right(FolderPath, 1) <> "\" Then FolderPath = FolderPath + "\"

    filename = Dir(FolderPath & "*.xls*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error Resume Next
    Do While filename <> ""
        Set wb = Workbooks.Open(FolderPath & filename)

        If wb.HasVBProject Then
            Set VBProj = wb.VBProject
            
            For Each VBComp In VBProj.VBComponents
                VBProj.VBComponents.Remove VBComp
            Next VBComp
        End If

        wb.Close SaveChanges:=True

        filename = Dir
    Loop
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "Macros removal completed!", vbInformation

End Sub

الخطوة 3: تشغيل كود VBA

1. في نافذة الوحدة اضغط F5 أو انقر فوق الزر لتنفيذ الكود الملصق.
2. في نافذة تحديد مجلد التي تظهر، حدد المجلد الذي يحتوي على المصنفات التي ستزيل منها الماكروهات، ثم انقر فوق موافق.
3. 

النتيجة

بعد أن ينتهي الماكرو من معالجة جميع ملفات Excel في المجلد المحدد وإزالة الماكروهات منها، ستظهر لك رسالة "اكتملت إزالة الماكروهات!"

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

Kutools لـ Excel يوفر طريقة سهلة الاستخدام لإزالة جميع الماكروهات من عدة مصنفات. بالنسبة لأولئك الذين يترددون أو غير مألوفين بتقنيات VBA، فإن Kutools يمثل بديلاً مثاليًا. باستخدام هذه الأداة، يمكن إزالة وحدات VBA، نماذج المستخدم، أوراق الحوار Excel 5/95، وأوراق الماكرو XLM الخاصة بـ Excel 4 بسهولة.

بعد تنزيل وتثبيت Kutools لـ Excel، تابع الخطوات التالية:

1. حدد Kutools > حذف > إزالة جميع الماكروهات دفعة واحدة.
2. 
2. في مربع الحوار إزالة جميع الماكروهات دفعة واحدة الذي يظهر، يتم سرد جميع المصنفات المفتوحة لإزالة الماكروهات. إليك ما تحتاج إلى القيام به بعد ذلك:
   1. لإضافة المزيد من المصنفات لإزالة الماكروهات، انقر فوق الزر إضافة، واختر إما ملف أو مجلد.
   2. إذا كان هناك أي مصنفات تريد استبعادها من عملية إزالة الماكروهات، انقر فوق الزر لإزالةها.
   3. بمجرد إدراج جميع المصنفات المطلوبة لإزالة الماكروهات في مربع الحوار، انقر فوق موافق.
   4. 

النتيجة

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

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

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

• كيفية تشغيل ماكرو بناءً على قيمة الخلية في Excel؟
• كيفية تشغيل ماكرو عندما تتغير قيمة الخلية في Excel؟
• كيفية تشغيل نفس الماكرو على عدة أوراق عمل في نفس الوقت في Excel؟