如何修改VBA代码限制Excel另存为仅支持.xlsm和PDF格式

直接用下面的VBA代码替换你现有的逻辑，就能实现只提供XLSM和PDF两种保存选项：

Sub SaveAsXLSMorPDF()
    Dim savePath As Variant
    Dim fileFilter As String
    
    ' 定义仅显示的文件格式过滤器
    fileFilter = "宏启用工作簿 (*.xlsm), *.xlsm, PDF文档 (*.pdf), *.pdf"
    
    ' 弹出另存为对话框，指定可选格式和默认选中项
    savePath = Application.GetSaveAsFilename( _
        FileFilter:=fileFilter, _
        Title:="保存为XLSM或PDF", _
        FilterIndex:=1)
    
    ' 用户点击取消则退出
    If savePath = False Then Exit Sub
    
    ' 根据选择的格式执行对应操作
    Select Case LCase(Right(savePath, 4))
        Case ".xlsm"
            ThisWorkbook.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Case ".pdf"
            ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath
    End Select
End Sub

关键参数说明 #

• FileFilter 是控制显示格式的核心，格式为「显示名称 (*.后缀), *.后缀」，多个格式用逗号分隔。这里明确指定了XLSM和PDF，对话框就只会列出这两个选项。
• FilterIndex:=1 设置默认选中第一个选项（XLSM），引导用户优先保存宏启用格式，符合你的需求。
• PDF不能用普通的SaveAs，必须调用ExportAsFixedFormat来导出，代码里已经处理了这个区别。

注意事项 #

• 如果你的模板是.xltm格式，从模板新建的工作簿用ThisWorkbook没问题，会保存为新的XLSM文件，不会覆盖原模板。
• 确保Excel的宏安全设置允许运行此代码，避免被自动禁用。

内容的提问来源于stack exchange，提问作者Jessica