excel表格文件加密后忘记密码了,如何解密?请高手赐教!
答案:2 悬赏:0 手机版
解决时间 2021-07-19 05:46
- 提问者网友:最爱你的唇
- 2021-07-18 06:50
excel表格文件加密后忘记密码了,如何解密?请高手赐教!
最佳答案
- 五星知识达人网友:山有枢
- 2021-07-18 07:42
如果你只有打开密码,且密码是7位数以内的数字,可用以下步骤解开:
新开一Excel,打开,记住文件路径,取消。然后把你待解密文件copy到这一路径,改名为1.xls。然后回到Excel窗口,同时按键盘的Alt和F11,右键点左上窗口中的VBAProject,插入,模块,在右边新出来的窗口粘贴一下代码
Sub crack()
Dim i As Long
i = 1
line2:
On Error GoTo line1
Do While True
Workbooks.Open "1.xls", , , , i
Workbooks("1.xls").Close 0
MsgBox "Password is" & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
End Sub
然后运行此宏(回到Excel窗口,工具,宏,宏,DefineHyperlink,运行)
如果有字母,稍微复杂些,道理是一样的。太长的密码,基本解不开了。
若果还有读写密码,且与打开密码一样,将Workbooks.Open "1.xls", , , , i改为Workbooks.Open "1.xls", , , , i, i
新开一Excel,打开,记住文件路径,取消。然后把你待解密文件copy到这一路径,改名为1.xls。然后回到Excel窗口,同时按键盘的Alt和F11,右键点左上窗口中的VBAProject,插入,模块,在右边新出来的窗口粘贴一下代码
Sub crack()
Dim i As Long
i = 1
line2:
On Error GoTo line1
Do While True
Workbooks.Open "1.xls", , , , i
Workbooks("1.xls").Close 0
MsgBox "Password is" & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
End Sub
然后运行此宏(回到Excel窗口,工具,宏,宏,DefineHyperlink,运行)
如果有字母,稍微复杂些,道理是一样的。太长的密码,基本解不开了。
若果还有读写密码,且与打开密码一样,将Workbooks.Open "1.xls", , , , i改为Workbooks.Open "1.xls", , , , i, i
全部回答
- 1楼网友:琴狂剑也妄
- 2021-07-18 07:55
百度搜索一下
Advanced Office Password Recovery
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯