经常用 Excel 的朋友，一定遇到过这种头疼事：工作簿里藏了十几个、甚至几十个工作表，还全被设置了保护密码，想修改数据、调整格式，只能一个个手动解锁，输密码输到手软，效率低到崩溃！

今天给大家分享一段超实用的 VBA 代码，不用记密码、不用手动操作，一键就能解锁 Excel 里所有工作表，保护锁直接解除，操作简单到新手也能秒会！

先看效果：一键解锁全工作表

这段 VBA 代码核心功能只有一个：遍历 Excel 中所有工作表，自动解除保护锁定，不管工作表之前有没有设密码、设了什么密码，运行代码后全部解锁，全程不超过 1 秒！

完整 VBA 代码，直接复制就能用

不用自己敲代码，直接复制下面这段代码，粘贴到 Excel 里就能运行：

Sub 一键解锁()

Dim sh As Worksheet

For Each sh In Worksheets

    sh.Protect AllowFiltering:=True

    sh.Unprotect

Next

MsgBox "解锁完成"

End Sub

注释如下：

Sub 一键解锁()'定义工作表变量Dim sh As Worksheet'循环遍历所有工作表For Each sh In Worksheets'允许筛选（可选，保留不影响）        sh.Protect AllowFiltering:=True'解除工作表保护        sh.UnprotectNext'弹出完成提示    MsgBox "解锁完成！"End Sub

3 步操作教程，零基础也能学会

步骤 1：打开 Excel 宏编辑器

按下快捷键 Alt + F11，一键调出 VBA 编辑窗口（不用怕界面复杂，跟着点就行）。

步骤 2：插入模块，粘贴代码

在 VBA 窗口左上角，点击【插入】→【模块】，然后把上面的完整代码，直接粘贴到空白的模块窗口里。

步骤 3：运行代码，一键解锁

按下 F5 键，或者点击工具栏里的【运行】按钮（绿色小三角），等待 1 秒，弹出 “解锁完成” 提示，所有工作表就都解锁了！

温馨提示

1. 安全提醒
   ：密码的作用主要是防止误操作，误删除，如自己长时间未操作，忘记密码，可以使用此方法，但不要用于恶意破坏他人表格；
2. 保存格式
   ：运行完代码后，若想保留宏功能，保存时选择【Excel 启用宏的工作簿（.xlsm）】格式。

写在最后

Excel 的高效操作，从来不是死磕手动步骤，而是学会用工具偷懒！这段一键解锁工作表的 VBA 代码，没有复杂逻辑，不用懂编程，复制粘贴就能用，彻底告别逐个解锁工作表的繁琐，职场打工人必备小技巧～

总结

1. 核心代码一键解锁所有 Excel 工作表，无需手动操作、无需逐表输密码；
2. 操作仅 3 步：Alt+F11打开编辑器→插入模块粘贴代码→F5运行；
3. 零基础可上手，职场高效必备，安全使用不侵权。

觉得实用的话，点赞 + 收藏 + 转发，让更多 Excel 用户摆脱繁琐操作！