【分享成果，随喜正能量】命由己造，相由心生，世間萬物皆是化相，心不動，萬物皆不動，心不變，萬物皆不變。心裡裝着什麼，就與什麼結緣。。

正如我給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 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.

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

【分享成果，随喜正能量】凡事較真，不如放下是非，笑看得失，無憂無愁無煩惱，以歡喜心過生活。

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