我的好多word设了密码~以前能打开得~现在都打不开了~怎么办啊~?
答案:2 悬赏:0 手机版
解决时间 2021-08-01 07:23
- 提问者网友:且恨且铭记
- 2021-07-31 07:09
我的好多word设了密码~以前能打开得~现在都打不开了~怎么办啊~?
最佳答案
- 五星知识达人网友:思契十里
- 2021-07-31 08:30
如果你是忘记密码,请试我下列内容。
如果你只有打开密码,且密码是7位数以内的数字,可用以下步骤解开:
新开一Wordl,打开,记
住文件路径,取消。然后把你待解密文件copy到这一路径,改名为1.doc(如果是2007,可能叫1.docx,需要把下面代码中两处改成
1.docx改了)。然后回到Word窗口,同时按Alt和F11,右键点左上窗口中的Thisdocument,插入,模块,在右边新出来的窗口粘贴一
下代码
Sub crack()
Dim i As Long
i = 1
line2:
On Error GoTo line1
Do While True
Documents.Open "1.doc", , , , "" & i
Documents("1.doc").Close 0
MsgBox "Password is" & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
End Sub
然后按F5运行此宏
如果有字母,稍微复杂些,道理是一样的。太长的密码,基本解不开了。
如果你只有打开密码,且密码是7位数以内的数字,可用以下步骤解开:
新开一Wordl,打开,记
住文件路径,取消。然后把你待解密文件copy到这一路径,改名为1.doc(如果是2007,可能叫1.docx,需要把下面代码中两处改成
1.docx改了)。然后回到Word窗口,同时按Alt和F11,右键点左上窗口中的Thisdocument,插入,模块,在右边新出来的窗口粘贴一
下代码
Sub crack()
Dim i As Long
i = 1
line2:
On Error GoTo line1
Do While True
Documents.Open "1.doc", , , , "" & i
Documents("1.doc").Close 0
MsgBox "Password is" & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
End Sub
然后按F5运行此宏
如果有字母,稍微复杂些,道理是一样的。太长的密码,基本解不开了。
全部回答
- 1楼网友:上分大魔王
- 2021-07-31 08:58
你忘了密码就怎么也打不开了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯