Excel VBA用Do Loop遍历隐藏工作表出现对象报错如何修复？

问题原因 #

• VBA中对象变量赋值必须使用Set关键字，你代码里的ws = ActiveSheet写法错误，导致ws没有被正确赋值为工作表对象，后续访问时就会抛出「不是有效对象」的报错。
• 现有代码逻辑完全没有实现「遍历所有工作表」的需求，仅会处理当前激活的Introduction工作表，Do循环的写法也没有实际意义：第一次循环就会把当前工作表设为隐藏，满足循环终止条件直接退出，根本不会处理其他工作表。

修复方案 #

Excel不允许工作簿内所有工作表都隐藏，必须保留至少一个可见工作表，如果你需要隐藏除Introduction之外的所有工作表，正确代码如下：

Sub HideAllWorksheetsExceptIntro()
    Dim ws As Worksheet
    ' 遍历当前工作簿内所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过Introduction工作表，避免全隐藏报错
        If ws.Name <> "Introduction" Then
            ws.Visible = False
        End If
    Next ws
    ' 确保Introduction工作表可见并激活
    Worksheets("Introduction").Visible = True
    Worksheets("Introduction").Activate
End Sub

如果你只是需要给单个指定工作表设置隐藏，正确的对象赋值写法参考：

Sub HideSingleSheet()
    Dim ws As Worksheet
    ' 对象变量赋值必须加Set关键字
    Set ws = Worksheets("Introduction")
    ws.Visible = False
End Sub

注意：如果Introduction是你工作簿内唯一的工作表，执行单表隐藏代码会直接报错，符合Excel的底层规则。

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