Sheet.Activate无法激活指定工作表的技术求助

问题描述 #

我编写了一个VBA宏，功能是用户输入正确密码后，解锁并取消隐藏除密码工作表外的所有工作表，最后切换到指定工作表。但遇到异常：整段运行宏时，Sheet.Activate/Select完全失效，最终仅能激活工作簿首个工作表；但单独保留激活代码或逐行调试时功能正常。尝试过工作表代码名/索引引用、开启屏幕更新、启用事件、禁用加载项、添加延时、调整激活代码位置等操作均无效，开启Option Explicit也未发现语法问题。

原代码如下：

Option Explicit
Sub UnProtectAll()

    Application.ScreenUpdating = False
    
        Dim pPrompt As String
        Dim bkPswrd As String
        
        inputPass_box.Show
        pPrompt = inputPass_box.passInput.Value
        bkPswrd = Worksheets("Password List").Cells(3, 2)
        
        If pPrompt = "" Then
            MsgBox "You didn't enter anything...", vbInformation, "No password"
            UnProtectAll
        ElseIf pPrompt = bkPswrd Then
    
            Dim ws As Worksheet
    
            For Each ws In ActiveWorkbook.Worksheets
                ws.Unprotect bkPswrd
            Next ws
            
            ThisWorkbook.Worksheets("Folder History").Visible = xlSheetVisible
            ThisWorkbook.Worksheets("Master List").Visible = xlSheetVisible
            ThisWorkbook.Worksheets("File Formats").Visible = xlSheetVisible
            Unload inputPass_box
            Worksheets("Change Sheet").Shapes("Button 1").Visible = False
            Application.ScreenUpdating = True
    
            Application.Wait (Now + TimeValue("0:00:03"))
            ThisWorkbook.Worksheets("Folder History").Select
            ThisWorkbook.Worksheets("Folder History").Activate
            Application.Wait (Now + TimeValue("0:00:03"))
            ThisWorkbook.Worksheets("Change Sheet").Select
            ThisWorkbook.Worksheets("Change Sheet").Activate
        Else
            MsgBox "You have entered an incorrect password. Please check your password and try again.", vbCritical, "Wrong Password!"
            UnProtectAll
        End If
    
End Sub

核心问题分析 #

问题根源是递归调用UnProtectAll函数：当密码为空或错误时，直接递归调用宏本身，会在内存中创建多个宏实例。当正确密码输入完成后，之前的递归实例仍在执行上下文里，干扰了工作表激活的最终状态，导致整段运行时激活操作被覆盖。

修复方案 #

1. 替换递归为循环，避免上下文混乱 #

把递归调用改成循环，让用户可重复输入密码直到正确或取消，消除多实例干扰：

Option Explicit
Sub UnProtectAll()
    Dim pPrompt As String
    Dim bkPswrd As String
    Dim inputValid As Boolean
    Dim ws As Worksheet
    
    ' 提前获取密码，避免重复引用
    bkPswrd = ThisWorkbook.Worksheets("Password List").Cells(3, 2).Value
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False ' 临时禁用事件，避免激活工作表时触发干扰逻辑
    
    Do While Not inputValid
        inputPass_box.Show ' 模态窗体确保输入完成后再继续执行
        pPrompt = inputPass_box.passInput.Value
        
        If pPrompt = "" Then
            MsgBox "You didn't enter anything...", vbInformation, "No password"
            inputPass_box.passInput.Value = "" ' 清空输入框，方便重新输入
        ElseIf pPrompt = bkPswrd Then
            inputValid = True
            
            ' 解锁并设置可见性，跳过密码工作表
            For Each ws In ThisWorkbook.Worksheets
                If ws.Name <> "Password List" Then
                    ws.Unprotect bkPswrd
                    ' 统一处理目标工作表可见性
                    Select Case ws.Name
                        Case "Folder History", "Master List", "File Formats"
                            ws.Visible = xlSheetVisible
                    End Select
                End If
            Next ws
            
            Unload inputPass_box
            ThisWorkbook.Worksheets("Change Sheet").Shapes("Button 1").Visible = False
            
            ' 简化激活逻辑，确保操作目标明确
            With ThisWorkbook.Worksheets("Folder History")
                .Select
                .Activate
            End With
            ' 如需切换到Change Sheet，直接操作（调试用的延时可移除）
            With ThisWorkbook.Worksheets("Change Sheet")
                .Select
                .Activate
            End With
        Else
            MsgBox "You have entered an incorrect password. Please check your password and try again.", vbCritical, "Wrong Password!"
            inputPass_box.passInput.Value = "" ' 清空输入框
        End If
    Loop
    
    ' 恢复系统状态
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

2. 优化工作表引用与激活逻辑 #

• 始终用ThisWorkbook代替ActiveWorkbook，确保引用宏所在的目标工作簿，避免激活其他工作簿时出错。
• 用With语句简化激活代码，确保操作的是同一个工作表对象，避免引用歧义。
• 移除不必要的Application.Wait，延时会打断执行流程，并非解决激活问题的根本方法。

3. 调整事件与屏幕更新时机 #

• 宏开始时禁用事件，避免激活工作表时触发其他自定义事件干扰流程。
• 统一在宏结束时恢复屏幕更新和事件状态，确保所有操作完成后再刷新界面。

额外注意事项 #

• 确保inputPass_box是模态窗体（默认Show方法为模态），宏会等待用户输入完成后再继续执行，避免窗体与宏异步执行导致的问题。
• 跳过密码工作表的解锁操作，避免误修改密码存储表。

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