如何用Excel VBA(A)打开含VBA的文件B时不运行其内置代码？

方法1：通过AutomationSecurity禁用所有自动宏 #

在VBA A打开文件B前，临时修改Excel的自动化安全设置，强制禁用所有宏的自动执行，打开完成后恢复原设置。这个方法能阻止Workbook_Open、Auto_Open等所有自动触发的宏代码。

示例代码：

Sub ProcessFileB()
    Dim originalSecurity As MsoAutomationSecurity
    Dim wbB As Workbook
    
    ' 保存当前安全设置
    originalSecurity = Application.AutomationSecurity
    ' 强制禁用所有宏自动运行
    Application.AutomationSecurity = msoAutomationSecurityForceDisable
    
    ' 打开同目录下的文件B
    Set wbB = Workbooks.Open(ThisWorkbook.Path & "\文件B.xlsx")
    
    ' 执行你的格式修改操作
    ' 示例：设置Sheet1表头为加粗
    wbB.Sheets("Sheet1").Rows(1).Font.Bold = True
    
    ' 另存为新文件
    wbB.SaveAs ThisWorkbook.Path & "\处理后的文件B.xlsx"
    
    ' 关闭文件B
    wbB.Close SaveChanges:=False
    
    ' 恢复原安全设置
    Application.AutomationSecurity = originalSecurity
End Sub

方法2：禁用Excel事件触发 #

如果文件B的自动代码仅通过Workbook_Open这类事件触发，可以临时关闭Excel的事件响应，打开文件后再恢复。这种方法不会影响宏的手动执行，仅阻止事件驱动的代码。

示例代码：

Sub ProcessFileB()
    Dim eventsState As Boolean
    Dim wbB As Workbook
    
    ' 保存当前事件状态
    eventsState = Application.EnableEvents
    ' 禁用事件触发
    Application.EnableEvents = False
    
    ' 打开文件B
    Set wbB = Workbooks.Open(ThisWorkbook.Path & "\文件B.xlsx")
    
    ' 执行格式修改操作
    ' ...（你的自定义修改代码）
    
    ' 另存为新文件
    wbB.SaveAs ThisWorkbook.Path & "\处理后的文件B.xlsx"
    
    ' 关闭文件B
    wbB.Close SaveChanges:=False
    
    ' 恢复事件状态
    Application.EnableEvents = eventsState
End Sub

选择建议 #

• 若文件B同时存在Auto_Open宏和事件触发代码，优先用方法1，覆盖范围更广。
• 若确认仅存在事件驱动的自动代码，用方法2更轻量，不会影响其他正常宏的执行。

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