Kako prisiliti uporabnike, da shranijo kot delovni zvezek z omogočenim makrom?
Ko shranite Excelov delovni zvezek, bo privzeto shranjen kot oblika datoteke xlsx in ta oblika datoteke se bo znebila kod makrov iz delovnega zvezka, če je kod več. Če želite obdržati kode, shranite delovni zvezek v obliki zapisa Excel Macro-Enable Workbook. Kako bi lahko prisilili uporabnike, da shranijo kot delovni zvezek z omogočeno makro?
Prisilite uporabnike, da shranijo kot delovni zvezek z omogočeno makro s kodo VBA
Prisilite uporabnike, da shranijo kot delovni zvezek z omogočeno makro s kodo VBA
Če želite delovni zvezek privzeto shraniti kot delovni zvezek z omogočeno makro, vam bo morda v pomoč naslednja koda VBA, naredite naslednje:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Nato dvokliknite Ta delovni zvezek pod VBAProject , da odprete nov prazen modul, nato pa v modul kopirajte in prilepite naslednjo kodo:
Koda VBA: prisilno shranite delovni zvezek kot delovni zvezek z omogočeno makro:
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. Nato shranite in zaprite to okensko okno, od zdaj naprej, ko bodo uporabniki shranili kot ta delovni zvezek, bo shranjen kot Excelov delovni zvezek z omogočeno makro format privzeto, kot je prikazano na sliki spodaj:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!