我的一个EXCEL表格设置了密码，忘记密码打不开，怎么办？
发布网友
发布时间：2022-03-03 07:51
共2个回答
热心网友
时间：2022-03-03 09:20
开放工具--录制宏--马上停止录制--然后点击宏选择刚才录制的宏点击编辑清空里面的内容，复制下面的内容进去，然后运行宏就好了
Private Sub VBAPassword() '你要解保护的Excel文件路径
Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")
If Dir(Filename) = "" Then
MsgBox "没找到相关文件,清重新设置。"
Exit Sub
Else
FileCopy Filename, Filename & ".bak" '备份文件。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Sub
End If
Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Close #1
End Sub
热心网友
时间：2022-03-03 10:38
付费内容限时免费查看回答 Excel表格密码忘了解决办法一：
开始破解：
1、把文件后辍改为Rar，文件图标会变成压缩包形式
2、双击打开压缩包，把xlworksheets文件夹中的sheet1拖动复制出来
为什么要拖出sheet1？因为sheet1就是汇总表工作表，查看方法：
工作表标题上右键 - 查看代码 - 在弹出的新窗口中右上角“工程”小窗口中可以看到工作表的顺序名（自定义的工作表名）
3、用记事本打开sheet1
4、查找protect 并删除下面蓝色的代码，最后保存。
5、把sheet1拖回到压缩包中替换原文件，然后把压缩包后辍名改回xlsx！
这样就搞定了！以上是第一种方法！
