Vba 使用循环隐藏图纸时，使多张图纸保持可见

目前，我使用以下代码隐藏除一张之外的所有工作表（在本例中为

Sheet4

）：

---

但是，这段代码给了我运行时错误1004。您知道我的代码中哪里有错误吗？

将

或

切换到

和

以保持表1-3可见

---

ab

中的

表示它与

相同，而不是a=b

。这会在逻辑上切换与运行时错误无关的

或
和
和
，但您需要
和
而不是
或
，否则您仍然会隐藏希望保持可见的工作表。如果你考虑<代码> SUET1 ，<代码> B代号“SHIET1”<代码>是错误的，但是<代码> B代号“SHIET2”是真的，因此该表将被隐藏。将<代码>或切换到<代码>和 >以保持表1-3可见。谢谢。现在它正在工作。
Sub LoopHideSheets()
    Dim b As Worksheet
    For Each b In Worksheets
        If b.CodeName <> "Sheet4" Then
            b.Visible = False
        End If
    Next b
End Sub

Sub LoopHideSheets()
    Dim b As Worksheet
    For Each b In Worksheets
        If b.CodeName <> "Sheet1" Or _
           b.CodeName <> "Sheet2" Or _
           b.CodeName <> "Sheet3" _
           Then
            b.Visible = False
        End If
    Next b
End Sub