vba如何调出指定的隐藏工作表（VBA取消隐藏所有工作表及删除除活动工作表之外的工作表代码）

【分享成果，随喜正能量】心有善念，正气凛然，邪崇不侵，心存慈悲，所到之处必有菩萨庇佑。立志言为本，修身行乃先。真正厉害的人，都能管住自己，该吃饭时吃饭，该睡觉时睡觉，该做事时做事，该玩耍时玩耍。绝不拖延，绝不后退。。

正如我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据的准确度。VBA系列教程共十套，我已经全部完成，技术工具系列在不断推出。

对于学员而言，如果您是入门阶段可以打包选择7.1.3.9教程，第7是入门，第1是入门后的提高，第3字典是必备的VBA之精华，第9是实用的典型案例讲解；如果您有了一定的VBA基础可以根据自己的需要，进行教程的选择及工具的利用，提供的程序文件就如一座大型的代码库支持着大家的工作；工具系列共分两类：一类是容易些的YZ系列，一类是较难些的NZ系列，这些工具是大家学习VBA的好帮手，其中NZ系列工具还有专门版本资料，提供给已按部就班学习完我所有教程的学员。

VBA是面向对象编程的语言，博大精深，这里我会分享些一些有用的VBA案例，暂时将这部分命名为《VBA精选案例代码（汉英）》和我的教程相互补充。有很多朋友咨询英语和VBA的关系，为了大家更好的领会和掌握VBA中用到的一些英语，这些案例中，我会用英语和汉语同时发布。今日的内容：VBA取消隐藏所有工作表及删除除活动工作表之外的工作表代码

Worksheet Codes

Sub nzUnhideAllWorksheet() '取消隐藏所有隐藏的工作表

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws

End Sub

如果您想取消隐藏使用以前的代码隐藏的所有工作表，那么这里是该代码。

And if you want to un-hide all the worksheets which you have hide with previous code, here is the code for that.

Sub nzDeleteWorksheets() '删除除活动工作表之外的所有工作表

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

If ws.Name <> ThisWorkbook.ActiveSheet.Name Then

Application.DisplayAlerts = False

ws.Delete

Application.DisplayAlerts = True

End If

Next ws

End Sub

如果要删除除活动工作表以外的所有工作表，此宏对您很有用。运行此宏时，它会将活动工作表的名称与其他工作表进行比较，然后将其删除。

If you want to delete all the worksheets other than the active sheet, this macro is useful for you. When you run this macro it will compare the name of the active worksheet with other worksheets and then delete them.

【分享成果，随喜正能量】

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】想要求得进步，必须具有”学徒性格”，耐得住别人教，别人怪、别人训，才会进步；不当”学徒”，如何”出师”？