Microsoft Excel предлага мощна функция под формата на макроси, които могат да автоматизират повтарящи се задачи и да изпълняват много операции, които вградените функции на Excel не могат да постигнат. Въпреки това има случаи, в които тези макроси могат да станат излишни или дори да представляват потенциални рискове за сигурността, особено когато споделяте вашата работна книга с други. За тези моменти разбирането как безопасно и ефективно премахване на макроси става от съществено значение. Това ръководство е създадено, за да ви преведе през разнообразните методи за премахване на макроси от вашите работни книги на Excel, като гарантира, че имате чист, рационализиран файл, когато е необходимо.

• Като запишете файла във формат xlsx
• С опция с едно щракване, предоставена от Kutools

• Премахване на макроси от работни книги в папка с VBA
• Премахнете макроси от всякакви конкретни работни книги с Kutools

Неща, които трябва да знаете, преди да премахнете макроси в Excel

• Когато отваряте работна книга с активирани макроси и се опитвате да премахнете макросите, първо трябва да щракнете върху Активиране на съдържанието бутон във вашата работна книга. Това е необходимо, преди да можете да продължите да ги изтривате.
• 

• Забележка: Ако не виждате този бутон, това е зелена светлина за вас да продължите и да изтриете макросите. Причината за липсата му може да е, ако сами сте създали работна книга с вградени макроси и сте я запазили. При повторно отваряне на тази работна книга на същия компютър и с непроменени настройки на Excel, the Активиране на съдържанието бутонът често не се показва. Това е така, защото файлът идва от надежден източник (вие) и се намира на надеждно място (вашият компютър).

• Моля, не забравяйте, че след като макрос бъде премахнат, възстановяването не е възможно. За да защитите работата си, препоръчително е да създадете резервно копие на вашата работна книга, преди да изтриете макроси.

Премахнете конкретен макрос

Стъпка 1: Отворете диалоговия прозорец Macro

Придвижете се до Софтуерен Инженер И изберете Макроси за да отворите Макро диалогов прозорец. (Ако Софтуерен Инженер не се вижда във вашия Excel, вижте бележката след стъпките.)

Стъпка 2: Изберете и изтрийте конкретния макрос

1. Разширете „Макроси в“ падащо меню и изберете желаната дестинация, откъдето да премахнете макросите.
2. От списъка с макроси изберете този, който искате да премахнете.
3. Кликнете Изтрий.
4. 

Изтрийте всички макроси от работна книга

В случаите, когато трябва да премахнете всички макроси от работна книга, ето два метода:

Изтрийте всички макроси от работна книга, като запишете файла във формат xlsx

Форматът "Работна книга на Excel (*.xlsx)" по същество няма поддръжка за макроси. Като такова, запазването на вашата работна книга в този конкретен формат ще доведе до автоматичното премахване на всички вградени макроси. За да изпълните този метод, любезно продължете както следва:

1. Отидете до досие > Save As.
2. Разгънете падащото меню тип файл и изберете "Работна книга на Excel (*.xlsx)" формат.
3. Съвет: Можете да въведете ново име за .xlsx файла в текстовото поле над падащото меню. За да запишете файла на друго място, щракнете паса.
3. Кликнете Save.
4. 

   Забележка: - Save As интерфейсът може да се различава в различните версии на 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 за приложения (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. За да добавите още работни книги за премахване на макроси, щракнете върху Добави и изберете едно от двете досие or Папка.
   2. Ако има работни книги, които искате да изключите от процеса на премахване на макроси, щракнете върху бутон, за да ги премахнете.
   3. След като изброите всички желани работни книги за премахване на макроси в диалоговия прозорец, щракнете OK.
   4. 

Резултат

Появява се нов диалогов прозорец, показващ колко работни книги Kutools е обработил за премахване на макроси. След натискане OK, ще бъде генерирана автоматизирана обобщена работна книга за очертаване на резултатите.

По-горе е цялото подходящо съдържание, свързано с премахването на макроси в Excel. Надявам се да намерите урока за полезен. Ако искате да проучите още съвети и трикове за Excel, моля, натиснете тук за достъп до нашата обширна колекция от над хиляди уроци.

Свързани статии

• Как да стартирам макрос въз основа на стойност на клетка в Excel?
• Как да стартирате макрос, когато стойността на клетката се промени в Excel?
• Как да стартирате един и същ макрос на няколко работни листа едновременно в Excel?