Sub HideWorksheets()Dim ws As WorksheetDim keepSheets As VariantDim sheetName As String' 定义要保留的工作表名称（以数组形式）keepSheets = Array("Sheet1", "Sheet2") ' 在这里添加要保留的工作表' 遍历所有工作表For Each ws In ThisWorkbook.SheetssheetName = ws.Name' 检查工作表名称是否在要保留的列表中If IsInArray(sheetName, keepSheets) Then' 如果在列表中，不隐藏工作表ws.Visible = xlSheetVisibleElse' 如果不在列表中，隐藏工作表ws.Visible = xlSheetHiddenEnd IfNext ws
End SubFunction IsInArray(stringToBeFound As String, arr As Variant) As Boolean' 检查字符串是否在数组中Dim element As VariantOn Error Resume Nextelement = Application.WorksheetFunction.Match(stringToBeFound, arr, 0)On Error GoTo 0IsInArray = (Not IsEmpty(element))
End Function