关于Excel文件加密破解，在线等！

383681416

求大侠们 给一个破解Excel文件密码的VBA程序代码，谢谢了！在线等！

zjcat35

1. Sub 撤销工作表保护()
   
2.     Dim i1 As Integer, i2 As Integer, i3 As Integer
   
3.     Dim i4 As Integer, i5 As Integer, i6 As Integer
   
4.     Dim i7 As Integer, i8 As Integer, i9 As Integer
   
5.     Dim i10 As Integer, i11 As Integer, i12 As Integer
   
6.     On Error Resume Next
   
7.     If ActiveSheet.ProtectContents = False Then
   
8.         MsgBox "该工作表没有保护密码!"
   
9.         Exit Sub
   
10.     End If
    
11.     For i1 = 65 To 66: For i2 = 65 To 66: For i3 = 65 To 66
    
12.     For i4 = 65 To 66: For i5 = 65 To 66: For i6 = 65 To 66
    
13.     For i7 = 65 To 66: For i8 = 65 To 66: For i9 = 65 To 66
    
14.     For i10 = 65 To 66: For i11 = 65 To 66: For i12 = 32 To 126
    
15.         ActiveSheet.Unprotect Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) _
    
16.         & Chr(i6) & Chr(i7) & Chr(i8) & Chr(i9) & Chr(i10) & Chr(i11) & Chr(i12)
    
17.     Next: Next: Next: Next: Next: Next
    
18.     Next: Next: Next: Next: Next: Next
    
19.     MsgBox "破解结束"
    
20. End Sub

复制代码

383681416

谢谢你，我是个小白，我新建了一个模块，把你的代码复制到模块里，点击运行，显示此文档无密码保护！
我现在的目的是要把 加密的文件进行解密，请问如何操作，请大侠讲解的详细点（具体步骤），谢谢！
麻烦了！

wayy

你是要打开密码还是写保护密码呢？

无聊的疯子

Excel密码有以下4种,每种的解法都不一样,你要破那种呢>??

第一种:工作薄打开密码
第二种:工作薄表辑密码
第三种:单元格锁定密码
第四种:VBE工程查看密码

liucq

你还是发文件上来吧