excel - VBA 隐藏名称为 "Sheet"的工作表

Question

我将下面的代码放在一起使用复选框隐藏命名工作表。该工作簿还包含具有通用名称的工作表，如 Sheet1、Sheet2 等，我希望能够从同一个复选框中隐藏名称中包含“Sheet”一词的所有工作表。
这可能吗？
谢谢

Private Sub CheckBox1_Click()

Application.ScreenUpdating = False

If CheckBox1 = False Then
If ThisWorkbook.Sheets("Summary").Range("B10") <> "" Then Sheets(ActiveSheet.Range("B10").Value).Visible = False
Else:
If ThisWorkbook.Sheets("Summary").Range("B10") <> "" Then Sheets(ActiveSheet.Range("B10").Value).Visible = True
End If

Application.ScreenUpdating = False

End Sub

Answer 1

如果您真的想隐藏工作表，请使用下一个代码。它隐藏了名称以“Sheet”开头的所有工作表:

Private Sub CheckBox1_Click()
  Dim sh As Worksheet
  
  For Each sh In Worksheets
    If left(sh.name, 5) = "Sheet" Then
        sh.Visible = xlSheetVeryHidden
    End If
  Next
End Sub