【分享成果，随喜正能量】生活中，有人給予幫助，那是幸運，沒人給予幫助，那是命運。我們要學會在幸運青睐自己的時候學會感恩，在命運磨練自己的時候學會堅韌。。

正如我給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實踐經驗，全部濃縮在下面的各個教程中：

【分享成果，随喜正能量】禮贊、保佑每一位有緣衆生禍散福生，健康平安，吉祥如意，财運亨通。心裡包藏什麼都有，要用時就有，沒用時就沒有。這就是空即是色、色即是空。

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!