隐藏工作表VBA

nnsea

Sub HideWorksheetsByPrefix()
    Dim ws As Worksheet
    Dim prefix As String
    Dim found As Boolean
      
    ' 弹出输入框让用户输入要隐藏的工作表名称前缀
    prefix = InputBox("请输入要隐藏的工作表名称前缀：", "隐藏工作表")
      
    ' 检查用户是否输入了前缀
    If prefix = "" Then
        MsgBox "您没有输入任何前缀，操作已取消。", vbExclamation
        Exit Sub
    End If
      
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 检查工作表名称是否以指定前缀开头
        If Left(ws.Name, Len(prefix)) = prefix Then
            ' 隐藏匹配的工作表
            ws.Visible = xlSheetVeryHidden ' 使用xlSheetVeryHidden将工作表设置为非常隐藏，这样它就不会出现在“取消隐藏”对话框中
            found = True ' 标记至少找到了一个匹配的工作表
        End If
    Next ws
      
    ' 如果没有找到任何匹配的工作表，则通知用户
    If Not found Then
        MsgBox "没有找到以 '" & prefix & "' 开头的工作表。", vbInformation
    Else
        MsgBox "以 '" & prefix & "' 开头的工作表已被隐藏。", vbInformation
    End If
End Sub