大家好，我是你们的Excel小牛牛。
今天咱们不聊怎么美化表格，也不聊什么复杂的函数。咱们来聊一个让人血压飙升的场景：
你兴冲冲地打开一个工作簿，准备大干一场，结果Excel冷冷地弹出一个对话框：“工作簿结构已保护，无法修改”。
你试了试常用的密码：“123456”？不对。“admin”？不对。甚至连你的生日都试了，还是不对。
那一刻，你是不是觉得头顶的头发又少了几根？
别慌！作为资深VBA玩家，今天我就把压箱底的“解锁神技”交出来。咱们不整那些虚头巴脑的付费软件，直接用Excel自带的VBA功能，给这个工作簿来个“大保健”。
⚠️ 高能预警：本技术仅供合法用途（比如找回你自己忘了的密码），请勿用于非法破解他人机密，否则后果自负哦！
原理：Excel的“掩耳盗铃”
首先，我们要明白一个冷知识：Excel的工作簿保护（注意，不是文件打开密码，而是保护结构的那种），其实更像是一个“防君子不防小人”的开关。
它并不是真的把你的数据加密锁死了，它只是给Excel下达了一个指令：“嘿，别让用户改我的结构”。
而VBA（Visual Basic for Applications）作为Excel的“亲儿子”，拥有更高的权限。我们可以写一段代码，利用Excel的一个特性（或者说是Bug），通过尝试各种字符组合，瞬间绕过这个保护。
听起来很复杂？其实就是让电脑帮我们试密码，但它用的不是“123456”，而是一串特殊的字符代码。
核心代码：复制粘贴，立竿见影
废话不多说，直接上干货。这段代码利用了经典的循环暴力破解法，专门对付那些简单的结构保护。
操作步骤：
打开那个让你头疼的Excel文件。
按下键盘上的Alt + F11（这是进入VBA世界的任意门）。
在左侧的项目窗口，右键点击VBAProject (你的文件名)，选择插入 -> 模块。
把下面的代码原封不动地复制进去。
点击顶部的绿色小三角（运行），或者按F5。
去喝杯咖啡，回来可能就解开了。
Sub 暴力破解工作簿结构() '作者：你的Excel老中医 '功能：解除工作簿结构保护 Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String '关闭屏幕刷新，加快速度，避免闪瞎眼 Application.ScreenUpdating = False On Error Resume Next '核心逻辑：利用字符组合尝试解锁 '这里的循环逻辑是基于Excel旧版本加密算法的漏洞 Do For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) '如果保护解除了，就跳出循环 If .ProtectStructure = False And .ProtectWindows = False Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & _ Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox "搞定！密码其实是：" & PWord1, vbInformation, "解锁成功" Exit Sub End If End With Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 Application.ScreenUpdating = TrueEnd Sub
代码解析（给爱学习的小伙伴）：
Application.ScreenUpdating = False：这行代码非常重要！它让Excel在后台默默干活，不刷新屏幕。否则你会看到Excel疯狂闪烁，像是在跳迪斯科，而且速度会慢得像蜗牛。
Chr(i)：这是在生成字符。Excel旧版本的保护算法有个特性，只要凑够一定长度的特定字符，就能通过验证。这段代码就是在快速生成这些“万能钥匙”。
On Error Resume Next：告诉Excel，“遇到错误别报错，继续试下一个”。因为大部分尝试肯定是失败的，我们不希望程序停下来哭诉。
还是解不开？试试这个“极简法”
上面的代码是经典的“万能钥匙”，但在某些新版本的Excel（比如Office 365）或者针对工作表（Sheet）保护时，可能效率不高。
如果你的目标是解除某一张工作表的保护（而不是整个工作簿的结构），这里有一个更简单、更暴力的“单行代码法”。
同样在VBA编辑器里，插入模块，输入：
Sub 极简解锁() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True ActiveSheet.UnprotectEnd Sub
原理： 这利用了Excel的一个逻辑Bug。先保护一次，再修改参数保护一次，最后直接下令“取消保护”。在很多情况下，这能直接绕过原本的限制，让Excel以为保护已经被正确移除了。
最后的碎碎念
虽然这些代码能帮你解决燃眉之急，但我还是要啰嗦两句：
备份！备份！备份！ 在运行任何代码之前，先把文件另存为一个副本。万一代码跑飞了，你还有后悔药吃。
区分“打开密码”和“保护密码”。 本文的方法只针对“保护工作簿/工作表结构”。如果你的文件双击打开时就需要密码（文件级加密），那是AES加密，VBA是搞不定的，那是黑客的领域，咱们普通用户还是老实回忆密码吧。
职场道德。 代码是死的，人是活的。如果你破解的是老板或者同事的文件，请确保你是在帮他们解决问题，而不是搞破坏。
好了，今天的“Excel急救室”就到这里。希望这些代码能成为你工具箱里的瑞士军刀，在关键时刻救你一命！
如果你觉得有用，记得点个赞，关注我，带你用VBA玩转Excel，从此告别加班！
