破解工作表密码/共享EXCEL表锁定破解

今天试验，真实有效。

今天下载了一个Excel2003文档，对里面的一些函数甚是感兴趣，但郁闷的是作者对文档进行了加密，有函数的地方全部设成只读属性了！在Excel的菜单中点击”撤销工作表”,提示输入密码!原来如此,上网搜了一个VBA宏破解的方法,一下就成功了啊!牛人还真的多啊!不得不佩服啊,下面就说一下这个方法吧

1．  点击“宏”→“宏”，出现窗口，在“宏名”定义一个名称为：PasswordBreaker，点击“创建”，然后关闭弹出的窗口，退出;

2．  再点击“宏”→“宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码：
　　Sub PasswordBreaker()
　　Dim i As Integer, j As Integer, k As Integer
　　Dim l As Integer, m As Integer, n As Integer
　　Dim i1 As Integer, i2 As Integer, i3 As Integer
　　Dim i4 As Integer, i5 As Integer, i6 As Integer
　　On Error Resume Next
　　For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
　　For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
　　For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
　　For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
　　ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
　　Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
　　Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
　　If ActiveSheet.ProtectContents = False Then
　　MsgBox "One usable password is " & Chr(i) & Chr(j) & _
　　Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
　　Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
　　ActiveWorkbook.Sheets(1).Select
　　Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
　　Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
　　Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
　　Exit Sub
　　End If
　　Next: Next: Next: Next: Next: Next
　　Next: Next: Next: Next: Next: Next
　　End Sub

3．  再点击“宏”→“宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了，有个弹出对话窗口的，告诉你一个可以用的密码。哈哈，好牛啊。

听说：在Excel2007中打开的,根本就不需要撤销密码保护,直接就可以了啊!而且也没有”撤销工作表保护”的菜单。这个我没有试验过..

20130524,今天的重要任务是破解一个局域网上共享的 excel工作簿.用我以往学习的方法一一尝试,不行啊。焦急中。..上网度娘了一下，找到了个好用的破解文件AdvancedOfficePasswordRecovery_hhw2013ok.exe 我就根据情况使用如下:

1、局域网上共享的 excel工作簿允许多人同时编辑。现在一编辑，保存时候就弹出框“文件已锁定，请梢后再试”。我重新启动了文件所在的服务器，也不行。

2、考虑到是否有人在编辑该文件时候发生故障，导致线程缩定。不给编辑。。。但考虑到现象不相似，如果这样的话，文件的提示将会是：“给xx用户编辑/琐定” 字样。所以否定该方向。

3、用在工作簿内建宏再破解密码的方法，但操作到建立 宏 的时候，却被告诉 录制新宏不能保存在当前工作簿（因为该工作簿共享），而解除该工作簿保护，又需要有密码，这样冲突，解决不了。

4、在经过考虑，还是认为解除工作簿保护，还是要破解密码为上策。所以，就用AdvancedOfficePasswordRecovery打开文件，然后破解得到密码，然后该对话框中有个“打开”的按钮（文件路径已经具备好，不用理会）。关键点来了。如果这时候你   工具 ---保护---撤消工作簿保护 ，输入密码，悲剧，这样是不行的。因为还是得到“文件已锁定，请梢后再试”的对话框。这时候，你需要做的是首先把该打开的文件另存为一个例如名aa的文件。然后，关闭所有，再打开该aa文件，发现是是共享的。你在  工具 ---保护---撤消工作簿保护 ，输入密码，ok，这时候，你会欣喜地发现，“共享”的字样已经没有了。你成功了。如果你再想加保护，则  工具 ---保护---保护共享工作簿 ，追踪修订方式打勾，输入密码，你又可以保护你的工作簿了。

到这里，解决了问题。上传该破解文件，很好用。对付ms的文件密码。