Excel VBA工作表密码保护问题：错误密码输入后弹窗无法退出

我来帮你搞定这个问题！咱们先看看原代码里导致循环的核心问题：不管密码输入对不对，你最后都强制激活了目标工作表，而且还把它设为可见，这就会反复触发Workbook_SheetActivate事件，让用户陷入死循环。另外你也没处理用户点击输入框「取消」的情况，这也会导致同样的问题。

下面是修改后的代码，实现了输错密码（或取消输入）时自动切换到其他工作表的功能，同时彻底解决循环问题：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim protectedSheet As String
    Dim passwordResponse As String
    Dim fallbackSheet As Worksheet
    
    ' 定义需要保护的工作表名称
    protectedSheet = "Balance Sheet"
    ' 定义密码错误时要切换到的备用工作表（这里用工作簿的第一个工作表，你可以改成指定名称的，比如Sheets("Data")）
    Set fallbackSheet = ThisWorkbook.Sheets(1)
    
    ' 只有激活保护工作表时才触发验证逻辑
    If Sh.Name = protectedSheet Then
        ' 先禁用事件，防止后续操作再次触发SheetActivate
        Application.EnableEvents = False
        
        ' 隐藏保护工作表，避免用户看到内容
        Sh.Visible = False
        
        ' 弹出密码输入框
        passwordResponse = InputBox("Only authorized are permitted to view the Balance Sheet. Enter password to view.")
        
        ' 判断密码是否正确
        If passwordResponse = "password123" Then
            ' 密码正确：显示并激活保护工作表
            Sh.Visible = True
            Sh.Select
        Else
            ' 密码错误或用户取消输入：切换到备用工作表
            fallbackSheet.Select
        End If
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

关键修改点说明： #

• 提前禁用事件：在处理逻辑开始就关闭Application.EnableEvents，避免切换工作表时再次触发Workbook_SheetActivate，彻底解决循环问题。
• 明确分支处理：把密码正确和错误的情况分开处理，错误时直接切换到备用工作表，不会再激活保护工作表。
• 处理取消输入：当用户点击输入框的「取消」时，passwordResponse会是空字符串，这也会触发错误分支，切换到备用工作表。
• 指定备用工作表：这里默认用工作簿的第一个工作表，你可以根据需求改成其他指定名称的工作表，比如把Set fallbackSheet = ThisWorkbook.Sheets(1)改成Set fallbackSheet = ThisWorkbook.Sheets("Overview")。

这样修改后，用户输错密码或者取消输入时，就会自动跳转到备用工作表，不会再陷入循环啦！

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