Как удалить макросы из 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» без макросов будет сохранен. Этот файл .xlsx примет имя исходного файла .xlsm и будет сохранен в том же месте.

Удаление всех макросов из книги с помощью однократного варианта, предоставленного Kutools

Kutools для Excel, расширенный дополнительный модуль Excel, предоставляет пользователям возможность одним щелчком легко удалять все внедренные макросы в книге. Одним кликом вы можете очистить модули VBA, формы пользователя, диалоговые листы Excel 5/95 и рабочие листы макросов Excel 4 XLM.

После открытия книги, содержащей макросы, которые вы хотите удалить, перейдите на вкладку 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. В появившемся окне Выбор папки выберите папку, содержащую книги, из которых вы хотите удалить макросы, и нажмите OK.
3. 

Результат

После завершения обработки всех файлов Excel в выбранной папке и удаления макросов из них вы увидите сообщение «Удаление макросов завершено!».

Удаление всех макросов из любых конкретных книг с помощью Kutools

Kutools для Excel предоставляет удобный способ удаления всех макросов из нескольких книг. Для тех, кто колеблется или не знаком с техниками VBA, Kutools является идеальной альтернативой. С этим инструментом в вашем распоряжении модули VBA, формы пользователя, диалоговые листы Excel 5/95 и рабочие листы макросов Excel 4 XLM могут быть удалены без усилий.

После загрузки и установки Kutools для Excel выполните следующие шаги:

1. Выберите Kutools > Удалить > Пакетное удаление всех макросов.
2. 
2. В Пакетное удаление всех макросов диалоговом окне, которое появится, все открытые книги будут перечислены для удаления макросов. Вот что вам нужно сделать дальше:
   1. Чтобы добавить больше книг для удаления макросов, нажмите кнопку Добавить и выберите Файл или Папка.
   2. Если есть книги, которые вы хотите исключить из процесса удаления макросов, нажмите кнопку для их удаления.
   3. После того, как вы перечислили все желаемые книги для удаления макросов в диалоговом окне, нажмите OK.
   4. 

Результат

Появится новое диалоговое окно, указывающее, сколько книг Kutools обработал для удаления макросов. После нажатия OK, будет сгенерирована автоматическая сводная книга, чтобы обобщить результаты.

Выше представлен весь соответствующий контент, связанный с удалением макросов в Excel. Надеюсь, вы найдете это руководство полезным. Если вы хотите изучить больше советов и приемов Excel, пожалуйста, нажмите здесь, чтобы получить доступ к нашей обширной коллекции из тысяч учебников.

Связанные статьи

• Как запустить макрос на основе значения ячейки в Excel?
• Как запустить макрос при изменении значения ячейки в Excel?
• Как запустить один и тот же макрос на нескольких листах одновременно в Excel?