有一个EXCEL文件忘记密码了 不下载软件的情况下如何打开
答案:2 悬赏:40 手机版
解决时间 2021-04-25 08:53
- 提问者网友:我一贱你就笑
- 2021-04-24 15:33
不想下载软件 怎样打开
最佳答案
- 五星知识达人网友:空山清雨
- 2021-04-24 16:53
如果你只有打开密码,且密码是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-04-24 18:07
打不开,必须得用其它软件来移出密码
可以给我发过来,我给你移出
30401373@qq.com
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯