Excel 工作表被保护无法修改?高效解限!
- 2026-11-10 12:38:19
Excel 工作表被保护无法修改?高效解限!
5
只想下班
昨天 23:26
救救我~
？？？
怎么解锁所有工作表（无密码）
谢邀……容我想想。
解除所有工作表保护（VBA 宏）
操作步骤：
1.打开需要解除保护的 Excel 文件。
2.按下快捷键 Alt + F11，打开 VBA 编辑器（新手也能轻松操作）。选择【插入】→【模块】。
3.将下面的代码完整复制粘贴到右侧的空白代码窗口中：
Sub UnprotectAllSheetsWithoutPassword()Dimws As Worksheet' 关闭屏幕刷新，提升运行速度Application.ScreenUpdating = False' 遍历当前工作簿的所有工作表For Each ws In ThisWorkbook.Worksheets' 无密码解除工作表保护（核心代码）ws.UnprotectNext ws' 恢复屏幕刷新Application.ScreenUpdating = True' 提示操作完成MsgBox "所有工作表的保护已一键解除！", vbInformation, "操作完成"End Sub
4.按下快捷键 F5 运行代码，或点击 VBA 编辑器顶部的 “运行” 按钮（▶️图标）。
5.稍等片刻，会弹出 “所有工作表的保护已一键解除！” 的提示框，点击 “确定” 即可。
锁定所有工作表保护（VBA 宏）
操作步骤：
1.打开需要开启保护的 Excel 文件。
2.按下快捷键 Alt + F11，打开 VBA 编辑器（新手也能轻松操作）。选择【插入】→【模块】。
3.将下面的代码完整复制粘贴到右侧的空白代码窗口中：
Sub ProtectAllSheetsWithoutPassword()Dim ws As Worksheet' 关闭屏幕刷新，加快运行速度Application.ScreenUpdating = False' 遍历所有工作表并开启保护For Each ws In ThisWorkbook.Worksheets' 核心代码：无密码开启工作表保护' DrawingObjects:=True 保护形状/图表，Contents:=True 保护单元格内容，Scenarios:=True 保护方案ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=TrueNext ws' 恢复屏幕刷新Application.ScreenUpdating = True' 提示操作完成MsgBox "所有工作表已一键开启保护！", vbInformation, "操作完成"End Sub
4.按下快捷键 F5 运行代码，或点击 VBA 编辑器顶部的 “运行” 按钮（▶️图标）。
5.稍等片刻，会弹出 “所有工作表已一键保护！” 的提示框，点击 “确定” 即可。
END
本文来自网友投稿或网络内容，如有侵犯您的权益请联系我们删除，联系邮箱：wyl860211@qq.com 。
