Note: The other languages of the website are Google-translated. Back to English

Jak přinutit uživatele, aby ukládali jako sešit s povolenými makry?

Když uložíte sešit aplikace Excel, ve výchozím nastavení se uloží jako formát souboru xlsx a tento formát souboru zbaví kódy maker ze sešitu, pokud existuje více kódů. Chcete-li zachovat kódy, měli byste sešit uložit ve formátu sešitu Excel s povolením maker. Jak můžete přinutit uživatele ukládat jako sešit s povolenými makry?

Přinutit uživatele ukládat jako sešit s povolenými makry s kódem VBA


šipka modrá pravá bublina Přinutit uživatele ukládat jako sešit s povolenými makry s kódem VBA

Chcete-li sešit ve výchozím nastavení uložit jako sešit s povolenými makry, může vám pomoci následující kód VBA, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. Poté dvakrát klikněte Tato pracovní kniha pod Projekt VBA v sekci otevřete nový prázdný modul a poté do modulu zkopírujte a vložte následující kód:

Kód VBA: Ve výchozím nastavení vynutit uložení sešitu jako sešitu s povolenými makry:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updateby Extendoffice
Dim xFileName As String
If SaveAsUI <> False Then
    Cancel = True
    xFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file")
    If xFileName <> "False" Then
      Application.EnableEvents = False
      ActiveWorkbook.SaveAs Filename:=xFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
      Application.EnableEvents = True
    Else
      MsgBox "Action Cancelled"
      Cancel = True
      Exit Sub
    End If
End If
End Sub

síla dokumentu uložit jako xlsm 1

3. Poté uložte a zavřete toto okno kódu, od nynějška, když uživatelé budou ukládat jako tento sešit, bude uložen jako Sešit se zvýšeným makra Excel ve výchozím nastavení formát jako následující snímek obrazovky:

síla dokumentu uložit jako xlsm 2


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (11)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Bylo to tak užitečné a fungovalo to jako kouzlo, děkuji :)
Tento komentář byl moderátorem webu minimalizován
Ušetřil mi spoustu bolesti - díky moc
Tento komentář byl moderátorem webu minimalizován
Výborně!

Ušetřil mi spoustu bolesti hlavy! :)
Tento komentář byl moderátorem webu minimalizován
Používám Excel 2016 pro Mac, a když použiji tento kód VBA k dosažení „vynutit uložení jako .xlsm“, zobrazí se následující chyba:

Chyba při spuštění "1004":

Metoda 'GetSaveAsFilename' objektu '_Application' se nezdařila

Jakékoli pokyny, které by někdo mohl poskytnout ohledně této chyby a jak možná budu muset upravit kód, aby fungoval ve verzi Excelu pro Mac, by byl velmi oceněn!
Tento komentář byl moderátorem webu minimalizován
fileformat: =52 je hezčí jako vytváření sešitu s podporou maker. fileformat:=51 je normální sešit.
Tento komentář byl moderátorem webu minimalizován
Stále dostáváte 1004 ERROR.
Používání Off365 2016 pro MAC. Máte řešení?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Jonathane,
Tento kód funguje dobře ve Windows Office, ale nebyl testován v MAC.
Měli byste hledat kód pro práci v MAC.
Děkuji!
Tento komentář byl moderátorem webu minimalizován
Jakýkoli způsob, jak mít tento VBA v souboru šablony
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak mít tento VBA v souboru, který je skutečným typem souboru šablony?
Tento komentář byl moderátorem webu minimalizován
Až budete připraveni vytvořit šablonu, věřím, že ke spuštění musíte použít okamžité okno
ActiveWorkbook.SaveAs Filename:="ZADEJTE NÁZEV ŠABLONY", FileFormat:=xlOpenXMLTemplateMacroEnabled
Tento komentář byl moderátorem webu minimalizován
Velmi dobře se mi osvědčuje kód VBA nutící uživatele ukládat ve formátu .xlsm. Toto řešení jsem hledal docela dlouho. Mnohokrát děkuji za pomoc!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL