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禁用分页符及隐藏除活动工作表之外的所有工作表

VBA Printing Codes Examples

Sub nzDisablePageBreaks() '禁用分页符

Dim wb As Workbook

Dim wks As Worksheet

Application.ScreenUpdating = False

For Each wb In Application.Workbooks

For Each Sht In wb.Worksheets

Sht.DisplayPageBreaks = False

Next Sht

Next wb

Application.ScreenUpdating = True

End Sub

若要禁用分页符，请使用此代码。它只会从所有打开的工作簿中禁用分页符。

To disable page breaks use this code. It will simply disable page breaks from all the open workbooks.

Worksheet Codes

Sub nzHideWorksheet() '隐藏除活动工作表之外的所有工作表

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

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

ws.Visible = xlSheetHidden

End If

Next ws

End Sub

现在，假设您要隐藏工作簿中除活动工作表之外的所有工作表。此宏代码将为您执行此操作.

Now, let's say if you want to hide all the worksheets in your workbook other than the active worksheet. This macro code will do this for you.

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

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

【分享成果，随喜正能量】礼赞、保佑每一位有缘众生祸散福生，健康平安，吉祥如意，财运亨通。心里包藏什么都有，要用时就有，没用时就没有。这就是空即是色、色即是空。