Excel VBA技术问题：打开文件不执行宏，激活工作簿时运行指定宏

要实现打开文件时不运行SubName，但切换回该工作簿（激活）时正常运行，核心是要区分「打开文件的首次激活」和「后续的激活操作」，咱们用一个标记变量就能轻松搞定：

步骤1：在ThisWorkbook模块声明标记变量 #

打开VBA编辑器（按Alt+F11），找到左侧的ThisWorkbook，在代码模块顶部添加模块级布尔变量：

Private isFirstActivate As Boolean

这个变量专门用来记录当前是否是打开文件后的第一次激活状态。

步骤2：编写Workbook_Open事件 #

添加Workbook_Open子过程，在文件刚打开时标记「首次激活」：

Private Sub Workbook_Open()
    ' 标记这是打开文件后的第一次激活
    isFirstActivate = True
End Sub

步骤3：修改Workbook_Activate事件 #

调整你原来的激活事件，通过标记变量判断是否要运行SubName：

Private Sub Workbook_Activate()
    ' 不是首次激活时，才运行目标子过程
    If Not isFirstActivate Then
        SubName
    Else
        ' 首次激活后重置标记，下次激活就会触发宏了
        isFirstActivate = False
    End If
End Sub

原理说明 #

打开Excel文件时，系统会依次触发Workbook_Open和Workbook_Activate：

1. Workbook_Open先把isFirstActivate设为True；
2. 紧接着的Workbook_Activate检测到标记为True，就跳过SubName，同时把标记改成False；
3. 之后当你切换到其他工作簿再切回来时，Workbook_Activate触发，此时标记是False，就会正常运行SubName，完美避开文件加载的5秒等待期。

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