VBA即用型代码手册：立即保护所有工作表Code及插入多工作表Code

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

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

【分享成果，随喜正能量】忘足，履之适也；忘要，带之适也；知忘是非，心之适也。有些事，没有必要反复咀嚼，善于遗忘、坦然面对发生的一切。人生的快乐之道，就是在自己力所不及的的时候，就不要去忧虑。。

第四章工作表代码

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.

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

5 插入多个工作表Insert Multiple Worksheets

Sub nzInsertMultipleSheets() '插入多个工作表

Dim i As Integer

i = InputBox("输入要插入的工作表数.", "插入多张工作表")

Sheets.Add After:=ActiveSheet, Count:=i

End Sub

如果要在工作簿中添加多个工作表，则可以使用此代码。运行此宏代码时，您将获得一个输入框，用于输入要输入的工作表总数。

You can use this code if you want to add multiple worksheets in your workbook in a single shot. When you run this macro code you will get an input box to enter the total number of sheets you want to enter.