EXCEL表格的密码忘记了怎么处理啊？-PChome电脑之家

打开文件
然后点工具——宏——录制新宏，起个名比如aa
录完之后停止（这样就搞了个空宏）
接着再进工具——宏——宏，选中aa，点编辑
把弹出来的窗口里的内容全删掉（本来也没几行）
替换成下面这段代码：
Public Sub AllInternalPasswords()
' 破解工作表和工作簿结构密码，原作者Bob McCormick
' 这段算法可能是他写的，后面做了扩展
' Norman Harker 和 JE McGimpsey 2002年12月27日（第一版1.1）
' 2003年4月4日 JEM更新：统一消息为常量，去掉一个退出语句（版本1.1.1）
' 这个只能显示哈希后的密码，不是原始密码
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
改编自 Bob McCormick 的基础代码 & _
由 Norman Harker 和 JE McGimpsey 完成
Const HEADER As String = AllI内部密码提示
Const VERSION As String = DBLSPA

dszspgsbqeul

有一个OFFICE PASSWORD RECOVER 软件可以破解的，但要取决于你的密码强度，如果强度很高，如10位以上的数字+字母+符号，那就要等上几天了或者更长了，8位数字几分钟就搞定，我用过的。

dujianan890320

付费内容限时免费查看

回答

你好，关于你的问题我觉得如果密码是7位数以内的数字，如下操作：

同时按键盘的Alt和F11，点菜单上的插入，模块，在右边新出来的窗口粘贴一下代码：

Sub crackProtect()

Dim i As Long

i = 1

line2:

On Error GoTo line1

Do While True

ActiveWorkbook.Unprotect i

MsgBox "Password is" & i

Exit Sub

Loop

line1:

i = i + 1

Resume line2

End Sub

然后按F5运行此宏。

如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。

希望能够帮助到你

提问

在运行宏之前要打开一个表格吗

回答

是啊

提问

随便一个表格都可以吗？

回答

不是

提问

能不能说的详细一点

回答

选中忘记密码的表格，单击鼠标右键，选择“重命名”，将Excel的扩展名修改为“.rar”。

2.

打开压缩包，依次点击“xl”，“worksheets”。

3.

然后把有保护密码的工作表“sheet1.xml”拖出来，将工作表“sheet1.xml”用“写字板”的方式打开文件。

4

在文件里面按“Ctrl+F”查找“protect”，快速找到保护代码并删除。

5 .再把“sheet1.xml”放回压缩包里面，将扩展名改为“.xlsx”。

更多30条?

qqq354170676

如果表格被保护了，即开着，但是不能改动，且密码是7位数以内的数字，如下操作：
在excel窗口，同时按键盘的alt和f11，点菜单上的插入，模块，在右边新出来的窗口粘贴一下代码：
sub crackprotect()
dim i as long
i = 1
line2:
on error goto line1
do while true
activeworkbook.unprotect i
msgbox "password is" & i
exit sub
loop
line1:
i = i + 1
resume line2
end sub

然后按f5运行此宏。

如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。

如果excel文件的打开密码忘记了，且密码是7位数以内的数字，可用以下步骤解开：
新开一excel，同时按alt和f11，进入vba界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：
sub crack()
dim i as long
dim filename as string
application.screenupdating = false
i = 1
filename = application.getopenfilename("excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "vba破解")
filename = right(filename, len(filename) - instrrev(filename, ""))
line2:
on error goto line1
do while true
workbooks.open filename, , , , i
workbooks(filename).close 0
msgbox "password is " & i
exit sub
loop
line1:
i = i + 1
resume line2
application.screenupdating = true
end sub

然后按f5运行此宏

如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不开了。

若果还有读写密码，且与打开密码一样，将workbooks.open filename, , , , i 改为workbooks.open filename, , , , i, i

EXCEL表格的密码忘记了怎么处理啊？

最新回答更多>

相关问答

举报

举报成功

EXCEL表格的密码忘记了怎么处理啊？

最新回答 更多>

相关问答

举报

举报成功

最新回答更多>