如何強制用戶另存為啟用宏的工作簿？

當您保存Excel工作簿時，默認情況下它將保存為xlsx文件格式，並且如果有多個代碼，則該文件格式將擺脫工作簿中的宏代碼。 若要保留代碼，您應將工作簿另存為Excel Macro-Enable Workbook格式。 您如何強迫用戶另存為啟用宏的工作簿？

強制用戶使用VBA代碼另存為啟用宏的工作簿

強制用戶使用VBA代碼另存為啟用宏的工作簿

要將工作簿默認保存為啟用宏的工作簿，以下VBA代碼可能會為您提供幫助：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 然後雙擊 的ThisWorkbook 在 VBA項目 部分打開一個新的空白模塊，然後將以下代碼複製並粘貼到該模塊中：

VBA代碼：默認情況下，強制將工作簿另存為啟用了宏的工作簿：

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. 然後保存並關閉此代碼窗口，從現在開始，當用戶另存為該工作簿時，它將另存為 Excel啟用宏的工作簿 默認格式為以下屏幕截圖：