Hur tvingar man användare att spara en Excel-arbetsbok som en makroaktiverad fil?

När du sparar en Excel-arbetsbok har den som standard filformatet .xlsx, som inte stöder makron och tar bort eventuell makrokod i arbetsboken. För att behålla koderna bör du spara arbetsboken som Excel Macro-Enable Workbook-format. Hur kunde du tvinga användare att spara som en makroaktiverad arbetsbok?

Tvinga användare att spara som en makroaktiverad arbetsbok med VBA-kod

Tvinga användare att spara som en makroaktiverad arbetsbok med VBA-kod

För att säkerställa att arbetsboken sparas som en makroaktiverad arbetsbok som standard kan du använda följande VBA-kod. Följ dessa steg:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Dubbelklicka sedan Denna arbetsbok under VBAProjekt för att öppna en ny tom modul, och kopiera och klistra sedan in följande kod i modulen:

VBA-kod: Tvinga att spara arbetsboken som makroaktiverad arbetsbok som standard:

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. Spara och stäng sedan detta kodfönster. Från och med nu, när användare sparar den här arbetsboken, kommer den att sparas i Excel Macro-Enabled Workbook-format som standard, som visas i följande skärmdump: