批量取消隐藏工作表 + 批量删除隐藏工作表(office2019)--2020-5-26更新（不写代码删除隐藏工作表，可使用文档检查器）

1、 VBA小代码，批量取消隐藏工作表

Sub 批量取消隐藏工作表()
    Dim sht As Worksheet
    '定义变量
    For Each sht In Worksheets
    '循环工作簿里的每一个工作表
        sht.Visible = xlSheetVisible
        '将工作表的状态设置为非隐藏
    Next
End Sub

 2、VBA小代码，批量取消隐藏工作表并且删除

Sub 批量取消隐藏工作表并且删除()
    Dim sht As Worksheet
    For Each sht In Worksheets
        '如果不是显示状态（返回值是0，也可以写为：(xlSheetVisible)），则删除
        If sht.Visible <> xlSheetVisible Then
            sht.Visible = xlSheetVisible
            Application.DisplayAlerts = False    '删除时不用确认
            sht.Delete
        End If
    Next
    '恢复确认，其实很多人不写这一句，作为小程序写不写倒也无所谓的啦，不影响你后面的程序执行，不过如果你的代码很多，流程很长，建议还是写上去，防止预期之外的的错误发生
    Application.DisplayAlerts = True
End Sub

3、不写代码--批量删除隐藏工作表，使用office自带的文档检查器即可。

文件→选项→信任中心→信任中心设置→隐私选项→文档检查器→隐藏的工作表→检查→全部删除

PS：如果是office2013或者2016，文档检查器可能是在个人信息选项里面（文末有备注）

PS：如果是office2013或者2016，文档检查器可能是在个人信息选项里面（文末有备注）（与上方呼应~）