如何用主工作簿VBA点击另一工作簿用户窗体的CommandButton1？

遇到这种批量操作被事件触发的弹窗打断的情况，有两种比较可靠的解决思路，你可以根据实际需求选择：

方案1：临时禁用Excel事件（最简单直接） #

如果模板的BeforeSave事件里的变更记录逻辑在批量生成时不需要执行，或者你可以在主工作簿里统一处理，那最省事的方法就是在执行SaveAs之前临时关闭Excel的事件触发，这样模板的Workbook_BeforeSave就不会运行，也就不会弹出窗体了。

修改主工作簿的代码如下：

' 临时禁用事件，避免触发模板的BeforeSave
Application.EnableEvents = False

' 执行保存操作
wkbDest.SaveAs Filename:=Path & FileName2 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

' 恢复事件触发，不影响后续操作
Application.EnableEvents = True

' 关闭目标工作簿（已经SaveAs过，无需再保存）
wkbDest.Close SaveChanges:=False

注意：一定要记得把EnableEvents恢复为True，否则之后所有Excel事件（比如工作表变更、手动保存等）都会失效，除非重启Excel。

方案2：保留BeforeSave逻辑，自动完成窗体操作 #

如果你需要保留模板里的变更记录功能，不想跳过这个逻辑，那可以通过标记批量操作状态的方式，让模板的BeforeSave事件自动处理，不需要用户干预：

步骤1：修改模板的BeforeSave事件 #

在模板的ThisWorkbook模块里，修改原有代码，增加批量操作的判断逻辑：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim ws As Worksheet
    Set ws = Sheets("EDITS")
    Dim tbl As ListObject
    Set tbl = ws.ListObjects("Table1")
    Dim newrow As ListRow
    Set newrow = tbl.ListRows.Add
    
    ' 检查是否为批量操作（用自定义文档属性做标记，也可以用隐藏单元格）
    Dim isBatch As Boolean
    isBatch = False
    On Error Resume Next ' 防止属性不存在时报错
    isBatch = ThisWorkbook.CustomDocumentProperties("BatchMode").Value
    On Error GoTo 0
    
    If isBatch Then
        ' 批量模式下自动填充记录内容，可根据需求修改
        newrow.Range(1) = Now
        newrow.Range(2) = "批量生成自动记录"
    Else
        ' 正常模式下弹出窗体让用户输入
        SavePrompt.Show
        With newrow
            .Range(1) = Now
            .Range(2) = SavePrompt.TextBox1.Text
        End With
    End If
End Sub

步骤2：主工作簿代码中添加批量标记 #

在打开模板后、保存前，给目标工作簿添加批量操作的标记：

' 打开模板后，添加批量模式标记
Dim prop As DocumentProperty
On Error Resume Next
' 删除已存在的标记（如果有）
wkbDest.CustomDocumentProperties.Delete "BatchMode"
On Error GoTo 0
' 添加新的自定义属性
Set prop = wkbDest.CustomDocumentProperties.Add( _
    Name:="BatchMode", _
    LinkToContent:=False, _
    Type:=msoPropertyTypeBoolean, _
    Value:=True)

' 执行保存，此时模板的BeforeSave会自动处理，不会弹出窗体
wkbDest.SaveAs Filename:=Path & FileName2 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

' 可选：关闭前删除批量标记
On Error Resume Next
wkbDest.CustomDocumentProperties.Delete "BatchMode"
On Error GoTo 0

' 关闭目标工作簿
wkbDest.Close SaveChanges:=False

不推荐的方法：SendKeys模拟点击 #

虽然可以用SendKeys "{ENTER}"或者SendKeys "%{S}"（假设CommandButton1的快捷键是Alt+S）来模拟点击按钮，但这种方法非常不稳定——如果焦点不在窗体上，或者系统有延迟，就会失效甚至输入到其他地方，只在万不得已的时候考虑使用。示例代码如下：

wkbDest.SaveAs ... ' 执行保存后，窗体弹出
AppActivate SavePrompt.Caption ' 激活窗体
SendKeys "{ENTER}" ' 假设CommandButton1是默认按钮（按回车触发）

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