EXCEL工作表密码保护的解除方法

Excel工作表密码保护的解除方法

Excel弹出“您试图更改的单元格或图表受保护,因而是只读的;若要修改受保护单元格或图表,请先使用‘撤消工作表保护’命令在‘审阅’选项卡的‘更改’组中来取消保护;可能会提示您输入密码;

出现这种情况,应该怎么解决呢经过研究,找到了两种破解Excel工作表保护码的方法;

一、VBA宏代码破解法:

第一步:打开该文件

第二步:按Alt F11,进入VBA编辑界面;

第三步:插入一个Module;

第四步:在右边Module的空白编辑区域,复制粘贴下面的所有内容;

第五步:按F5,运行该VBA命令;密码就现形了;

Sub Password

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 Chri & Chrj & Chrk & _

Chrl & Chrm & Chri1 & Chri2 & Chri3 & _

Chri4 & Chri5 & Chri6 & Chrn

If ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " & Chri & Chrj & _

Chrk & Chrl & Chrm & Chri1 & Chri2 & _

Chri3 & Chri4 & Chri5 & Chri6 & Chrn

ActiveWorkbook.Sheets1.Select

Range"a1".FormulaR1C1 = Chri & Chrj & _

Chrk & Chrl & Chrm & Chri1 & Chri2 & _

Chri3 & Chri4 & Chri5 & Chri6 & Chrn

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

第六步:切换“审阅”选项卡,点击“撤消工作表保护”,然后输入密码即可解除锁定;

二、软件破解法

有许多专门为破解Excel各种密码而制作的软件,Excel Key与Advanced

Office Password Recovery就是其中的佼佼者;它们的使用方法简单且破解速度极快;

1. Excel Key

下载下载地址:http://.mydown/soft/183/183131.html安装完后运行软件,

点击工具栏“Recovery”按钮,找到要破解的文件,软件马上就可以解出密码了图5;

2. Advanced Office Password Recovery

下载下载地址:http://.mydown/soft/utilitie/security/268/410768.shtml 安装完后运行软件,点击工具栏“Open File”按钮,打开要破解的Excel文件,马上就可以看到解出的密码了图6;

可以看出,用以上方法读出的密码完全不同,但它们确实均可以解除该工作表的密码保护,这实在是个有趣的问题;

在网上查找了许久,终于找到比较圆满的解释答案:

当Excel工作表采用密码保护时,就会生成一个16位双字节长hash值;当输入密码进行验证时,真正进行比较的就是这个hash值;事实上,有很多不同的密码都可以生成同样的hash值;

大家可以试试:

当你用“test”不含双引号作为Excel工作表保护密码,你同样可以用“zzyw”同样不含双引号这个密码进行解锁;怎么样,神奇吧

Excel密码保护的解除方法

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 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 第三步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“执行”,密码就现形了(图4)。

Excel密码保护的解除方法 解除写保护

Excel密码保护的解除方法解除写保护 Excel弹出“您试图更改的单元格或图表受保护,因而是只读的。若要修改受保护单元格或图表,请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。”窗口,如图1。 出现这种情况,应该怎么解决呢?经过研究,找到了两种破解Excel工作表保护码的方法。 一、VBA宏代码破解法: 第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“Microsoft Office安全选项”窗口,选择其中的“启用此内容”,“确定”退出(图2);

Excel密码保护的解除方法与解除原理 Excel弹出“您试图更改的单元格或图表受保护,因而是只读的。若要修改受保护单元格或图表,请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。”窗口,如图1。 出现这种情况,应该怎么解决呢?经过研究,找到了两种破解Excel工作表保护码的方法。

一、VBA宏代码破解法: 第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“Microsoft Office安全选项”窗口,选择其中的“启用此内容”,“确定”退出(图2); 再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:Password Breaker(图3),点击“确定”退出; 第二步:再点击“宏”→“查看宏”,选择“宏名”下的“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

Excel密码保护的解除方法与解除原理

Excel密码保护的解除方法与解除原理-+++个人推荐 Excel密码保护的解除方法与解除原理 朋友们,是否由遇到过忘记Excel保护密码的情况,今天偶也碰到的。网了好久最后再天极找到了这篇文章,写的真好。 用宏的办法,用Miscrosoft的东西解决Miscrosoft的问题,真是管用。不过需要花费点时间。 后面的软件的话,好像只能破解打开密码。 个人推荐:法一,宏破解 好东西不敢独享。。希望对大家由所帮助。。 Excel弹出“您试图更改的单元格或图表受保护,因而是只读的。 若要修改受保护单元格或图表,请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。 可能会提示您输入密码。”窗口,如图1。

出现这种情况,应该怎么解决呢?经过研究,找到了两种破解Excel工作表保护码的方法。 一、VBA宏代码破解法: 第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“Microsoft Office安全选项”窗口,选择其中的“启用此内容”,“确定”退出(图2); 再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:PasswordBreaker(图3),点击“确定”退出;

第二步:再点击“宏”→“查看宏”,选择“宏名”下的“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 第三步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“执行”,密码就现形了(图4)。

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 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) & _

破解excel工作表保护

破解excel工作表保护 Excel工作表保护是一种常见的数据保护方式,它可以帮助我们防止他人对工作表的意外修改或删除。但有时候,我们可能会忘记保护工作表的密码,或者需要修改受保护的工作表,这时就需要破解Excel工作表保护。下面,我将介绍几种破解Excel工作表保护的方法,希望能帮助到大家。 首先,我们可以尝试使用VBA代码来破解Excel工作表保护。在Excel中,按下“Alt+F11”打开VBA编辑器,然后在新建的模块中输入以下代码:```VBA。 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) & _。

解除excel密码的方法

解除excel密码的方法 摘要: 1.解除Excel密码的必要性 2.解除Excel密码的方法 2.1 利用在线工具 2.2 使用第三方软件 2.3 手动破解密码 3.注意事项 4.总结 正文: 解除Excel密码的方法 随着工作效率的提高,越来越多的人开始使用Excel来处理和存储数据。然而,有时候我们会因为忘记密码而导致无法正常访问文件,这给工作带来了很大的不便。本文将为大家介绍解除Excel密码的方法,帮助你轻松找回丢失的访问权限。 1.解除Excel密码的必要性 Excel文件密码的作用是保护文件内容,防止未经授权的人查看或编辑。然而,在实际使用过程中,密码可能会成为进入文件的障碍。尤其是当我们忘记设置密码时,迫切需要找到一种方法来解除密码,以确保正常使用文件。 2.解除Excel密码的方法 2.1 利用在线工具

目前市面上有很多在线工具声称可以解除Excel密码,但效果因工具而异。一些在线工具需要你上传Excel文件,然后点击“解密”按钮即可。需要注意的是,使用在线工具存在一定风险,因为你的文件可能会被泄露给第三方。因此,在选择在线工具时,请务必谨慎。 2.2 使用第三方软件 市面上有很多专业的Excel密码破解软件,如AxpertSoft Excel Password Unlocker、Kernel Excel Password Recovery等。这些软件通常具有较高的解密成功率,且操作简单。只需下载并安装软件,然后导入Excel文件,即可尝试破解密码。需要注意的是,使用第三方软件也存在一定风险,请确保选择信誉良好的软件。 2.3 手动破解密码 对于仅包含简单公式和数据的Excel文件,可以尝试手动破解密码。方法是不断猜测密码,直到找到正确的密码。当然,这种方法适用于密码长度较短、复杂度较低的情况。如果Excel文件包含复杂公式或敏感数据,不建议使用此方法,以免泄露重要信息。 3.注意事项 在进行Excel密码解除时,请注意以下事项: - 确保使用可靠的工具或软件,避免泄露个人信息; - 谨慎选择在线服务,以免遭受网络诈骗; - 尽量不要使用过于复杂的密码,以免忘记; - 对于重要文件,可考虑采用其他加密方式,提高安全性。 4.总结

excel表格密码破解的方法

Excel表格密码破解的方法 一、概述 Excel表格是一款广泛使用的电子表格程序,它的安全性和隐私保护至关重要。然而,有时候我们会忘记自己设置的Excel表格密码,或者需要破解别人设置的密码。本文将对Excel表格密码破解的方法进行详细介绍,希望对大家有所帮助。 二、查看Excel表格的密码保护方式 在尝试破解Excel表格密码之前,我们首先需要了解Excel表格的密码保护方式。Excel表格的密码保护主要分为两种:文档开放密码和工作表保护密码。文档开放密码用于限制用户打开Excel文档,而工作表保护密码则是用于限制其编辑或者查看内容。我们需要查看Excel表格使用了哪种密码保护方式,以便有针对性地进行破解。 三、常见的Excel表格密码破解工具 1. Excel密码破解大师 Excel密码破解大师是目前比较流行的一款Excel表格密码破解工具,它可以帮助用户快速破解各种类型的Excel表格密码。用户只需简单

操作,即可轻松完成密码破解。该工具操作简单,界面友好,适合各类用户使用。 2. Passper for Excel Passper for Excel是一款专业的Excel表格密码破解软件,它可以帮助用户恢复忘记的Excel打开密码和修改密码。该软件兼容各种版本的Excel文档,能够高效、安全地进行密码破解。用户只需按照软件提示进行操作,即可完成密码破解。 3. iSunshare Excel密码破解 iSunshare Excel密码破解是一款专业的Excel表格密码破解工具,它支持多种密码破解方式,包括暴力破解、字典破解和智能破解等。用户可以根据自己的需求选择合适的破解方式,高效地破解Excel表格密码。 四、Excel表格密码破解的具体步骤 1. 准备破解工具 用户需要下载并安装一款专业的Excel表格密码破解工具,如Excel密码破解大师、Passper for Excel或iSunshare Excel密码破解等。安

excel去掉密码的方法

excel去掉密码的方法 Excel是一款非常广泛使用的电子表格软件,它可以帮助用户进行数据分析、计算、图表制作等操作。但是,有时候我们会在Excel 表格中设置密码保护,以保护机密数据或防止其他人修改表格内容。然而,当我们忘记密码或者需要修改内容时,我们可能需要去掉Excel 文件的密码保护。下面是几种去掉Excel密码的方法。 方法一:使用密码破解工具 有一些软件可以帮助用户去除Excel表格的密码,例如Excel Password Recovery、PassFab for Excel等。这些软件可以帮助用 户破解Excel表格的密码,让用户可以重新访问受保护的Excel文件。 方法二:使用VBA宏代码 如果用户对VBA有一定的了解,可以通过编写宏代码来去除Excel文件的密码保护。用户可以按照以下步骤进行操作: 1. 打开受保护的Excel文件,并按下Alt + F11打开VBA编辑器。 2. 在VBA编辑器中,选择项目资源管理器中的“ThisWorkbook”。 3. 在“ThisWorkbook”中,粘贴以下代码并运行: ```VBA 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) & i1 & i2 & i3 & i4 & i5 & i6 & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox '密码破解成功,密码为:' & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & i1 & i2 & i3 & i4 & i5 & i6 & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub ``` 该宏代码会尝试各种可能的密码组合,直到正确的密码被找到。 方法三:从备份文件恢复 如果用户曾经在Excel文件上设置过备份,那么可以尝试从备份文件中恢复数据。用户可以按照以下步骤进行操作:

excel工作表保护破解

excel工作表保护破解 Excel工作表保护破解。 在日常工作中,我们经常会使用Excel表格来存储和处理数据。为了保护数据的安全性,我们经常会对Excel工作表进行保护。但有时候我们会遇到需要修改或编辑被保护的工作表的情况,这就需要我们学会如何破解Excel工作表的保护。 破解Excel工作表保护并不是一件复杂的事情,下面我将向大家介绍几种常用的方法。 第一种方法是通过VBA代码来破解Excel工作表保护。首先,我们需要按下Alt + F11组合键,打开VBA编辑器。然后在新建的模块中输入以下代码:Sub UnprotectSheet()。 Dim ws As Worksheet。 For Each ws In ThisWorkbook.Worksheets。 ws.Unprotect Password:="yourpassword" Next ws。 End Sub。 在上面的代码中,yourpassword是你设置的工作表保护密码。执行完上述代码后,所有工作表的保护都会被解除。 第二种方法是通过在线工具来破解Excel工作表保护。有一些在线工具可以帮助我们破解Excel工作表的保护,例如LostMyPass、Password-Find等。我们只需要上传被保护的Excel文件,这些工具就可以帮我们破解保护密码。

第三种方法是通过修改Excel文件的扩展名来破解Excel工作表保护。我们可 以将Excel文件的扩展名修改为.zip,然后解压缩这个压缩文件。在解压缩后的文 件夹中,我们可以找到xl目录,里面包含了workbook.xml和worksheets文件夹。 我们可以用记事本打开workbook.xml文件,找到节点,将其 删除或者修改为,然后保 存文件。最后将修改后的文件重新压缩,并将扩展名改回.xlsx,就可以打开并编辑被保护的Excel工作表了。 总的来说,破解Excel工作表保护并不是一件困难的事情。通过VBA代码、 在线工具或者修改文件扩展名,我们都可以轻松地破解Excel工作表的保护。当然,在使用这些方法时,我们也要遵守相关的法律法规,不得用于非法用途。希望以上介绍的方法对大家有所帮助。

Excel密码保护的解除方法与原理

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 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 第三步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“执行”,密码就现形了(图4)。

EXCEL工作表密码保护的解除方法

Excel工作表密码保护的解除方法 Excel弹出“您试图更改的单元格或图表受保护,因而是只读的;若要修改受保护单元格或图表,请先使用‘撤消工作表保护’命令在‘审阅’选项卡的‘更改’组中来取消保护;可能会提示您输入密码; 出现这种情况,应该怎么解决呢经过研究,找到了两种破解Excel工作表保护码的方法; 一、VBA宏代码破解法: 第一步:打开该文件 第二步:按Alt F11,进入VBA编辑界面; 第三步:插入一个Module; 第四步:在右边Module的空白编辑区域,复制粘贴下面的所有内容; 第五步:按F5,运行该VBA命令;密码就现形了; Sub Password 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 Chri & Chrj & Chrk & _ Chrl & Chrm & Chri1 & Chri2 & Chri3 & _ Chri4 & Chri5 & Chri6 & Chrn If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chri & Chrj & _ Chrk & Chrl & Chrm & Chri1 & Chri2 & _ Chri3 & Chri4 & Chri5 & Chri6 & Chrn ActiveWorkbook.Sheets1.Select Range"a1".FormulaR1C1 = Chri & Chrj & _

得力打卡机破解Excel工作表保护密码

Excel中如何破解“撤销工作表保护密码”并获取原始密码 一、保护工作表的方法 1、全选定工作表右击设置单元格格式找到保护将 锁定和隐藏两个的勾去掉; 2、将要保护的工作表单元格选定右击设置单元格格式找到保护将锁定和隐藏两个的勾打上; 3、点菜单栏的工具中的保护里的保护工作表将保护工作表及锁定 的单元内容打上勾,下选允许此工作表的所有用户选定未锁定的单元格打上勾 二、Excel工作表保护密码破解方法 1、打开您需要破解保护密码的Excel文件; 2、依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:aa; 3、停止录制这样得到一个空宏; 4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮; 5、删除窗口中的所有字符只有几个,替换为下面的内容; 从横线下开始复制 ------------------------------------------------------------------------------------------

Option Explicit Public Sub AllInternalPasswords ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage ' of workbook structure / windows passwords and for multiple passwords ' ' Norman Harker and JE McGimpsey 27-Dec-2002 Version ' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub Version 1.1.1 ' Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "Adapted from Bob McCormick base code by" & _ "Norman Harker and JE McGimpsey" Const HEADER As String = "AllInternalPasswords User Message" Const VERSION As String = DBLSPACE & "Version 2003-Apr-04"

相关文档
最新文档