在工作中我们可能会需要对工作簿中的多张工作表设置密码，如果一张一张地对工作表单独进行设置会比较费事，这篇文章就跟大家分享一下如何一次性为工作簿中的所有工作表统一设置密码。本文案例中，我们将所有工作表保护密码统一设置为“666”。

1. 打开工作簿，单击窗口上方“开发工具”选项卡“代码”功能组中的“Visual Basic”按钮。

2. 在打开的VBA编辑器窗口上方，单击“插入”按钮，在下拉列表中选择“模块”，此时在窗口左侧列表中就会增加一个存放编写代码的“模块1”。同时，在右侧会看到模块1（代码）编辑窗口。

3.在模块1（代码）编辑窗口中输入如下代码：

Sub 批量保护()
For Each sht In Sheets
sht.Protect "666"
Next
End Sub

输入完毕后，单击VBA编辑器窗口上方的“运行子过程／用户窗体”按钮（绿色向右的三角形）运行代码。

4.代码运行完毕后，选中工作簿中的一张工作表尝试进行编辑修改，会弹出如下对话框，提示工作表已被保护，如果要修改需要输入密码。（这里的密码就是前面代码第三行中的数字“666”）

如果需要批量解除对所有工作表的密码保护，也可以参照上面的方法在VBA编辑器窗口中进行设置，将代码修改一下即可，具体代码如下：

Sub 解除批量保护()
For Each sht In Sheets
sht.UnProtect "666"
Next
End Sub