查看: 1065|回复: 2
2007版的怎么取消密码保护?
阅读权限50
在线时间 小时
原在表1用设置了保护密码，并用代码写了解密码与加密码，现在取消了VBA代码，在3个表中看不有要取消的密码，
可是再（每次）打开还是有密码保护,请问是怎么回事吗？
怎么才能取消呢？谢谢！
每次打开工作薄时要填密码.png (10.75 KB, 下载次数: 1)
22:42 上传
阅读权限30
在线时间 小时
上附件帮你看看
阅读权限10
在线时间 小时
在百度里下在破解器！用VBA也可做一个！
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师当前位置： >
> excel2007 利用vba破解密码的教程
excel2007 利用vba破解密码的教程
　　在Excel中录入了重要的数据而设置了密码保护，长时间下来可能会忘记了密码，这个时候就需要用到VBA进行破解密码了。下面是由学习啦小编分享的excel2007 利用vba破解密码的教程，供大家阅读、学习。
软件推荐：&&&&&&　　excel2007 利用vba破解密码的教程：　　用VBA破解密码步骤1：将你要破解的Excel文件关闭，切记一定要关闭呀!然后新建一个Excel文件　　用VBA破解密码步骤2：打开新建的这个Excel，按下alt+F11，打开vb界面，新建一个模块，如图所示　　用VBA破解密码步骤3：将代码复制到这个模块中，代码如下：　　Private Sub VBAPassword() '你要解保护的Excel文件路径　　Filename = Application.GetOpenFilename(&Excel文件(*.xls & *.xla & *.xlt),*.*.*.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　　用VBA破解密码步骤4：然后点击运行按钮，如图所示，绿色的小三角就是　　用VBA破解密码步骤5：你会看到，打开了一个文件夹，找到我们要破解的这个文件，然后点击打开　　用VBA破解密码步骤6：稍等几分钟你就会看到破解成功的提示了　　用VBA破解密码步骤7：再次打开你要破解的这个文件，你会看到这里已经可以查看代码了哈哈看了excel2007 利用vba破解密码的教程还看了：1.excel2013关于VBA密码破解的教程2.excel2010 vba 密码破解的方法3.excel2003密码破解的教程4.如何破译excel密码的方法5.如何解密excel的方法6.excel2007怎么设置密码7.excel2010 vba加密的方法
最新推荐文章
5.85GB/简体中文
　　《文明5》应用全新游戏引擎，导入六角格机制，采用了崭新的战斗系统、深度的外交...轻松破解Microsoft excel 2007 密码保护图文教程_西西软件资讯
西西软件园多重安全检测下载网站、值得信赖的软件下载站！
→ 轻松破解Microsoft excel 2007 密码保护图文教程
9.0 无限制版
类型：办公软件大小：2.9M语言：中文 评分：1.3
Microsoft发布Excel 2007时，引入了新的文件类型，即xlsx、xlsm、xltx，等等，称之为Open XML。因为这种新文件类型实质上是包含XML文件的包。如果将一个xlsx文件的扩展名修改为zip，那么能够看到组成该Excel文件的所有xml文档。
新的Open XML文件类型带来了许多好处。其主要的好处之一是可以通过操作组成文件的XML文档来简单地修改Excel 2007文件的内容和属性。
是的，当处理Open XML文件时，发现可以通过简单地编辑Excel文件里的xml文件，从而简单地移除工作表保护。
假设有一个工作簿，其工作表Sheet1被保护。现在，我希望取消该工作表的保护，但是不知道密码。怎么办呢？幸好这是Excel 2007，我们可以利用XML来移除工作表保护。
步骤1 首先备份工作簿，以防万一。
步骤2 修改工作簿文件的扩展名为zip。
步骤3 解压该文件。
步骤4 找到代表目标工作表的XML文件（在xl\worksheets文件夹中）。
步骤5 使用任一XML编辑器打开代表目标工作表的xml文档。
步骤6 找到“sheetProtection”标签并移除该标签所在的行。
步骤7 保存已编辑的XML文档，用其取代原Zip文件中相应的XML文档。
步骤8 将文件的扩展名修改回xlsx。
至此，工作表保护已解除。
在XML文件中看到的任何密码都不是真正的密码。
这种方法不能取消对整个工作簿的保护。
09-3002-0102-0101-2901-2901-2801-2701-2101-1501-13
阅读本文后您有什么感想? 已有23人给出评价!
名称大小下载如何破解word,excel的密码?excel,word的密码破解方法汇总(图)
作者：佚名
字体：[ ] 来源：互联网 时间：05-19 15:35:01
word,excel文档被加密了.怎么办啊.别争.有方法破解
给Word/Excle加密码，可能大家都知道如何做，可是你知道Word/Excel默认的加密方法是什么吗？默认的加密方法安全又怎样吗Excel弹出&您试图更改的单元格或图表受保护，因而是只读的。若要修改受保护单元格或图表，请先使用&撤消工作表保护&命令(在&审阅&选项卡的&更改&组中)来取消保护。可能会提示您输入密码。&关于Excel的密码安全给Word/Excle加密码，可能大家都知道如何做，可是你知道Word/Excel默认的加密方法是什么吗？默认的加密方法安全又怎样吗？看下面的图片：打开安全性选项：我想大多数的朋友都会在这里直接输入密码，然后确认、完成！！看看它默认的加密类型吧：看到了吧，Office 97/2000兼容！现在网上可以找到一个比较流行的破解Office 密码的Office Password Remover (另有一个比较常用的：Accent Office Password Recovery ）小软件，这个软件很小，但是对使用Office97/2000兼容模式加密的文件，却几乎做到了秒杀的程度。我自己下载过这个软件试过，给一个文档设相同的密码、不同加密类型的情况下，Office97/2000兼容模式是相当容易破解的，而如果是使用其它的加密方法：比如随便选择一个密钥长度为128 的加密类型，当使用这个软件破解软件时就会变得很难、很难&&&&&& 所以，如果你很在意你文档的安全性，如果你不想自己已经加过密码的文档不轻易被别人打开，那么就在你设密码的时候多点三下鼠标吧（我试过，三下，一下都不多！），这三下鼠标虽然不能保证除你之外的所有人都打无法打开文件，但是它却能让至少90%试图打开这个文件的人，无法完成他的&任务&。当然，如果你把密码设为&123456&，那么我也就没有什么好说的了&&:)也不管有没有用了，贴出来大家如果能用到就用吧！Excel密码保护的解除方法与解除原理
Excel弹出&您试图更改的单元格或图表受保护，因而是只读的。若要修改受保护单元格或图表，请先使用&撤消工作表保护&命令(在&审阅&选项卡的&更改&组中)来取消保护。可能会提示您输入密码。&窗口，如图1。
出现这种情况，应该怎么解决呢？经过研究，找到了两种破解Excel工作表保护码的方法。
一、VBA宏代码破解法：
第一步：打开该文件，先解除默认的&宏禁用&状态，方法是点击工具栏下的&选项&状态按钮，打开&Microsoft Office安全选项&窗口，选择其中的&启用此内容&，&确定&退出(图2)；
再切换到&视图&选项卡，点击&宏&&&录制宏&，出现&录制新宏&窗口，在&宏名&定义一个名称为：PasswordBreaker(图3)，点击&确定&退出；
第二步：再点击&宏&&&查看宏&，选择&宏名&下的&PasswordBreaker&并点击&编辑&，打开&Microsoft Visual Basic&编辑器，用如下内容替换右侧窗口中的所有代码：
Sub PasswordBreaker()Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerDim i1 As Integer, i2 As Integer, i3 As IntegerDim i4 As Integer, i5 As Integer, i6 As IntegerOn Error Resume NextFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126ActiveSheet.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 ThenMsgBox &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).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)Exit SubEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextEnd Sub
第三步：再点击&宏&&&查看宏&，选择&宏名&下的&PasswordBreaker&并点击&执行&，密码就现形了(图4)。
第四步：切换&审阅&选项卡，点击&撤消工作表保护&，然后输入密码即可解除锁定。
二、软件破解法
有许多专门为破解Excel各种密码而制作的软件，Excel Key与Advanced Office Password Recovery就是其中的佼佼者。它们的使用方法简单且破解速度极快。
1. Excel Key
下载(下载地址：/soft/183/183131.html)安装完后运行软件，点击工具栏&Recovery&按钮，找到要破解的文件，软件马上就可以解出密码了(图5)。
2. Advanced Office Password Recovery
下载(下载地址：/soft/utilitie/security/268 /410768.shtml)安装完后运行软件，点击工具栏&Open File&按钮，打开要破解的Excel文件，马上就可以看到解出的密码了(图6)。
可以看出，用以上方法读出的密码完全不同，但它们确实均可以解除该工作表的密码保护，这实在是个有趣的问题。
在网上查找了许久，终于找到比较圆满的解释答案：
当Excel工作表采用密码保护时，就会生成一个16位(双字节)长hash值。当输入密码进行验证时，真正进行比较的就是这个hash值。事实上，有很多不同的密码都可以生成同样的hash值。
大家可以试试：
当你用&test&(不含双引号)作为Excel工作表保护密码，你同样可以用&zzyw&(同样不含双引号)这个密码进行解锁。怎么样，神奇吧?
大家感兴趣的内容
12345678910
最近更新的内容2017年7月荣获微软MVP称号2016年10月荣获微软MVP称号2015年10月荣获微软MVP称号2014年10月荣获微软MVP称号2013年10月 荣获微软MVP称号2012年10月 荣获微软MVP称号2011年10月 荣获微软MVP称号2009年10月 荣获微软MVP称号2010年10月 荣获微软MVP称号2005年9月 荣获微软MVP称号2008年10月 荣获微软MVP称号2007年10月 荣获微软MVP称号2006年10月 荣获微软MVP称号
2017年9月 Windows专区大版内专家分月排行榜第一2017年7月 Windows专区大版内专家分月排行榜第一2017年6月 Windows专区大版内专家分月排行榜第一2017年5月 Windows专区大版内专家分月排行榜第一2016年10月 Windows专区大版内专家分月排行榜第一2016年7月 Windows专区大版内专家分月排行榜第一2016年5月 Windows专区大版内专家分月排行榜第一2016年4月 Windows专区大版内专家分月排行榜第一2016年2月 Windows专区大版内专家分月排行榜第一2015年12月 Windows专区大版内专家分月排行榜第一2015年10月 Windows专区大版内专家分月排行榜第一2015年5月 Windows专区大版内专家分月排行榜第一2015年1月 Windows专区大版内专家分月排行榜第一2016年9月 Windows专区大版内专家分月排行榜第一2014年4月 Windows专区大版内专家分月排行榜第一2013年8月 Windows专区大版内专家分月排行榜第一2013年7月 Windows专区大版内专家分月排行榜第一2013年5月 Windows专区大版内专家分月排行榜第一2013年4月 Windows专区大版内专家分月排行榜第一
2017年7月荣获微软MVP称号2016年10月荣获微软MVP称号2015年10月荣获微软MVP称号2014年10月荣获微软MVP称号2013年10月 荣获微软MVP称号2012年10月 荣获微软MVP称号2011年10月 荣获微软MVP称号2009年10月 荣获微软MVP称号2010年10月 荣获微软MVP称号2005年9月 荣获微软MVP称号2008年10月 荣获微软MVP称号2007年10月 荣获微软MVP称号2006年10月 荣获微软MVP称号
2017年9月 Windows专区大版内专家分月排行榜第一2017年7月 Windows专区大版内专家分月排行榜第一2017年6月 Windows专区大版内专家分月排行榜第一2017年5月 Windows专区大版内专家分月排行榜第一2016年10月 Windows专区大版内专家分月排行榜第一2016年7月 Windows专区大版内专家分月排行榜第一2016年5月 Windows专区大版内专家分月排行榜第一2016年4月 Windows专区大版内专家分月排行榜第一2016年2月 Windows专区大版内专家分月排行榜第一2015年12月 Windows专区大版内专家分月排行榜第一2015年10月 Windows专区大版内专家分月排行榜第一2015年5月 Windows专区大版内专家分月排行榜第一2015年1月 Windows专区大版内专家分月排行榜第一2016年9月 Windows专区大版内专家分月排行榜第一2014年4月 Windows专区大版内专家分月排行榜第一2013年8月 Windows专区大版内专家分月排行榜第一2013年7月 Windows专区大版内专家分月排行榜第一2013年5月 Windows专区大版内专家分月排行榜第一2013年4月 Windows专区大版内专家分月排行榜第一
本帖子已过去太久远了，不再提供回复功能。