Cum să forțezi utilizatorii să salveze ca registru de lucru activat pentru macro?

Când salvați un registru de lucru Excel, acesta va fi salvat ca format de fișier xlsx în mod implicit, iar acest format de fișier va scăpa de codurile macro din registrul de lucru dacă există mai multe coduri. Pentru a păstra codurile, ar trebui să salvați registrul de lucru ca format Excel Macro-Enable Workbook. Cum ai putea forța utilizatorii să salveze ca registru de lucru activat pentru macro?

Forțează utilizatorii să salveze ca registru de lucru activat macro cu cod VBA

Forțează utilizatorii să salveze ca registru de lucru activat macro cu cod VBA

Pentru a salva în mod implicit registrul de lucru ca registru de lucru activat pentru macro, următorul cod VBA vă poate ajuta, vă rugăm să procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi faceți dublu clic Acest manual de lucru în temeiul Proiect VBA pentru a deschide un nou modul gol, apoi copiați și lipiți următorul cod în modul:

Cod VBA: Forțați să salvați registrul de lucru ca registru de lucru activat pentru macro în mod implicit:

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. Apoi salvați și închideți această fereastră de cod, de acum înainte, când utilizatorii salvează ca acest registru de lucru, va fi salvat ca Cartea de lucru Excel Macro-Enabled formatul implicit, după cum se arată în următoarea captură de ecran: