Přejít k hlavnímu obsahu

Jak odstranit makra z Excelu (úplný průvodce)

Microsoft Excel nabízí výkonnou funkci ve formě maker, která dokážou automatizovat opakující se úkoly a provádět mnoho operací, které vestavěné funkce Excelu nemohou dosáhnout. Existují však případy, kdy se tato makra mohou stát nadbytečnými nebo dokonce představovat potenciální bezpečnostní rizika, zejména při sdílení sešitu s ostatními. V těchto chvílích je nezbytné pochopit, jak bezpečně a efektivně odstranit makra. Tato příručka je vytvořena tak, aby vás provedla různými metodami odstraňování maker z vašich excelových sešitů a zajistila, že budete mít v případě potřeby čistý a zjednodušený soubor.


Co byste měli vědět před odebráním maker v Excelu

  • Při otevírání sešitu s povolenými makry a pokusu o odebrání maker musíte nejprve klepnout na ikonu Povolit obsah tlačítko ve vašem sešitu. To je nezbytné, než budete moci pokračovat v jejich odstranění.
  • Poznámka: Pokud toto tlačítko nevidíte, máte zelenou, abyste mohli makra smazat. Důvodem jeho absence může být, že jste si sami vytvořili sešit s vloženými makry a uložili jej. Při opětovném otevření tohoto sešitu na stejném počítači a s nezměněným nastavením Excelu se Povolit obsah tlačítko se často nezobrazuje. Je to proto, že soubor pochází z důvěryhodného zdroje (vy) a je umístěn v důvěryhodném umístění (váš počítač).

  • Pamatujte, že jakmile je makro odstraněno, obnovení není možné. Chcete-li chránit svou práci, je vhodné před odstraněním maker vytvořit záložní kopii sešitu.

Odeberte konkrétní makro

Krok 1: Otevřete dialogové okno Makro

Přejděte na Vývojka Kartu a vyberte makra k otevření Makro dialogové okno. (Pokud Vývojka karta není ve vašem Excelu viditelná, viz poznámka po krocích.)

Tip:
  • Pokud používáte Excel 2013 nebo novější verzi, makra tlačítko lze také nalézt v Pohled Karta.
  • Milovníci zkratek mohou přímo stisknout Alt + F8 pro přístup k Makro dialogové okno.

Krok 2: Vyberte a odstraňte konkrétní makro

  1. Rozbalte "Makra v" rozevírací nabídce a vyberte požadovaný cíl, odkud chcete makra odebrat.
  2. Ze seznamu maker vyberte to, které chcete odstranit.
  3. klikněte Vymazat.

Poznámky:

  • Chcete-li přidat Vývojka přejděte na pás karet v Excelu, postupujte takto:
    1. Klikněte pravým tlačítkem kamkoli na pás karet a vyberte Přizpůsobte si pásku….
    2. V seznamu Hlavní záložky na pravé straně okna, které se objeví, zaškrtněte políčko vedle Vývojka a klepněte na tlačítko OK.
  • Pokud máte v úmyslu odstranit více maker, budete muset výše uvedený proces zopakovat pro každé jednotlivé makro. Pokyny k hromadnému odstranění všech maker naleznete v následujících částech.

Odstraňte všechna makra ze sešitu

V případech, kdy potřebujete ze sešitu odebrat všechna makra, existují dva způsoby:


Odstraňte všechna makra ze sešitu uložením souboru ve formátu xlsx

Formát "Sešit Excelu (*.xlsx)" ze své podstaty postrádá podporu maker. Uložení sešitu v tomto specifickém formátu tedy způsobí automatické odstranění všech vložených maker. Chcete-li provést tuto metodu, postupujte následovně:

  1. přejděte na Soubor > Uložit jako.
  2. Rozbalte rozevírací nabídku typu souboru a vyberte možnost "Sešit aplikace Excel (* .xlsx)" formát.
  3. Tip: Do textového pole nad rozbalovací nabídkou můžete zadat nový název souboru .xlsx. Chcete-li soubor uložit do jiného umístění, klepněte na Procházet.
  4. klikněte Uložit.
  5. Poznámka: Projekt Uložit jako rozhraní se může v různých verzích Excelu lišit. Pokud si nevšimnete pravého podokna, jak je znázorněno výše, kde je k dispozici výběr formátu souboru, můžete vždy kliknout Procházet a poté zvolte formát "Sešit Excel (*.xlsx)".

  6. V okně výzvy, které se zobrazí, vyberte Ano.

Výsledek

Výsledkem je uložení nového souboru ve formátu „.xlsx“ bez maker. Tento soubor .xlsx převezme název původního souboru .xlsm a bude uložen na stejném místě.

Poznámka: Tato metoda nevyjme UserForms, dialogové listy aplikace Excel 5/95 a podobné prvky. Pokud se je snažíte odstranit, podívejte se prosím na další metodu.


Odstraňte všechna makra ze sešitu pomocí možnosti jednoho kliknutí, kterou poskytuje Kutools

Kutools pro Excel, pokročilý doplněk aplikace Excel, poskytuje uživatelům možnost jedním kliknutím snadno odstranit všechna makra vložená v sešitu. Jediným kliknutím můžete vymazat moduly VBA, UserForms, dialogové listy Excel 5/95 a listy maker Excel 4 XLM.

Jakmile otevřete sešit obsahující makra, která chcete odstranit, přejděte na Kutools Záložka a zvolte Vymazat > Odebrat všechna makra. A voilà, máte hotovo!

Poznámka: Chcete získat přístup k této funkci? Stažení Kutools pro Excel Nyní! Kromě toho se Kutools může pochlubit nesčetným množstvím více než 300 dalších funkcí a nabízí 30denní zkušební verzi. Nečekejte a vyzkoušejte to ještě dnes!


Odstraňte všechna makra z více sešitů

Když stojíte před úkolem odstranit makra z několika sešitů, můžete zvolit dva přístupy:


Odeberte všechna makra ze sešitů ve složce s VBA

V této části předvedu, jak efektivně odstranit makra ze všech sešitů v určené složce pomocí makra VBA.

Poznámka: Před odstraněním maker pomocí makra VBA je třeba:
  • přejděte na Soubor > možnosti > Centrum zabezpečení > Nastavení centra důvěryhodnosti > Nastavení makraa poté vyberte „Důvěřujte přístupu k objektovému modelu projektu VBA"možnost.
  • Ujistěte se, že při provádění tohoto VBA nejsou otevřeny žádné sešity v určené složce. Spuštění s otevřenými sešity může vést k chybám.

Krok 1: Vytvořte nový modul

  1. Stisknout Alt + F11 k otevření Visual Basic for Applications (VBA) editor.
  2. klikněte Vložit > Modul pro vytvoření nového modulu.

Krok 2: Zkopírujte kód VBA do okna modulu

Zkopírujte níže uvedený kód VBA a vložte jej do otevřeného Modul okno.

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

Krok 3: Spusťte kód VBA

  1. v Modul okno, stiskněte F5 nebo klikněte na tlačítko tlačítko pro provedení vloženého kódu.
  2. v Vyberte složku V okně, které se objeví, vyberte složku obsahující sešity, ze kterých chcete makra odebrat, a klepněte na OK.

Výsledek

Poté, co makro dokončí zpracování všech souborů Excel ve vybrané složce a odstranění maker z nich, zobrazí se "Odstranění maker dokončeno!“ schránka zpráv.

Poznámky:

  • Tato metoda nevyjme UserForms, dialogové listy aplikace Excel 5/95 a podobné prvky. Pokud se je snažíte odstranit, podívejte se prosím na další metodu.
  • Aktivace možnosti Důvěřovat přístupu k možnosti objektového modelu projektu VBA může představovat bezpečnostní riziko. Doporučuje se povolit tuto možnost pouze při spuštění tohoto kódu. Ujistěte se, že jste zrušili výběr "Důvěřujte přístupu k objektovému modelu projektu VBA", jakmile kód dokončí své provádění.

Odstraňte všechna makra ze všech konkrétních sešitů pomocí Kutools

Kutools pro Excel poskytuje uživatelsky přívětivý způsob odstranění všech maker z více sešitů. Pro ty, kteří váhají nebo neznají techniky VBA, slouží Kutools jako ideální alternativa. S tímto nástrojem, který máte k dispozici, lze bez námahy odstranit moduly VBA, UserForms, dialogové listy Excel 5/95 a listy maker Excel 4 XLM.

Poznámka: Chcete-li tuto funkci spustit, musíte důvěřovat přístupu k objektovému modelu projektu VBA. V Excelu přejděte na Soubor > možnosti > Centrum zabezpečení > Nastavení centra důvěryhodnosti > Nastavení makraa poté vyberte „Důvěřujte přístupu k objektovému modelu projektu VBA"možnost.

Po stažení a instalace Kutools pro Excel, pokračujte podle následujících kroků:

  1. vybrat Kutools > Vymazat > Dávkové odebrání všech maker.
  2. v Dávkové odebrání všech maker V dialogovém okně, které se zobrazí, jsou uvedeny všechny otevřené sešity pro odstranění makra. Dále je třeba provést následující:
    1. Chcete-li přidat další sešity pro odstranění makra, klikněte na přidat a vyberte buď Soubor or Desky.
    2. Pokud existují nějaké sešity, které chcete vyloučit z procesu odebrání makra, klikněte na tlačítko k jejich odstranění.
    3. Jakmile v dialogovém okně vypíšete všechny požadované sešity pro odebrání makra, klepněte na OK.

Výsledek

Zobrazí se nové dialogové okno, které uvádí, kolik sešitů Kutools zpracoval pro odstranění makra. Po stisknutí OK, bude vygenerován automatický souhrnný sešit, ve kterém budou shrnuty výsledky.

Poznámky:

  • Chcete získat přístup k této funkci? Stažení Kutools pro Excel Nyní! Kromě toho nabízí Kutools více než 300 dalších funkcí. Díky 30denní bezplatné zkušební verzi není důvod čekat. Zkuste to ještě dnes!
  • Aktivace možnosti Důvěřovat přístupu k možnosti objektového modelu projektu VBA může představovat bezpečnostní riziko. Doporučuje se povolit tuto možnost pouze při spuštění funkce. Ujistěte se, že jste zrušili výběr "Důvěřujte přístupu k objektovému modelu projektu VBA", jakmile funkce dokončí své provádění.

Nahoře je veškerý relevantní obsah související s odstraňováním maker v Excelu. Doufám, že vám bude návod užitečný. Pokud chcete prozkoumat další tipy a triky pro Excel, prosím klikněte zde pro přístup k naší rozsáhlé sbírce více než tisíců výukových programů.

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations