我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是： VBA即用型代码手册之改变主窗口标题栏名称及隐藏工作表

【分享成果，随喜正能量】人与人之间，太过善良，往往是场灾难，物极必反，太过善良，就会纵容别人的不善。生命的意义是什么，做正确的选择，做正确的思考，做正确的事情。诚者，天之道也；思诚者，人之道也。行走于世间，做一个真诚守信的人，哪怕清贫困苦，也不会寻找某些捷径，无愧于人不负自己。。

第三章 工作薄代码

Workbook Codes

20 改变Excel主窗口标题栏名称Change the Title Bar of the Excel

Private Sub Workbook_Activate()

Application.Caption = "VBA语言"

End Sub

Private Sub Workbook_Deactivate()

Application.Caption = Empty

End Sub

Sub mynzChangeTitleOfBar()

MsgBox "下面将恢复默认的标题栏名称!"

Application.Caption = Empty

End Sub

• 本节内容参考程序文件：Chapter03-4.xlsm

第四章 工作表代码

Worksheet Codes

1 隐藏除活动工作表之外的所有工作表Hide all but the Active Worksheet

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.

• 本节内容参考程序文件：Chapter04.xlsm

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