无错误时仍触发On Error GoTo（Select Case场景）问题求助

我来帮你揪出问题的根源，再给你一套简单的修复方案！

为什么现在不管输入对不对都弹错误提示？ #

你当前的代码有个逻辑漏洞：当输入NOI时，执行完UnHideAllSheets之后，会继续往下运行后面的Sheets(TextBox1.Value).Activate——也就是试图激活名为NOI的工作表。如果你的工作簿里根本没有这个叫NOI的工作表，这行代码就会触发错误，直接跳转到endit标签弹出提示框，哪怕前面的工作表显示逻辑已经正常完成了。这就是为什么你现在明明输入正确，却还是会看到错误提示的原因！

另外，原代码的全局On Error GoTo会捕获所有错误，包括一些你没预料到的情况，这也导致错误提示的触发时机失控。

修复方案 #

我们可以通过拆分逻辑流程+添加工作表存在性检查来解决这个问题，代码修改后既符合你的需求，也更健壮，而且不懂VBA的维护者也不容易搞砸。

第一步：添加工作表存在性检查函数

先在模块里加一个简单的函数，用来判断输入的工作表名称是否存在：

Function SheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(sheetName)
    On Error GoTo 0
    SheetExists = Not ws Is Nothing
End Function

第二步：修改按钮点击事件代码

把原来的CommandButton1_Click代码替换成下面的版本：

Private Sub CommandButton1_Click()
    Dim pword As String
    pword = Trim(TextBox1.Value) ' 去掉输入前后的空格，避免误判
    
    Select Case pword
        Case "NOI"
            Call UnHideAllSheets
            Me.Hide ' 直接隐藏表单，跳过后续普通用户逻辑
        Case Else
            ' 先检查输入的姓氏对应的工作表是否存在
            If SheetExists(pword) Then
                ' 先隐藏所有工作表，再显示目标和Stats
                Dim ws As Worksheet
                For Each ws In ThisWorkbook.Sheets
                    ws.Visible = False
                Next ws
                Sheets(pword).Visible = True
                Sheets("Stats").Visible = True
                Sheets(pword).Activate
                Sheets("ERROR").Visible = False
                Me.Hide
            Else
                MsgBox "Incorrect Input: check spelling and capitalization"
            End If
    End Select
End Sub

改动说明

1. 添加Trim()处理：避免用户不小心输入前后空格导致误判（比如输入NOI会被当成错误输入）。
2. 拆分NOI流程：输入NOI时，执行完显示所有工作表的逻辑后直接隐藏表单，跳过后面针对普通用户的激活语句，彻底避免触发不存在工作表的错误。
3. 精准错误提示：普通用户输入时，先检查工作表是否存在，只有确实不存在（拼写/大小写错误）时才弹出提示，完全符合你最初的需求。
4. 更严谨的工作表隐藏逻辑：普通用户流程里先隐藏所有工作表，再显示目标和Stats，避免出现其他工作表意外可见的情况。

另外，你的UnHideAllSheets代码里，Dim n As Single可以改成Dim n As Integer（工作表数量是整数，更贴合实际），不过这个不影响功能，属于小细节优化。

内容的提问来源于stack exchange，提问作者R.E.L.