Hogyan lehet a felhasználókat arra kényszeríteni, hogy makróként engedélyezett munkafüzetként mentse őket?
Az Excel-munkafüzet mentésekor az alapértelmezés szerint xlsx fájlformátumként kerül mentésre, és ez a fájlformátum megszabadítja a munkafüzet makrokódjait, ha több kód van. A kódok megőrzéséhez mentse a munkafüzetet Excel Macro-Enable Workbook formátumban. Hogyan kényszerítheti a felhasználókat arra, hogy makróként engedélyezett munkafüzetként mentse őket?
Kényszeríteni a felhasználókat, hogy makróként engedélyezett munkafüzetként mentse VBA kóddal
Kényszeríteni a felhasználókat, hogy makróként engedélyezett munkafüzetként mentse VBA kóddal
A munkafüzet alapértelmezett makróképes munkafüzetként történő mentéséhez a következő VBA-kód segíthet, kérjük, tegye ezt:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ezután kattintson duplán Ez a munkafüzet alatt a VBAProject szakasz egy új üres modul megnyitásához, majd másolja és illessze be a következő kódot a modulba:
VBA kód: A munkafüzet alapértelmezett makróképes munkafüzetként történő mentésének kényszerítése:
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. Ezután mentse el és zárja be ezt a kódablakot, mostantól kezdve, amikor a felhasználók ezt a munkafüzetet mentik, akkor a fájl mentése Excel makró-engedélyezett munkafüzet formátum alapértelmezés szerint a következő képernyőképen:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!