搜索
今天下载了一个Excel2003文档，对里面的一些函数甚是感兴趣，但郁闷的是作者对文档进行了加密，有函数的地方全部设成只读属性了！在Excel的菜单中点击”撤销工作表”,提示输入密码!原来如此,上网搜了一个VBA宏破解的方法,一下就成功了啊!牛人还真的多啊!不得不佩服啊,下面就说一下这个方法吧1．点击“宏”→“宏”，出现窗口，在“宏名”定义一个名称为：PasswordBreaker，点击“创建”，然后关闭弹出的窗口，退出;2．再点击“宏”→“宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisualBasic”编辑器，用如下内容替换右侧窗口中的所有代码：SubPasswordBreaker()DimiAsInteger,jAsInteger,kAsIntegerDimlAsInteger,mAsInteger,nAsIntegerDimi1AsInteger,i2AsInteger,i3AsIntegerDimi4AsInteger,i5AsInteger,i6AsIntegerOnErrorResumeNextFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126ActiveSheet.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)IfActiveSheet.ProtectContents=FalseThenMsgBoxOneusablepasswordis&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).SelectRange(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)ExitSubEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextEndSub3．再点击“宏”→“宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了，有个弹出对话窗口的，告诉你一个可以用的密码。哈哈，好牛啊。听说：在Excel2007中打开的,根本就不需要撤销密码保护,直接就可以了啊!而且也没有”撤销工作表保护”的菜单。这个我没有试验过..20130524,今天的重要任务是破解一个局域网上共享的excel工作簿.用我以往学习的方法一一尝试,不行啊。焦急中。..上网度娘了一下，找到了个好用的破解文件AdvancedOfficePasswordRecovery_hhw2013ok.exe我就根据情况使用如下:1、局域网上共享的excel工作簿允许多人同时编辑。现在一编辑，保存时候就弹出框“文件已锁定，请梢后再试”。我重新启动了文件所在的服务器，也不行。2、考虑到是否有人在编辑该文件时候发生故障，导致线程缩定。不给编辑。。。但考虑到现象不相似，如果这样的话，文件的提示将会是：“给xx用户编辑/琐定”字样。所以否定该方向。3、用在工作簿内建宏再破解密码的方法，但操作到建立宏的时候，却被告诉录制新宏不能保存在当前工作簿（因为该工作簿共享），而解除该工作簿保护，又需要有密码，这样冲突，解决不了。4、在经过考虑，还是认为解除工作簿保护，还是要破解密码为上策。所以，就用AdvancedOfficePasswordRecovery打开文件，然后破解得到密码，然后该对话框中有个“打开”的按钮（文件路径已经具备好，不用理会）。关键点来了。如果这时候你工具---保护---撤消工作簿保护，输入密码，悲剧，这样是不行的。因为还是得到“文件已锁定，请梢后再试”的对话框。这时候，你需要做的是首先把该打开的文件另存为一个例如名aa的文件。然后，关闭所有，再打开该aa文件，发现是是共享的。你在工具---保护---撤消工作簿保护，输入密码，ok，这时候，你会欣喜地发现，“共享”的字样已经没有了。你成功了。如果你再想加保护，则工具---保护---保护共享工作簿，追踪修订方式打勾，输入密码，你又可以保护你的工作簿了。到这里，解决了问题。上传该破解文件，很好用。对付ms的文件密码。