破解EXCEL系列文件保护密码的方法
破解保护工作表
破解保护工作表
破解保护工作表并不是一件容易的事情,但是有时候我们确实需要这样做,例如当我们忘记了密码,或者需要访问某些受保护的单元格时。
以下是几种方法,可以帮助您破解保护工作表:
1. 使用某些软件工具
有一些专门的软件工具可以帮助您破解密码保护的工作表,例如Excel Password Recovery、Accent Excel Password Recovery等等。
这些工具可以在您忘记密码时,为您提供一种解决方案。
2. 通过重置密码来破解
您还可以通过重置密码来破解保护工作表。
首先,您需要打开受保护的工作表,然后进入“文件”选项卡,接着选择“信息”选项卡,并点击“保护工作表”旁边的“密码保护”选项。
在输入密码之前,您可以尝试使用“重置密码”选项来为工作表创建一个新的密码,从而破解原来的密码。
3. 手动破解
手动破解是一种更复杂的方法,需要您拥有一定的编程和Excel 技能。
您需要打开VBA编辑器,然后输入一些代码,以破解保护工作表。
由于这种方法比较复杂,建议您在尝试之前先备份您的工作表。
总的来说,破解保护工作表并不是一件容易的事情,但是在某些情况下,它可以帮助我们解决一些问题。
如果您遇到了类似的问题,请谨慎使用这些方法,并在尝试之前先备份您的工作表。
EXCEL文件如何解锁
EXCEL文件如何解锁
一、文件层面的解锁方法:
1.打开要解锁的EXCEL文件,输入打开密码。
2. 在“文件”选项卡下,点击“另存为”,选择保存文件的路径和
格式(比如保存为Excel Workbook)。
3.在保存窗口的右下角,点击“工具”按钮,选择“一般选项”。
4.在弹出的“工作簿加密密码”对话框中,清空密码输入框中的内容,并点击“确定”按钮。
5.点击“保存”按钮,保存文件到指定路径。
6.关闭打开的EXCEL文件,再打开保存的文件,此时文件已解锁。
二、工作表层面的解锁方法:
1.打开要解锁的EXCEL文件,输入打开密码。
2.在“格式”选项卡下,点击“保护工作表”按钮。
3. 在弹出的“保护工作表”对话框中,清空密码输入框中的内容,
并取消勾选“Windows登录密码”。
4.点击“确定”按钮,此时工作表的保护已解除。
需要注意的是,以上方法都需要输入打开密码才能解锁文件,如果忘
记了打开密码
1. 使用商业软件:有很多第三方软件,如PassFab for Excel、
Excel Password Unlocker等,可以帮助用户破解EXCEL文件的打开密码。
2.使用自定义脚本:通过编写一些VBA脚本来破解打开密码,需要一定的编程知识。
需要注意的是,除非你是文件的拥有者或者授权人,否则破解EXCEL 文件的密码是非法的行为,建议谨慎使用上述方法。
另外,记得定期备份你的文件,避免因密码丢失或忘记导致文件无法正常打开。
excel工作表保护密码忘了
excel工作表保护密码忘了在日常工作中,我们经常会使用Excel进行数据处理和分析。
而在使用Excel 的过程中,我们经常会为工作表设置保护密码,以防止他人对工作表进行未经授权的修改。
然而,有时候我们可能会忘记设置的保护密码,导致无法对工作表进行修改。
那么,当我们忘记了Excel工作表的保护密码该怎么办呢?首先,我们可以尝试使用一些常见的密码来解锁工作表。
有时候,我们可能会设置一些常用的密码,比如生日、电话号码、或者是一些简单的数字组合。
所以,我们可以先尝试这些常见的密码,看是否能够成功解锁工作表。
如果使用常见密码无法解锁工作表,我们还可以尝试使用一些密码破解工具。
在互联网上有很多针对Excel密码破解的软件,我们可以下载并尝试使用这些软件来破解工作表的保护密码。
当然,在使用这些软件的过程中,我们需要注意选择正规可靠的软件,以免下载到一些带有恶意软件的程序,导致电脑受到损害。
此外,我们还可以尝试使用VBA代码来解锁Excel工作表的保护密码。
通过编写一些简单的VBA代码,我们可以尝试绕过保护密码,对工作表进行修改。
当然,这需要一定的VBA编程知识,如果我们不熟悉VBA,可以寻求一些专业人士的帮助。
如果以上方法都无法解锁Excel工作表的保护密码,我们还可以考虑使用一些第三方工具来解决这个问题。
在互联网上有一些专门针对Excel密码破解的软件,它们通常具有强大的破解能力,可以帮助我们解锁工作表的保护密码。
当然,在选择使用第三方工具时,我们需要注意选择正规可靠的软件,以免下载到一些不安全的程序。
总的来说,当我们忘记了Excel工作表的保护密码时,我们可以尝试使用一些常见密码、密码破解工具、VBA代码或者第三方工具来解决这个问题。
当然,在进行这些操作时,我们需要注意选择安全可靠的方式,以免给电脑带来安全隐患。
希望以上方法可以帮助到你,解决忘记Excel工作表保护密码的问题。
excel解密方法
excel解密方法
Excel文件受到来自Microsoft Office的加密保护,有时候当我们需要打开一个已加密的Excel文件的时候可能会出现一些错误,Windows会要求我们提供解密密码。
打开被加密的 Excel 文件是必不可少的,也许我们已经忘记了密码怎么办呢?这里就推荐几种Excel解密方法给大家,我们可以试试去实现。
1、使用文件打开密码恢复工具来恢复文件解密密码。
这种方法需要使用专业免费的文件加密密码恢复工具,这样我们可以用加密工具针对特定的文件类型(如Word 、PDF、Excel等文件 ),来进行安全的文件解密密码恢复。
2、使用密码暴力破解软件来解密Excel。
虽然这种方法可以有效地破解文件密码,但是破解速度极慢,尤其是当文件加密强度比较高的时候,破解工具可能要花费好几个小时甚至几到几天的时间才能破解出密码,当然,这也取决于文件大小、文件加密算法和文件的密码强度等因素。
3、如果不小心忘记文件的密码,我们可以使用穷举法暴力破解Excel文件的密码;穷举法暴力破解的方法也很简单,就是让计算机列举出所有可能的密码,从中找出正确的解密密码。
4、还有就是使用解密服务,我们可以找到一些专业的文件解密服务来为我们提供文件解密服务,这样就可以省去麻烦,把文件交给解密专家,他们可以针对不同加密算法提供解码工具和技术,给出解密方案以及提供解密服务的收费标准。
总之,上述四种常见的Excel解密方法基本可以满足绝大多数人的需求,如果你遇到了Excel被加密文件,不要担心,上述四种解密方法是可以帮助你解密文件的,但是有时候,你可能需要尝试几种方案,才能实现解密文件,希望大家能够掌握一定的解密技能,及时解决文件加解密问题。
破解撤销工作表保护密码的方法
破解撤销工作表保护密码的方法如果你忘记了Excel工作表的保护密码,或者不知道密码是什么,那么你可能会被拒绝编辑或修改工作表。
但是,有一些方法可以帮助你破解撤销Excel工作表的保护密码。
方法一:使用VBA代码破解工作表保护密码1. 打开Excel文件,并按下Alt + F11键进入VBA编辑器。
2. 在VBA编辑器中,选择工具>引用,然后勾选Microsoft Visual Basic for Applications扩展库。
3. 在VBA编辑器中,选择插入>模块,并复制以下代码到新模块中:Sub PasswordBreaker()'Breaks worksheet password protection.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 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 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)Exit SubEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextEnd Sub4. 点击运行按钮,然后在Excel工作表上右键单击并选择“查看代码”选项。
忘记excel密码的解决方法
忘记excel密码的解决方法
忘记Excel密码是一个常见的问题,但幸运的是有几种方法可以解决这个问题。
首先,你可以尝试使用一些基本的密码,比如你常用的密码或者与你相关的日期或数字组合。
如果你仍然无法记起密码,以下是一些更具体的解决方法:
1. 使用密码提示,在输入密码时,Excel通常会提示你设置一个密码提示。
这个提示可能会帮助你回忆起密码。
2. 使用密码恢复工具,有一些第三方工具可以帮助你恢复忘记的Excel密码。
这些工具可以通过暴力破解或其他方法来尝试解锁文件。
但请注意,使用第三方工具可能存在安全风险,因此请确保从可信赖的来源获取工具并且在使用后立即删除工具。
3. 重置密码,如果你无法通过上述方法解决问题,你可以考虑重置密码。
你可以尝试将文件另存为另一种格式或者将文件内容复制到新文档中,这样可以去除密码保护。
4. 使用Excel密码恢复服务,有一些在线服务可以帮助你恢复Excel密码。
你可以上传受保护的文件,并支付费用以获取密码。
5. 联系Microsoft支持,作为最后的手段,你可以尝试联系Microsoft支持团队寻求帮助。
他们可能有一些高级的方法来帮助
你解决问题。
总的来说,忘记Excel密码是一个令人沮丧的问题,但通常情
况下是可以解决的。
希望上述方法中的某一个能够帮助你解决问题。
excel强制解除保护工作表
excel强制解除保护工作表
要强制解除Excel工作表的保护,你可以按照以下步骤进行操作:
1. 首先,打开受保护的Excel工作表。
2. 在菜单栏中选择“文件”。
3. 点击“另存为”,选择“工作簿”并保存到本地。
4. 现在关闭原始的受保护工作表,打开新保存的工作簿文件。
5. 在新的工作簿中,再次点击“文件”,选择“信息”。
6. 点击“管理工作表保护”,选择“解除工作表保护”。
7. 如果工作表受密码保护,系统会提示你输入密码。
8. 输入密码后,点击“确定”即可解除工作表保护。
另外,如果你无法解除工作表保护,可能是因为你没有权限或者受到了文档保护。
在这种情况下,你可能需要联系文档的创建者或管理员,以获取必要的权限或密码来解除保护。
需要注意的是,强制解除工作表保护可能违反了文档的使用规定,建议在进行操作前先确认是否有相关权限或授权。
关于破解Excel加密文件的解决办法
关于破解Excel加密文件的解决办法Excel加密文件是一种保护电子表格数据的安全措施,但有时候我们可能会遇到需要破解这种加密文件的情况。
虽然这涉及到一个敏感话题,但是我将尽力提供一些建议和解决办法。
在开始之前,我要强调,破解Excel加密文件是非法行为,在大多数地区都属于违法行为,这可能会对你产生严重的法律后果。
因此,在你采取任何行动之前,请确保你有合法的权限和法律允许。
然而,如果你是忘记了Excel加密文件的密码,并且拥有合法权限,那么我们可以尝试以下几种方法来解决这个问题。
2. 使用VBA宏:Excel提供了一种名为Visual Basic for Applications(VBA)的编程语言。
通过创建和运行VBA宏,你可以绕过密码保护,打开Excel加密文件。
这需要一些编程技能,但是它可能是一种可行的解决办法。
你可以并学习有关在Excel中使用VBA宏破解密码保护的教程和示例。
除了以上提到的方法,还有其他一些可能的解决办法。
例如,通过将加密文件发送给相关的技术支持人员或专家,请他们帮忙解决问题。
或者通过重置Excel应用程序的设置来删除密码保护。
加密表格破解方法
破解加密表格的方法取决于加密的类型和强度。
以下是一些可能的方法:
1. 密码破解:如果表格是使用密码加密的,可以尝试使用密码破解工具或技术来猜测或计算密码。
这可能包括暴力破解(尝试所有可能的密码组合)、字典攻击(尝试常见的密码)或彩虹表攻击(预先计算的密码哈希值数据库)。
2. 漏洞利用:如果加密软件存在漏洞或弱点,可以利用这些漏洞来解密表格。
这可能需要对加密软件进行深入分析和研究,以找到可以利用的漏洞。
3. 社会工程学:有时,通过社会工程学技巧可以获取加密表格的密码。
这可能包括假装成可信任的人或组织,欺骗目标透露密码。
4. 量子计算机:对于某些加密算法,理论上可以使用量子计算机来进行快速破解。
然而,这目前还处于实验阶段,并且需要特殊的硬件和软件。
请注意,破解加密表格可能是非法的,并且可能会导致严重的法律后果。
在尝试任何破解活动之前,请确保您了解当地的法律法规,并遵守道德准则。
关于破解Excel加密文件的解决办法
关于破解Excel加密文件的解决办法
一、简介
Excel表格中的加密功能可以让用户保护其存储在Excel文件中的重要信息,使得其他人无法轻易的查看和修改文件中数据。
但是,在一些情况下,我们将不得不尝试破解加密文件:比如我们忘记了原始的密码,或者收到其他人分享的加密文件,而我们无法读取内容。
下文将介绍几种常见的方法来解决Excel加密文件的问题,这些方法可以帮助我们快速的破解Excel加密文件,而不需要改变文件中的原始内容。
二、如何破解Excel加密文件
1、如果你忘记了加密文件的密码,可以尝试使用正确的密码,对着True、Mega、Apache和Kaspersky等多种类型的文件进行穷举破解。
2、在桌面上右键单击Excel文件,然后选择“属性”,在“安全”选项卡中可以查看“有效的用户权限”,如果没有勾选“拒绝非法用户访问”选项,表示文件未被加密。
3、有时可以使用其中一种专业的Excel文件破解器来破解加密的Excel文件,但是这种方法可能存在一定的安全隐患,而且破解速度也较慢。
4、可以使用Excel单元格公式破解Excel文件,具体的操作步骤如下:(1)打开Excel文件;(2)输入以下代码:=cell("filename");(3)按下Enter并等待提示;(4)如果提示文件名和原来的不一致,说明文件被加密了。
excel表格密码破解的方法
Excel表格密码破解的方法一、概述Excel表格是一款广泛使用的电子表格程序,它的安全性和隐私保护至关重要。
然而,有时候我们会忘记自己设置的Excel表格密码,或者需要破解别人设置的密码。
本文将对Excel表格密码破解的方法进行详细介绍,希望对大家有所帮助。
二、查看Excel表格的密码保护方式在尝试破解Excel表格密码之前,我们首先需要了解Excel表格的密码保护方式。
Excel表格的密码保护主要分为两种:文档开放密码和工作表保护密码。
文档开放密码用于限制用户打开Excel文档,而工作表保护密码则是用于限制其编辑或者查看内容。
我们需要查看Excel表格使用了哪种密码保护方式,以便有针对性地进行破解。
三、常见的Excel表格密码破解工具1. Excel密码破解大师Excel密码破解大师是目前比较流行的一款Excel表格密码破解工具,它可以帮助用户快速破解各种类型的Excel表格密码。
用户只需简单操作,即可轻松完成密码破解。
该工具操作简单,界面友好,适合各类用户使用。
2. Passper for ExcelPassper 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弹出“您试图更改的单元格或图表受保护,因而是只读的。
若要修改受保护单元格或图表,请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。
可能会提示您输入密码。
”窗口,如图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 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 T o 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 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 = 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)(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工作表保护破解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文件,找到<workbookProtection>节点,将其删除或者修改为<workbookProtection lockStructure="0" lockWindows="0"/>,然后保存文件。
关于excel密码
关于excel密码有时我们为了保护Excel文档,会给文档加上密码,如文档查看、只读密码,工作表、工作簿的保护密码等,但是时间久了难免忘记密码,这时就只好进行破解了。
下面列举几种常用的破解Excel密码的方法,供各位参考。
excel密码的步骤:首先我们要明确一个前提,不同类型的密码,破解方法是不一样的,有些密码可能是无法破解的;而Excel文档又分为不同版本(xls和xlsx),破解方法也有所不同。
温馨提示:破解密码前请先备份原文档。
1、文档查看、只读密码破解Excel文档的查看、只读密码目前没有什么好的破解办法,只能采用暴力破解,就是指定一个规则,然后一个一个去试。
如果你当初设置的密码足够复杂,那就不要做无所谓的挣扎了,建议及早放弃为好。
但如果文档十分重要,不计代价也要破解密码,可以尝试一些网站的收费服务,但是不要抱太高的希望。
2、工作表、工作簿的保护密码根据Excel文档版本不同,工作表、工作簿保护密码的破解方法也不太一样。
(1)xls文档破解方法对于早期的xls文档(2003及以前),可以用VBA代码破解。
打开Excel文档,按Alt+F11进入“开发工具”界面,在左边的工程栏(Project)中选定节点“ThisWorkbook”,双击左键,然后把下面的代码复制到右边的代码编辑框中。
然后按F5键执行代码开始破解,破解期间会出现两次提示的对话框,都选择“确认”。
密码破解完毕之后会出现提示“该工作簿中的工作表密码保护已被全部解除”,这说明工作表或工作簿的保护密码已被成功清除。
最后删除“ThisWorkbook”节点中的代码,保存工作表。
至此,破解完成。
(2)xlsx文档破解方法从2007版本以后,Excel文档的扩展名从xls变成了xlsx,文档结构也大变样。
Xlsx文档本质上其实是一个压缩包,里面包含了许多xml文档,工作表、工作簿的保护密码就保存在这些xml文档中,我们可以用WinRAR等压缩工具将其解压,然后直接修改内容,就可以去掉工作表、工作簿的保护密码了。
excel文件密码破解方法
excel文件密码破解方法
要破解Excel文件的密码,有几种方法可以尝试。
以下是一些常用的方法:
1. 使用密码破解软件,有一些专门的密码破解软件可以帮助你破解Excel文件密码。
这些软件通常使用暴力破解或字典攻击等方法来尝试破解密码。
你可以在互联网上找到一些可靠的密码破解软件,但请注意使用合法的目的。
2. 使用VBA宏,如果Excel文件中启用了VBA宏,你可以通过编写一段简单的VBA代码来破解密码。
这种方法需要一定的编程知识,但可以尝试使用一些已有的VBA代码来破解密码。
3. 使用在线密码破解服务,有一些在线服务可以帮助你破解Excel文件密码。
你只需上传文件并等待服务破解密码。
然而,这种方法可能不是很安全,因为你需要将文件上传到第三方服务器。
4. 使用备份文件,如果你有Excel文件的备份副本,并且这个副本没有密码保护,你可以打开备份文件并保存为没有密码保护的新文件。
这种方法适用于你只是丢失了密码的情况。
5. 密码提示,有时候,Excel文件的创建者会设置密码提示。
如果你记得密码提示的内容,你可以尝试使用密码提示来回忆密码。
需要注意的是,破解密码是一项敏感的行为,应该遵守法律和
道德规范。
在尝试破解密码之前,请确保你有合法的权限来打开该
文件,并且尊重他人的隐私。
office文件密码破解的常用方法
office文件密码破解的常用方法Office文件密码破解是一个非常常见的需求,尤其是当我们忘记了密码或者需要访问别人的文件时。
这篇文章将讨论一些常用的Office文件密码破解方法。
方法一:使用密码提示如果您曾经为Office文件设置过密码提示,那么这个方法可能非常有效。
当您输入错误密码时,Office会提示您输入密码提示。
如果您能记住密码提示,那么这个文件的密码就可以轻松破解了。
方法二:使用默认密码有些Office文件在创建时会默认设置密码。
例如,Excel文件的默认密码是'VelvetSweatshop',Word文件的默认密码是'password'。
如果您的文件没有使用自定义密码,那么这个方法也可以尝试一下。
方法三:使用第三方密码破解软件有很多第三方密码破解软件可以帮助您破解Office文件的密码。
这些软件通常使用暴力破解或字典攻击等技术来破解密码。
其中一些软件包括Advanced Office Password Recovery、Passper for Word、Passware Kit等。
方法四:使用在线密码破解工具还有一些在线密码破解工具可以用来破解Office文件的密码。
这些工具通常需要您上传文件并在服务器上运行。
这里我们推荐LostMyPass和CrackMyPDF这两个工具。
总结:这些方法仅供参考,我们并不鼓励您违法破解他人的Office 文件密码。
如果您是文件的合法所有者,那么请确保您使用了安全且难以破解的密码。
如果您碰到了密码遗忘等问题,请尽量使用官方的找回密码功能,而不是采用其他的非法手段。
破解EXCEL工作表保护密码的简单方法(精选5篇)
破解EXCEL工作表保护密码的简单方法(精选5篇)第一篇:破解EXCEL工作表保护密码的简单方法破解EXCEL工作表保护密码的简单方法你是否给excel文件设置了保护工作表密码,现在要撤消工作表保护,但密码却忘了,自己把锁在了门外,真尴尬呀!怎么办?下面的方法将轻松解决:本人亲测,完全可以成功,但是本方法只用于解决自己的文件忘记密码,请勿进行违法行为,一切后果本人不负责任1.打开你的受保护的文件2.工具---宏----录制新宏---输入名字如:aa3.停止录制(这样得到一个空宏)4.工具---宏----宏,选aa,点编辑按钮5.删除窗口中的所有字符,替换为下面的内容:(复制吧)6.关闭编辑窗口7.工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!内容如下: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 1.1)' Modified 2003-Apr-04 by JEM: All msgs to constants, and' eliminate one Exit Sub(Version 1.1.1)' Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine&vbNewLineConst 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 1.1.1 2003-Apr-04” Const REPBACK As String = DBLSPACE & “Please report failure ” & _ “to the microsoft.public.excel.programming newsgroup.”Const ALLCLEAR As String = DBLSPACE & “The workbook should ”& _ “now be free of all password protection, so make sure you:” & _ DBLSPACE & “SAVE IT NOW!” & DBLSPACE & “and also” & _ DBLSPACE & “BACKUP!, BACKUP!, BACKUP!!” & _DBLSPACE & “Also, remember that the password was ”& _“put there for a reason.Don't stuff up crucial formulas ”& _“or data.” & DBLSPACE & “Access and use of some data ”& _ “may be an offense.If in doubt, don't.”Const MSGNOPWORDS1 As String = “There were no passwords on ”& _ “sheets, or workbook structure or windows.” & AUTHORS & VERSIONConst MSGNOPWORDS2 As String = “There was no protection to ”& _ “workbook structure or windows.” & DBLSPACE & _“Proceeding to unprotect sheets.”& AUTHORS & VERSIONConst MSGTAKETIME As String = “After pressing OK button this ”& _ “will take some time.” & DBLSPACE & “Amount of time ”& _“depends on how many different passwords, the ” & _“passwords, and your computer's specification.” & DBLSPACE & _ “Just be patient!Make me a coffee!” & AUTHORS & VERSIONConst MSGPWORDFOUND1 As String = “You had a Worksheet ”& _ “Structure or Windows Password set.” &DBLSPACE & _“The password found was: ” & DBLSPACE & “$$” & DBLSPACE & _ “Note it down for potential future use in other workbooks by ”& _ “the same person who set this password.” & DBLSPACE & _“Now to check and clear other passwords.”& AUTHORS & VERSION Const MSGPWORDFOUND2 As String = “You had a Worksheet ”& _ “password set.” & DBLSPACE & “The password found was: ” & _ DBLSPACE & “$$” & DBLSPACE & “Note it down for potential ”& _ “future use in other workbooks by same person who ” & _“set this password.” & DBLSPACE & “Now to check and clear ”& _ “other passwords.” & AUTHORS & VERSION Const MSGONLYONE As String = “Only structure / windows ”& _ “protected with the password that was just found.” & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag =.ProtectStructure Or.ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADER Exit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADER ElseOn Error Resume NextDo 'dummy do loopFor 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 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 With ActiveWorkbook.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.ProtectStructure = False And _.ProtectWindows = False ThenPWord1 = Chr(i)&Chr(j)&Chr(k)&Chr(l)& _Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)& _Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) MsgBoxApplication.Substitute(MSGPWORDFOUND1, _ “$$”, PWord1), vbInformation, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIfWinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If.ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor 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 126.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 Not.ProtectContents ThenPWord1 = Chr(i)&Chr(j)&Chr(k)&Chr(l)& _Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)& _Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)MsgBoxApplication.Substitute(MSGPWORDFOUND2, _“$$”, PWord1), vbInformation, HEADER'leverage finding Pword by trying on other sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADEREnd Sub第二篇:撤销工作表保护密码撤销工作表保护密码”的破解并获取原始密码在日常工作中,您是否遇到过这样的情况:您用Excel编制的报表、表格、程序等,在单元格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,您可能会使用Excel的工作表保护功能,但时间久了保护密码容易忘记,这该怎么办?有时您从网上下载的Excel格式的小程序,您想修改,但是作者加了工作表保护密码,怎么办?您只要按照以下步骤操作,Excel工作表保护密码瞬间即破!1、打开您需要破解保护密码的Excel文件;2、依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:aa;3、停止录制(这样得到一个空宏);4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮;5、删除窗口中的所有字符(只有几个),替换为下面的内容;从横线下开始复制----------------------------Option ExplicitPublic 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 1.1)' 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 Messag e” Const VERSION As String = DBLSPACE & “Version 1.1.1 2003-Apr-04” Const REPBACK As String = DBLSPACE & “Please report failure ” & _ “to the microsoft.public.excel.programming newsgroup.”Const ALLCLEAR As String = DBLSPACE & “The workbook should ” & _ “n ow be free of all password protection, so make sure you:” & _ DBLSPACE & “SAVE IT NOW!” & DBLSPACE & “and also” & _ DBLSPACE & “BACKUP!, BACKUP!, BACKUP!!” & _ DBLSPACE & “Also, remember that the password was ” & _ “put there for a reason.Don't stuff up crucial formulas ” & _ “or data.” & DBLSPACE & “Access and use of some data ” & _ “may be an offense.If in doubt, don't.”Const MSGNOPWORDS1 As String = “There were no passwords on ” & _ “sheets, or workbook structure or windows.” & AUTHORS & VERSION Const MSGNOPWORDS2 As String = “There was no protection to ” & _ “workbook structure or windows.” & DBLSPACE & _ “Proceeding to unprotect sheets.” & AUTHORS & VERSIONConst MSGTAKETIME As String = “After pressing OK button this ” & _ “will take some time.” & DBLSPACE & “Amount of time ” & _ “depends on how many different passwords, the ” & _“passwords, and your computer's specification.” & DBLSPACE & _ “Just be patient!Make me a coffee!” & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = “You had a Worksheet ”& _ “Structure or Windows Password set.” & DBLSPACE & _ “The password found was: ” & DBLSPACE & “$$” & DBLSPACE & _ “Note it down for potential future use in other workbooks by ” & _ “the same person who set this password.” & DBLSPACE & _ “Now to check and clear other passwords.” & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = “You had a Worksheet ” & _ “password set.” & DBLSPACE & “The password found was: ” & _ DBLSPACE & “$$” & DBLSPACE & “Note it down for potential ” & _ “future use inother workbo oks by same person who ” & _ “set this password.” & DBLSPACE & “Now to check and clear ” & _ “other passwords.” & AUTHORS & VERSIONConst MSGONLYONE As String = “Only structure / windows ” & _ “protected with the password that was just found.” & _ ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = False With ActiveWorkbookWinTag =.ProtectStructure Or.ProtectWindows End With ShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContents Next w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End IfMsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADER ElseOn Error Resume Next Do 'dummy do loopFor 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 T o 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 With ActiveWorkbook.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.ProtectStructure = False And _.ProtectWindows = False ThenPWord1 = Chr(i)& Chr(j)& Chr(k)& Chr(l)& _ Chr(m)& Chr(i1)& Chr(i2)& Chr(i3)& _ Chr(i4)& Chr(i5)& Chr(i6)& Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND1, _ “$$”, PWord1), vbInformation, HEADER Exit Do 'Bypass all for...nexts End If End WithNext: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If If WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End IfOn Error Resume Next For Each w1 In Worksheets 'Attempt clearance with PWord1 w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContents Next w1 If ShTag ThenFor Each w1 In Worksheets With w1If.ProtectContents Then On Error Resume Next Do 'Dummy do loopFor 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 T o 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.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 Not.ProtectContents ThenPWord1 = Chr(i)& Chr(j)& Chr(k)& Chr(l)& _ Chr(m)& Chr(i1)& Chr(i2)& Chr(i3)& _ Chr(i4)& Chr(i5)& Chr(i6)& Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND2, _“$$”, PWord1), vbInformation, HEADER 'leverage finding Pword by trying on other sheets For Each w2 In Worksheets w2.Unprotect PWord1 Next w2 Exit Do 'Bypass all for...nexts End IfNext: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If End With Next w1 End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub---------------------------复制到横线以上6、关闭编辑窗口;7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。
excel保护密码反编译
excel保护密码反编译
对于Excel保护密码反编译,目前市面上没有有效的方法能够直接解密Excel的保护密码。
Excel保护密码一般采用加密算法进行处理,对于常见的密码破解工具来说,破解Excel保护密码是一项较为困难的任务。
但是,如果你忘记了Excel保护密码,仍然可以采取以下方法恢复数据:
1. 使用备份文件:如果你有Excel文件的备份,可以直接使用备份文件,从中恢复数据。
2. 使用VBA编程:如果你拥有基本的VBA编程知识,可以通过编写宏来绕过密码进行数据恢复。
3. 使用第三方软件:目前有一些第三方软件可以用于恢复Excel密码,比如"Passware Excel Key"。
这些软件可以尝试多种密码破解技术,但并不保证一定能够恢复密码。
无论采取以上哪种方法,一定要记得保护好你的数据,定期备份以防止数据丢失。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
破解EXCEL系列文件保护密码的方法,好用(转载)2008-06-04 16:30:48 业界| 评论(39) | 浏览(3403)财务部重要的EXCEL报表的被人设置了保护,我把他破解了,就是用的这个代码!强烈推荐大家电脑一族或者办公一族,以后没准能派上用场!在网上找到了这份破解代码,成功破解了,但不能找到原表的密码,这是最遗憾的。
还有破解的表的安全系数会低点。
对工作报表一族超级无敌有用!!方法:1打开文件2工具---宏----录制新宏---输入名字如:aa3停止录制(这样得到一个空宏)4工具---宏----宏,选aa,点编辑按钮5删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)6关闭编辑窗口7工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!内容如下: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 1.1)' Modified 2003-Apr-04 by JEM: All msgs to constants, and' eliminate one Exit Sub (Version 1.1.1)' Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 1.1.1 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _ "to the microsoft.public.excel.programming newsgroup."Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _ "now be free of all password protection, so make sure you:" & _ DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _DBLSPACE & "Also, remember that the password was " & _"put there for a reason. Don't stuff up crucial formulas " & _"or data." & DBLSPACE & "Access and use of some data " & _"may be an offense. If in doubt, don't."Const MSGNOPWORDS1 As String = "There were no passwords on " & _ "sheets, or workbook structure or windows." & AUTHORS & VERSION Const MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSIONConst MSGTAKETIME As String = "After pressing OK button this " & _ "will take some time." & DBLSPACE & "Amount of time " & _"depends on how many different passwords, the " & _"passwords, and your computer's specification." & DBLSPACE & _"Just be patient! Make me a coffee!" & AUTHORS & VERSIONConst MSGPWORDFOUND1 As String = "You had a Worksheet " & _ "Structure or Windows Password set." & DBLSPACE & _"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _ "Note it down for potential future use in other workbooks by " & _"the same person who set this password." & DBLSPACE & _"Now to check and clear other passwords." & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was: " & _ DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _ "future use in other workbooks by same person who " & _"set this password." & DBLSPACE & "Now to check and clear " & _ "other passwords." & AUTHORS & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor 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 126With ActiveWorkbook.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 .ProtectStructure = False And _.ProtectWindows = False ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND1, _ "$$", PWord1), vbInformation, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor 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 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 .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 Not .ProtectContents ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND2, _ "$$", PWord1), vbInformation, HEADER'leverage finding Pword by trying on other sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub。