Excel VBA：激活工作表后子过程未终止且Worksheet_Activate事件未触发问题求助

核心问题诊断 #

从你提供的立即窗口输出（仅1-6）和现象来看，模态UserForm阻塞了工作表RstVer的Worksheet_Activate事件触发，同时导致界面刷新异常。

默认情况下，VBA的UserForm是模态窗口——它会占据Excel应用的焦点，在窗口未关闭/隐藏前，工作表的激活事件无法正常触发；而且即使你手动开启了ScreenUpdating，界面也会因为焦点被UserForm占用而无法正常刷新，看起来就像ScreenUpdating仍处于禁用状态。

另外需要确认：你的Worksheet_Activate事件代码是否确实放在RstVer工作表的代码模块中？如果放在了其他模块（比如标准模块或UserForm模块），也不会触发这个事件。

解决方案 #

针对这个问题，我们可以通过调整代码执行顺序和UserForm状态来解决：

1. 修改CommandButton1_Click代码，先隐藏UserForm再激活工作表

在按钮点击事件的末尾先隐藏UserForm，让焦点回到Excel工作表，确保激活事件能正常触发：

Private Sub CommandButton1_Click() 'userform1中的子过程
    On Error GoTo Cleanup ' 添加错误处理，确保ScreenUpdating总能恢复
    Application.ScreenUpdating = False
    Debug.Print "1"

    Application.Visible = True
    Debug.Print "2"

    ' 先设置工作表可见性，调整顺序避免不必要的刷新
    coverP.Visible = xlSheetHidden
    Debug.Print "5"
    
    RstVer.Visible = xlSheetVisible
    Debug.Print "3"

    ' 关键步骤：先隐藏UserForm，释放焦点
    Me.Hide
    ' 现在激活工作表，触发Activate事件
    RstVer.Activate
    Debug.Print "4"

Cleanup:
    Application.ScreenUpdating = True
    Debug.Print "6"
    ' 处理可能的错误
    If Err.Number <> 0 Then
        MsgBox "操作出错：" & Err.Description, vbExclamation
        Err.Clear
    End If
End Sub

2. 确认Worksheet_Activate事件的位置

确保Worksheet_Activate代码位于RstVer工作表的代码模块中：

• 右键点击RstVer工作表标签 → 查看代码
• 将你的激活事件代码粘贴到这个模块中（如果还没放对位置）

3. 优化激活事件代码（可选）

在激活事件中，尽量避免使用Select操作（它依赖界面刷新，而且效率低），可以直接对单元格进行操作：

Private Sub Worksheet_Activate()
    On Error GoTo Cleanup
    Application.ScreenUpdating = False
    Debug.Print "7"

    Unprotect "password"
    Debug.Print "8"

    ' 直接赋值，不需要Select
    Range("K9").Value = CStr(stfList.Cells(100, 100).Value)
    Debug.Print "9"

    ' 如果需要滚动到指定单元格，用Activate代替Select
    Range("D37").End(xlUp).Activate
    Debug.Print "10"

    Protect "password"
    Debug.Print "11"

Cleanup:
    Application.ScreenUpdating = True
    Debug.Print "12"
    If Err.Number <> 0 Then
        MsgBox "激活事件出错：" & Err.Description, vbExclamation
        Err.Clear
    End If
End Sub

验证效果 #

修改后点击CommandButton1，你应该能在立即窗口看到完整的1-12打印输出，同时工作表切换后界面会正常刷新，不会再出现类似ScreenUpdating禁用的现象。

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