excel表格文件加密后忘记密码了,如何解密?请高手赐教!
4个回答
推荐于2018-02-03
展开全部
如果你只有打开密码,且密码是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
展开全部
建议您可以下载一款破解软件试试,不过成功的几率不是很大,如果文件不是非常重要的话,我建议您还是放弃吧。
给文件加密,我使用的是文件夹加密超级大师。
文件夹加密超级大师的闪电和隐藏加密自带的有密码恢复功能,我建议您再加密文件的时候可以试试。
给文件加密,我使用的是文件夹加密超级大师。
文件夹加密超级大师的闪电和隐藏加密自带的有密码恢复功能,我建议您再加密文件的时候可以试试。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
一般密码不是非常复杂是完全可以破解的,前提是你没把文件损坏!不然就算我拿到你文件也帮不到你
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-15
展开全部
百度搜索一下Advanced Office Password Recovery
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询