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
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
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:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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!