如何通过点击按钮逐次取消隐藏多个隐藏工作表中的单个工作表？

原有代码错误点 #

• 初始循环仅统计隐藏工作表的总数量，没有定位到需要操作的具体工作表对象
• 循环逻辑存在死循环风险：变量invi初始值为隐藏工作表总数，Do Until invi = 1的判定条件会在隐藏工作表数不为1时持续执行循环
• 语句ThisWorkbook.Worksheets.Visible = True会一次性将所有工作表设置为可见，完全不符合每次仅显示1个隐藏表的需求

正确VBA代码 #

替换原有代码为以下内容即可实现预期效果：

Sub 逐次显示下一个隐藏工作表()
    Dim ws As Worksheet
    ' 按工作表排列顺序遍历
    For Each ws In ThisWorkbook.Worksheets
        ' 找到第一个处于隐藏状态的工作表
        If ws.Visible = xlSheetHidden Then
            ' 取消该工作表隐藏
            ws.Visible = xlSheetVisible
            ' 操作完成直接退出，避免继续显示其他隐藏表
            Exit Sub
        End If
    Next ws
    ' 无隐藏工作表时弹出提示
    MsgBox "当前不存在隐藏的工作表", vbInformation
End Sub

使用说明 #

• 将上述宏绑定到你在工作表中插入的按钮控件上
• 每次点击按钮，会按照工作表在工作簿标签栏的排列顺序，取消排在最靠前的隐藏工作表的隐藏状态
• 所有工作表全部可见后，再次点击按钮不会触发报错，会弹出对应提示
• 如果需要同时处理设置为「非常隐藏（xlSheetVeryHidden）」状态的工作表，将代码中的判断条件ws.Visible = xlSheetHidden替换为ws.Visible <> xlSheetVisible即可

内容的提问来源于stack exchange，提问作者Amira Mohamed Abdelsalam