高效管理：批量设置工作簿多表保护密码，一招解决！

在职场日常工作中，我们时常需要为工作簿中的多张工作表设置密码，以确保信息安全。然而，若是一张张地单独为工作表设置密码，无疑会耗费我们大量的时间和精力。为此，本文将向大家详细介绍一种高效的方法，让您能够轻松实现对工作簿中所有工作表的一次性统一设置密码。在本文的案例中，我们将所有工作表的保护密码统一设置为“666”。

以下是操作步骤，请您仔细阅读：

1. 首先，打开您需要设置密码的工作簿，然后在窗口上方找到“开发工具”选项卡，点击该选项卡下的“代码”功能组，接着单击“Visual Basic”按钮。

2. 在弹出的VBA编辑器窗口中，点击窗口上方的“插入”按钮，从下拉列表中选择“模块”。此时，您会在窗口左侧的列表中看到一个名为“模块1”的选项，这将是您存放编写代码的地方。同时，在右侧，您会看到一个名为“模块1（代码）”的编辑窗口。

3. 在“模块1（代码）”编辑窗口中，输入以下代码： vba Sub 批量保护() For Each sht In Sheets sht.Protect Password:="666" Next End Sub 输入完毕后，点击VBA编辑器窗口上方的“运行子过程／用户窗体”按钮（一个绿色向右的三角形图标）来执行代码。

4. 代码执行完毕后，选中工作簿中的一张工作表并尝试进行编辑修改，此时会弹出一个对话框，提示您“工作表已被保护，如果要修改请输入密码”。注意，这里的密码就是我们在代码中设置的“666”。

小提示：如果您需要批量解除对所有工作表的密码保护，同样可以参考上述方法在VBA编辑器中进行操作。只需将代码进行以下修改： vba Sub 批量保护解除() For Each sht In Sheets sht.UnProtect Password:="666" Next End Sub

至此，我们的分享就结束了。希望本文能帮助到您，同时也欢迎关注我们，一起学习更多关于Office办公技能的知识！#职场技能提升#