[原创]如何防止EXCEL密码破解

fecmen

tcy119 发表于 2009-4-6 22:38
1好人好梦.wma
2梦中的情话.wma
3千里之外.wma

能破解excel2007以上版本的文件打开密码吗？

dyzx

请问各位是用什么软件破解的，能否共享一下，多谢。

咆哮的风雷云

ly.liubing 发表于 2010-8-30 09:56
提供一个思路，供大家参考：
一、设置一段代码：当本工作薄被打开时，如果未出现密码输入对话框（即当密码 ...

这个搞出来了吗？搞出来了能行告知一下吗，我就想要一个并愿意付费，我想要个只要是试图运行破解保护密码的程序，立即自动删除隐藏的工作表。

xww603

tcy119 发表于 2009-4-6 22:38
1好人好梦.wma
2梦中的情话.wma
3千里之外.wma

大神能否帮忙看一下这个http://club.excelhome.net/thread-1335420-1-1.html，万分感激！

ivccav

4701568 发表于 2009-4-6 16:38
楼主提供的密码是多少啊

密码是：“我和草原有个约会”

ivccav

咆哮的风雷云 发表于 2015-9-21 22:00
这个搞出来了吗？搞出来了能行告知一下吗，我就想要一个并愿意付费，我想要个只要是试图运行破解保护密码 ...

EXCEL只是简单加密，只能防君子。高级加密技术要大量金钱花费，没必要。

ivccav

dyzx 发表于 2015-8-14 10:51
请问各位是用什么软件破解的，能否共享一下，多谢。

如何破解vba工程代码：
1.将你要破解的Excel文件关闭，切记一定要关闭呀！然后新建一个Excel文件
2.打开新建的这个Excel，按下alt+F11，打开vb界面，新建一个模块，如图所示
3.将代码复制到这个模块中，然后运行
4.运行后弹出对话框，选择要破解的EXCEL文档，然后点击打开
5.等几秒钟你就会看到破解成功的提示了，再次打开你要破解的这个文件，你会看到这里已经可以查看代码了


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

快乐学习E

大师如云，佩服佩服！

laisme888

tcy119 发表于 2009-4-6 22:38
1好人好梦.wma
2梦中的情话.wma
3千里之外.wma

朋友你好，请问你是怎么破解工作簿打开密码的呀，我一直搞不定这个问题。

adsadsd

公司的加密软件会把工作簿整个加密，只能在加密的电脑上打开。这种加密手段才是真的牛逼