简介：这是一份面向办公人员与数据处理初学者的Excel工作表保护破解实操文档，解决因忘记密码或他人设置锁定而无法编辑、查看工作表内容的常见问题。文档首先讲解工作表保护的标准设置方法，包括锁定单元格与保护工作表的操作路径；随后重点提供一段完整的VBA宏代码，通过遍历字符组合的方式清除工作表及工作簿结构密码，并配有逐步操作说明，无需安装第三方工具即可执行。代码注释详细，便于理解破解逻辑，同时可作为VBA编程的入门案例。资源包仅含1个docx文档，大小13KB，共3页，内容紧凑、步骤清晰，适合需要快速解除工作表密码限制的读者直接参考。该文档已有197人学习浏览，适用于个人表格密码遗忘恢复、数据备份前解除保护等实用场景。
1. 为什么Excel工作表保护密码能“破”掉
接手一个交接文档时最尴尬的情况之一，就是工作表全被锁死：公式栏空白，右键菜单里“设置单元格格式”灰掉，复制粘贴被拦截，而转交人自己也忘了保护密码。很多人第一反应是装个第三方工具，其实在旧版 Excel 里，工作表保护并没有想象中那么结实。保存保护状态时，Excel 并不会把明文口令写进文件，而是计算成一个很短的哈希校验值，供下次比对。只要这个校验值的算法足够简单，就能用程序遍历候选口令，让Unprotect方法与某个字符串匹配成功，进而解除保护。这套思路的代表就是流传多年的 AllInternalPasswords 宏，以及更适配新格式的 XLSX XML 清理法。这篇内容会讲清楚保护是怎么设的、VBA 脚本到底在做什么、它的边界在哪，以及不猜密码也能解锁的做法。
注意：整个过程只适用于你自己拥有的文件，或已经获得明确授权的文件。对合同约定不可修改的文档，动手前先取得书面许可。
2. 工作表保护是怎么锁上的：锁定、隐藏与权限粒度
2.1 三步设置：从单元格格式到保护工作表
Excel 把“保护”拆成两级：单元格级状态和工作表级开关。单元格状态决定某个区域能不能被改动或显示公式，工作表级开关决定整张表是否进入保护模式。
第一步：选中需要操作的单元格，按Ctrl+1打开“设置单元格格式”，切到“保护”选项卡。这里只有两个选项：锁定、隐藏。默认情况下所有单元格都处于锁定状态，但“隐藏”未勾选。若只想让别人填写指定区域，就先框选输入区域，把“锁定”的勾去掉；再框选公式区域，把“锁定”和“隐藏”都勾上。这样保护生效后，公式既不能改，也不会在公式栏里露出来。
第二步：在“审阅”选项卡里点击“保护工作表”，输入密码，并勾选允许用户执行的操作。旧版 Excel 的路径是“工具”->“保护”->“保护工作表”。常见权限项建议如下：
| 权限项 | 含义 | 推荐设置 |
|---|---|---|
| 选定锁定单元格 | 允许点击锁定区域但不允许编辑 | 勾选 |
| 选定未锁定单元格 | 允许进入数据录入区域 | 勾选 |
| 设置单元格格式 | 允许修改单元格格式 | 一般取消 |
| 插入行/列 | 允许在工作表内插入新行列 | 按业务需要 |
| 排序/自动筛选 | 允许受保护区域排序筛选 | 报表场景勾选 |
| 编辑对象/方案 | 允许修改图形和方案 | 默认取消 |
第三步：如果还要防止工作表被移动、隐藏或重命名，需要在“审阅”里点“保护工作簿结构”。工作簿结构保护与工作表保护是两套独立机制，破解时也要分别处理：一个针对worksheet层，一个针对workbook层。
2.2 密码校验的弱哈希原理与两类防护范围
旧版 Excel 保存工作表保护密码时，不会把明文口令存储在 XML 或二进制数据流中，而是将密码字符换算成一个短小的哈希校验值。不同版本的具体位数略有差异，但都不属于强加密。用户输入口令后，Excel 重新计算候选字符串的哈希，再与存储值比对；一致就让Unprotect放行，否则抛出错误。
这个特性带来一个关键结论：破解者不需要找到“原始密码”，只要能找到一个哈希结果相同的候选字符串即可。VBA 宏的做法是循环生成候选密码，逐个调用Unprotect，同时用On Error Resume Next吞掉错误提示。每次尝试后读取Worksheet.ProtectContents属性，如果它从 True 变成 False，就说明当前候选字符串通过了校验，保护被解除。
需要区分三类容易混淆的保护范围：
- 工作表保护：锁单元格内容、公式、编辑动作，范围局限于单个工作表。
- 工作簿结构保护：锁工作表的新增、删除、隐藏、重命名，范围是整个工作簿。
- 文件打开密码：对工作簿内容做整体加密，没有正确口令前无法读取数据。
VBA 宏和本文后面提到的 XML 清理法都只能处理前两类。文件打开密码属于真正的加密场景，不在同一套破解流程里。
2.3 保护带来的连锁反应
网上大量关于“excel无法复制粘贴”的求助，其实并不是 Excel 程序故障，而是工作表保护在起作用。受保护后，复制功能可以在菜单上看到，但执行粘贴时会弹出“单元格或图表受保护”的提示。尤其在整张表都被锁定的情况下，用户连最基本的双击单元格都会听到错误音。
这种形态很容易被误判：如果你搜索“excel无法粘贴数据”“excel不能复制粘贴”或“excel复制粘贴没反应”，排在前面的很多方案是查加载项和剪贴板，但实际上最先该检查的是“审阅”选项卡里保护状态是否被某个人开启过。这也是判断当前文件是否需要走恢复流程的依据之一：能正常打开文件、能看到数据，但所有修改入口被拦截，说明只是访问控制，不是文件加密。
3. 用VBA宏恢复密码：老脚本的完整运行与改造
3.1 把宏放进Excel VBA编辑器
先把待恢复文件在 Excel 中打开，然后按常Alt+F11打开 VBA 编辑器。左侧工程资源管理器里找到当前工作簿对应的VBAProject，右键选择“插入”->“模块”，在白色代码窗格里粘贴宏代码。
粘贴完成后，如果按F5或“运行”时报“宏已被禁用”，需要去“文件”->“选项”->“信任中心”->“信任中心设置”->“宏设置”里选择“启用所有宏”，同时勾选“信任对 VBA 工程对象模型的访问”。旧版 Excel 在“工具”->“宏”->“安全性”里修改。这里只是本地临时放行，脚本跑完记得恢复默认策略。
运行宏前最好关闭无关工作簿，因为下方代码会针对ThisWorkbook或ActiveWorkbook操作，不要把数据传到别的文件上。备份原文件是必要的，尤其是文件里有大量公式和图表时，一次错误的结构保护操作可能影响撤销记录。
3.2 从文档整理出的AllInternalPasswords逻辑
原始文档里给出的宏名叫 AllInternalPasswords，核心思路很直接：
- 先用空密码尝试解除工作簿结构保护。
- 再用空密码遍历所有工作表，把未设密码或密码为空但被保护的表先解开。
- 对仍然处于保护状态的表，逐层生成候选密码并调用
Unprotect，每猜一次查一次ProtectContents。
原代码里大量出现For i = 65 To 66，65 和 66 对应字符A和B，最后一位使用n = 32 To 126覆盖可打印 ASCII 字符。这套循环只在极窄的字符空间里搜索，对类似aa、AB、ABA这种短密码有效，对password、123456这种常见密码基本没有命中机会。文档里那句“这就是 Excel 密码对应的原始密码”也容易让人误解，实际运行成功后弹出的是完成提示，并不会把原始口令打印出来，它只是让保护状态消失。
因此，老脚本更适合作为理解“候选密码枚举 + 保护状态检测”的样例，而不是万能工具。遇到密码稍微复杂的文件，直接跑原版宏多半会长时间无响应。这里更推荐把它改造成针对某一类口令的快速脚本。
3.3 改成纯数字密码快速爆破版
工作场景里常见的工作表保护口令往往是“123456”“666888”这类纯数字，位数也集中在四位到六位。与其等待 A/B 循环撞大运，不如把候选密码限定在 0 到 999999，一次性遍历完。
Option Explicit Public Sub CrackNumericSheetPassword() Dim ws As Worksheet Dim p As Long Dim hit As Boolean For Each ws In ThisWorkbook.Worksheets If ws.ProtectContents Then Debug.Print "尝试解锁工作表: " & ws.Name hit = False On Error Resume Next For p = 0 To 999999 ws.Unprotect CStr(p) If Not ws.ProtectContents Then MsgBox "工作表 " & ws.Name & " 的可用口令是: " & CStr(p), _ vbInformation, "破解结果" hit = True Exit For End If Next p On Error GoTo 0 If Not hit Then Debug.Print "工作表 " & ws.Name & " 未在 0-999999 范围内命中" End If End If Next ws End Sub逻辑说明：ws.ProtectContents返回 True 表示该表的内容受保护；CStr(p)把循环整数转成字符串，作为密码传给Unprotect。密码错误时Unprotect抛出异常，但异常被On Error Resume Next跳过，ProtectContents仍然为 True。只有候选字符串通过了哈希校验，保护状态才会变为 False，此时立即退出循环并弹窗提示。
想缩短时间，就把上限改为9999；想扩大范围，把字符集从纯数字换成字母数字，但嵌套循环的组合数会指数级上升。常见字符集对应值如下：
| 目标场景 | 候选字符集 | 涉及的ASCII范围 |
|---|---|---|
| 纯数字 | 0-9 | 48-57 |
| 小写字母 | a-z | 97-122 |
| 大写字母 | A-Z | 65-90 |
| 字母数字 | 0-9, a-z, A-Z | 48-57, 65-90, 97-122 |
| 全部可打印 | 键盘可见字符 | 32-126 |
超过五位且带字母的密码不建议继续在 VBA 里跑，耗时不可控，直接改用下一章的 XML 清理法。
4. 不猜密码的解法：直接清理.xlsx里的sheetProtection节点
4.1 为什么.xlsx可以用XML替换解锁
从 Excel 2007 开始，xlsx 本质上是一个 ZIP 压缩包，内部按固定目录存放 XML。每个工作表对应xl/worksheets/sheet1.xml、sheet2.xml等文件，工作表保护并不存放在加密区，而是以一个<sheetProtection>标签记录在 XML 中，标签里包含哈希后的密码和各类保护属性。
既然保护只是 XML 里的一个标签，那将它整体删除后重新打包，就等于去掉了保护。整个过程不涉及密码计算，不会破坏单元格数据和格式。要注意的是，xls 这种老格式无法用此方法，因为它不是标准的 OOXML 结构，需要用 VBA 宏或对应版本的恢复工具。
4.2 PowerShell批量移除保护标签
在 Windows 上我一般用 PowerShell 处理，因为解压、替换、重新打包可以一条龙完成。先把原文件备份，再执行下面命令：
$path = "C:\work\locked.xlsx" $tmp = Join-Path $env:TEMP ("xlsx_" + [guid]::NewGuid().ToString("N")) Add-Type -AssemblyName System.IO.Compression.FileSystem # 1. 把xlsx解压到临时目录 [System.IO.Compression.ZipFile]::ExtractToDirectory($path, $tmp) # 2. 遍历所有工作表XML，移除 sheetProtection 标签 Get-ChildItem (Join-Path $tmp "xl\worksheets\*.xml") | ForEach-Object { $file = $_.FullName $content = Get-Content -Path $file -Raw -Encoding UTF8 $content = $content -replace '<sheetProtection[^>]*/>', '' Set-Content -Path $file -Value $content -Encoding UTF8 } # 3. 重新打包为新的xlsx $newPath = $path -replace '\.xlsx$', '_unlocked.xlsx' [System.IO.Compression.ZipFile]::CreateFromDirectory($tmp, $newPath) # 4. 清理临时目录 Remove-Item $tmp -Recurse -Force Write-Host "已生成: $newPath"命令说明：ExtractToDirectory把 xlsx 当普通 ZIP 解压；正则<sheetProtection[^>]*/>匹配自闭合的 protection 标签，其中[^>]*会包含password、sheet、objects、scenarios等属性；CreateFromDirectory把临时目录重新打成 ZIP。如果目标文件路径含空格，请确保$path变量被引号正确包裹。
4.3 会遇到的两个坑
第一个坑是文本编码。直接用Get-Content和Set-Content读写 XML，遇到中文批注或特殊字符时容易产生编码问题，重新打包后 Excel 可能提示“文件损坏并尝试修复”。更稳妥的做法是改用 .NET 的File.ReadAllText和File.WriteAllText，指定 UTF-8 编码，避免 BOM 导致的解析异常。
第二个坑是工作簿结构保护。如果文件同时启用了“保护工作簿结构”，那么xl/workbook.xml中还会有一个<workbookProtection>标签。上面的脚本只处理了 worksheet 层，没有处理 workbook 层，需要再执行一次替换：
$wbFile = Join-Path $tmp "xl\workbook.xml" $wbContent = Get-Content $wbFile -Raw -Encoding UTF8 $wbContent = $wbContent -replace '<workbookProtection[^>]*/>', '' Set-Content $wbFile $wbContent -Encoding UTF8替换完成后，回到原来的第 3 个步骤重新打包。生成的新文件如果仍弹出修复提示，不要点“修复”并保存，而应从临时解压目录里重新检查 XML，确认每个标签是否被正确删除。
5. 保护密码恢复之后：再锁一次，但别再锁死自己
5.1 先确认还有哪些表处于保护中
破解完成后不要只盯着消息框，应该用一段检查代码确认所有工作表的状态。在 VBA 编辑器里新建模块并执行：
Sub CheckSheetsStatus() Dim ws As Worksheet Dim rng As AllowEditRange For Each ws In ActiveWorkbook.Worksheets If ws.ProtectContents Then Debug.Print "受保护: " & ws.Name For Each rng In ws.Protection.AllowEditRanges Debug.Print " 允许编辑: " & rng.Title & " -> " & rng.Range.Address Next rng Else Debug.Print "未保护: " & ws.Name End If Next ws End Sub这段代码会枚举Protection.AllowEditRanges，用于判断保护是否还在，以及是否已经有部分单元格被放行。对于刚恢复的表，如果AllowEditRanges为空，说明整张表都处于可编辑状态；如果后续重新设置了保护，但某些区域仍可修改，那么这里会直接列出对应区域地址。
5.2 好习惯：只锁公式，放开输入区
恢复访问权后，正确的做法是重新整理保护策略，而不是把所有表都裸奔。将公式所在单元格设置为锁定和隐藏，再把数据录入区设置为不锁定，然后启用“保护工作表”。这样用户可以在可编辑区域正常输入，也几乎不会误碰公式。勾选权限时注意“排序和自动筛选”要看场景，如果业务部门经常要按日期筛选，这个选项必须保留，否则用户会被莫名其妙的灰按钮挡住。
5.3 用临时副本验证破解结果
每次恢复操作都建议做成一个“副本式验证”的流程：先另存一份带验证后缀的文件，在这个副本上执行宏或 XML 替换，完成后手动尝试三件事——修改原来锁定的单元格、查看隐藏公式是否显示、移动一个工作表。如果三件事都成功，再回到正式文件上操作。这样能避免主文件被一个不可逆操作弄坏。
验证的关键指标不是消息框里显示什么，而是ProtectContents是否真的为 False，以及实际编辑行为是否被允许。Excel 有一些隐藏的保护属性，例如共享工作簿保护和区域密码，单靠普通宏不一定能彻底清除。这时候最有效的方法是在副本上做一次另存为，把格式转成 .xlsx，再重新应用保护策略，彻底绕开老格式里遗留的边界情况。
本文还有配套的精品资源，点击获取
