乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 2013版的excel表打开的时候就有密码,请问如何破解-excel密码解密,excel万能密码

2013版的excel表打开的时候就有密码,请问如何破解-excel密码解密,excel万能密码

作者:乔山办公网日期:

返回目录:excel表格制作


我的邮箱:
发过来帮你破解。。发送成功后请追问!

你可以这里学习一copy下。可能能帮到zhidao你。http://technet.microsoft.com/ZH-CN/library/jj923033.aspx
打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个e69da5e887aa7a686964616f337模块
代码如下,我没装2013,你自己试下吧

Private Sub VBAPassword() '你要解保护的Excel文件路径
Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")
If Dir(Filename) = "" Then
MsgBox "没找到相关文件,清重新设置。"
Exit Sub
Else
FileCopy Filename, Filename & ".bak" '备份文件。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Sub
End If

Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Close #1
End Sub

你好,试试以下方法
1
双击【@Install_绿化】打开破解软件。

选择【打开文件】浏览并打开要破解密码的Excel文件。

确定以后即开始破解程序。破解顺序按下图顺序,最后执行暴力破解。

破解完毕后会弹出如下界面,每种密码分别列示在不同区域。点击复制按钮即可将密码复制到剪切板。
注意:这里的密码可能不是原始输入的密码,比如说原来输入的密码是:123,这里破解出来的密码可能是:3b4b3b5b7b1这种,但是不影响解开保护。

注意:对于VBA密码,点击【更改VBA密码】,输入新的简单密码,例如123,然后确定。

点击【复制】按钮复制破解出来的密码

双击Excel文件,并粘贴刚才复制的密码。

对于工作表保护密码,选中某个工作表名称,然后鼠标右键,选择并复制密码。

打开Excel文件,点击【撤销工作表保护】并粘贴复制的密码。

点击【保护工作簿】下的【保护结构和窗口】并粘贴复制的密码。

按Alt+F11的快捷键,打开VBE界面,输入刚才更改的VBA密码,一切就搞定啦!

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网