导读【分享成果，随喜正能量】命由己造，相由心生，世间万物皆是化相，心不动，万物皆不动，心不变，万物皆不变。心里装着什么，就与什么结缘。。正如我给VBA的定义：V....

【分享成果，随喜正能量】命由己造，相由心生，世间万物皆是化相，心不动，万物皆不动，心不变，万物皆不变。心里装着什么，就与什么结缘。。

正如我给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

4 立即保护所有工作表Protect all Worksheets Instantly

Sub nzProtectAllWorskeets() 立即保护所有工作表

Dim ws As Worksheet

Dim ps As String

ps = InputBox("请输入密码", , "123")

For Each ws In ActiveWorkbook.Worksheets

ws.Protect Password:=ps

Next ws

End Sub

如果您想一次性保护所有工作表，这里有一个适合您的代码。运行此宏时，您将获得一个用于输入密码的输入框。输入密码后，单击“确定”。并确保注意CAPS。

If you want to protect your all worksheets in one go here is a code for you. When you run this macro, you will get an input box to enter a password. Once you enter your password, click OK. And make sure to take care about CAPS.

5 调整工作表中所有图表的大小Resize All Charts in a Worksheet

Sub nzResize_Charts() 调整工作表中所有图表的大小

Dim i As Integer

For i = 1 To ActiveSheet.ChartObjects.Count

With ActiveSheet.ChartObjects(i)

.Width = 300

.Height = 200

End With

Next i

End Sub

使所有图表的大小相同。此宏代码将帮助您制作相同大小的所有图表。您可以通过在宏代码中更改图表来更改图表的高度和宽度。

Make all chart same in size. This macro code will help you to make all the charts of the same size. You can change the height and width of charts by changing it in macro code.

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

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

【分享成果，随喜正能量】凡事较真，不如放下是非，笑看得失，无忧无愁无烦恼，以欢喜心过生活。