[已解决]请问隐藏工作表中所有的工作表，只剩一个工作表显示。谢谢

ITD

请问如何一次性隐藏一个工作溥里面任意几个工作表，又如何一次性将这些隐藏的工作表取消隐藏？谢谢！(任何方法均可）

希哲

参考那么的帅的代码。隐藏除当前工作表以外的表

Sub AA()
    For Each sht In Sheets
        If sht.Name <> ActiveSheet.Name Then
            sht.Visible = 0  '0为普通隐藏，改为2为深度隐藏
        End If
    Next
End Sub

zhuzheng_72

跟着学

qw002qw

大神们,小弟初学,遇到这问题,不懂,你下附件打开就能看到说未定义