VBA隐藏指定外工作表报错：Method 'Visible' of object'_Worksheet' failed 求助

首先，你遇到的错误 Method 'Visible' of object'_Worksheet' failed 核心原因是条件判断逻辑错误，再加上Excel的硬性规则：工作簿中必须至少保留一个可见的工作表。

错误根源拆解 #

你的原代码里的条件：

If sht.Name <> "Jason" Or sht.Name <> "Mary" Then

这个逻辑永远为True——因为一个工作表的名字不可能同时等于"Jason"和"Mary"，不管当前遍历的是哪个工作表，这个条件都会成立。也就是说，代码会尝试隐藏所有工作表，包括"Jason"和"Mary"，而Excel不允许工作簿里没有任何可见工作表，所以触发了这个错误。

修正后的代码 #

把条件里的Or改成And，这样只有当工作表既不是"Jason"也不是"Mary"的时候，才会执行隐藏操作：

Sub Hide_sheet()
    Dim sht As Worksheet
    For Each sht In ThisWorkbook.Worksheets
        ' 只隐藏既不是Jason也不是Mary的工作表
        If sht.Name <> "Jason" And sht.Name <> "Mary" Then
            sht.Visible = False
        End If
    Next sht
End Sub

额外优化建议（可选） #

如果担心后续可能不小心修改工作表名称、或工作表被删除导致代码失效，可以加上一个前置校验，确保逻辑更严谨：

Sub Hide_sheet_Safe()
    Dim sht As Worksheet
    Dim targetSheetCount As Integer
    ' 先统计目标可见工作表的数量
    targetSheetCount = 0
    For Each sht In ThisWorkbook.Worksheets
        If sht.Name = "Jason" Or sht.Name = "Mary" Then
            targetSheetCount = targetSheetCount + 1
        End If
    Next sht
    
    ' 确保至少有一个目标工作表存在，才执行隐藏操作
    If targetSheetCount >= 1 Then
        For Each sht In ThisWorkbook.Worksheets
            If sht.Name <> "Jason" And sht.Name <> "Mary" Then
                sht.Visible = False
            End If
        Next sht
    Else
        MsgBox "错误：工作簿中找不到Jason或Mary工作表，无法执行隐藏操作！"
    End If
End Sub

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