Excel2007文件打开权限密码设置方法
Excel文件打开权限密码设置方法
1、打开要设置密码的excel文件，在excel表左上角打开“office按钮”，选择“另存为”选项，打开“另存为”界面。
2、进入“另存为”界面，选择右下方的“工具”选项，再选择“常规选项”，然后设置打开权限密码，如图所示，然后点击“确认”，进入确认密码，重新输入密码，最后点击“确认”。
3、返回“另存为”界面，选择“保存”就可以了，然后重新打开excel文件看是否密码设置成功。
4、如图所示，密码设置成功，输入密码就可以打开文件。
经验内容仅供参考，如果您需要解决具体问题（尤其在法律、医学等领域），建议您详细咨询相关领域专业人士。
强力破解EXCEL工作表保护密码
强力破解EXCEL工作表保护 在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，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 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 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 " &
如何破解EXCEL工作表保护密码忘记密码怎么办
如何破解EXCEL工作表保护密码忘记密码怎么办 1.新建一个EXCEL工作表，而后点击另存为，讲表格保存为启用宏的工作表 * ■乐 碍乐雄迥 -* >计■尙 二0Q) .... ㈱ 亍总HI “ ■ I i ■ * \ Jfcft禺呵第證Mkrp^pft Qffiy fxeel JDQ7 工作褰x I gm [EHMI呦 怔■: Ad>51iAk±VAt4f t?nfl； 2. 一次点击开发工具---录制新宏，在弹出的对话框内修改宏名称而后确定 ft 真面布局公式敖掠审同视冒开裁工員 D F 254 3.依次点击开发工具停止录制宏，宏录制完成
| J fFik^j| 匮独 画Mffi植近三t 陥比疙上窸甜 空釦模式劑执行龙话框 代再 4.依次点击开发工具，---宏----在弹出的对话框找到我们刚才录制的宏名称而后进入 VBA界面 处8屯简开林工貝 能t ■BS| 斫厨丁亓的二作輝 说閉 5.在VBA界面，全选里面的代码，而后删除，讲里面的代码全部删除完
Mkroioft visual - Microsoft Office Excel 200?工荷txlsx 文件⑥锚也迺世）磁?惜式型谒试曲迳行逊Zft? 尹碗詠笛莆口呦 [ 破解EXCEL工作表保护密码的简单方法 你是否给excel文件设置了保护工作表密码，现在要撤消工作表保护，但密码却忘了，自己把锁在了门外，真尴尬呀！怎么办？下面的方法将轻松解决： 本人亲测，完全可以成功，但是本方法只用于解决自己的文件忘记密码，请勿进行违法行为，一切后果本人不负责任 1.打开你的受保护的文件 2.工具---宏----录制新宏---输入名字如:aa 3.停止录制(这样得到一个空宏) 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 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 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 Excel—“撤销工作表保护密码”的破解并获取原始密码 在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel 的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！ 2007版Excel表格中可以按照以下方式建宏： 1、打开Excel表格中的Excel选项，选择自定义，得到如下画面： 2、然后在左边侧框栏中选择“查看宏”之后双击或者选择添加按钮， 则可以看到右边栏中有了查看宏按钮，之后点击右下角的确定。 3、大家可以在下面这个窗口处看到： 点击按钮，之后弹出窗口： 4、在宏名处填写一个名字（可随意），然后点击创建，弹出以下窗口： 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 ' Excel中进行2020版设置简单取得密码的操作方 法 一、暴力清除法 1、Offfice在2007之后的版本，引入了新的文件类型，即xlsx、xlsm、xltx等称之为OpenXML。此文件类型实质上是包含XML文件 的压缩包。 将xlsx文件的扩展名修改为rar，就可以看到组成该Excel文 件的所有xml文档。 这样我们就可以通过修改组成文件的XML文档内容来修改 Excel2007文件的内容和属性,当然也包括移除工作表保护,修改密码。 随意编辑一个文档book1.xlsx, 2、点击审阅中的保护工作表对sheet1进行保护. 设置好保护密码来作试验. 3、设置成功,会看到审阅中的保护工作表变成了撤消工作表保护 4、备份文档book1.xlsx，为Book1-副本.xlsx备用。 5、修改book1.xlsx的文件名为book1.rar。 6、双击打开该压缩包文件。 在xl\worksheets文件夹中可以找到目标工作表对应的XML文件sheet1.xml。 7、在sheet1.xml文件上按住鼠标左键,将sheet1.xml,拖放到 桌面, 8、用UltraEdit编辑器打开,以免修改后文件格式发生变化。 9、按Ctrl+F,调出搜索， 输入sheetProtection， 点击，下一个。 10、将 Office 2007 Excel工作表保护密码忘记之解决办法 从网上搜集资料，以下是自己操作实践！ 1、打开受保护的Excel工作表（此步骤打开其他Excel文件也行，因为这里是要启用宏）： 在打开的Excel文件菜单栏空白处，右键单击鼠标，选择“自定义快速访问工具栏···”，打开Excel选项窗口，如上图所示。 2、在打开的Excel选项窗口中，选择“常用”一栏，再在右边框中勾中“在功能区显示”开 发工具”选项卡”，如图所示： 3、点击“确定”按钮后，返回Excel工作表，这时可以在Excel工作表菜单栏中出现“开发 工具”菜单项，选择“开发工具”菜单项中的“宏安全性”，如图所示： 4、打开“信任中心”窗口，选择左边栏中的“宏设置”一项，再在右边栏目中，选中“启 用所有宏···”及勾中“信任对VBA工程对象模型的访问”一项，点击“确定”按钮： 5、返回到Excel工作表，在“开发工具”菜单下，选择“录制宏”一项，如图： 6、在打开的“录制新宏”窗口中，在“宏名”一栏的文本框中输入名字（可以任取，这里 以test为例），在“保存在”一栏的下拉列表框中，选择“当前工作簿”（其实也是可以不用选择的，但为了慎重起见还是选择），最后点击“确定”按钮： 7、再返回到Excel工作表，此时，“开发工具“菜单项下原先的“录制宏”变为了“停止录 制”，现在就点击“停止录制”，结束宏的录制，这样就可以创建一个空宏test。如图： 8、停止录制宏之后，再选择“宏”选项： 9、在打开的“宏”窗口中，就会出现刚才创建的test宏，“位置”一栏选择“当前工作簿” （为了与前面相对应），然后在“宏名”下选择刚才创建的test宏，再点击右边栏目中的“编辑“选项，如： 如何给word,Excel设置密码 (2009-12-27 20:18:23) 前最常用的微软Office就是2003和最新的Office 2007，而其中的Word和Excel也是跟我们打交道最多的应用办公软件，无论我们是用来写日记还是记录工作数据，总有不希望让别人看的文件，这时候就需要用到密码保护。用不着第三方的工具软件，你一样能够在Word和Excel中实现文件保护。 Word 2003文档中的密码设置 在Microsoft Office Word 2003中，当我们编辑完自己的文档后，可以点击菜单栏上的“工具”，打开“选项”。 打开菜单上的“工具—选项” 打开“安全性”标签，就可以看到加密选项，其中“打开文件时的密码”可以限制打开文档，没有阅读权;“修改文件时的密码”是允许查看，但不允许修改。如果您不希望内容审阅者无意间修改文件，请选中“建议以只读方式打开文档”复选框。输入完密码点击确定即可。 密码设置选项（点击看大图） 另一种方法是使用“另存为”。 单击“工具”，然后单击“安全措施选项”。 另存为选项 密码设置 执行下列一项或两项操作： 如果希望审阅者必须输入密码方可查看文档，请在“打开权限密码”框中键入密码。 如果希望审阅者必须输入密码方可保存对文档的更改，请在“修改权限密码”框中键入密码。 Excel 2003中的密码设置 在微软Office Excel 2003 中的密码设置同Word 2003基本相同。打开一个需要加密的文档，点击菜单栏上的“工具”，打开下面的“选项”(请注意您菜单是否全部展开)。 打开选项。 文档密码设置 点击“安全性”选项卡，在“打开权限密码”后面的文字框内键入一个安全的密码，即可限制访问该文档。 另外就是使用“另存为”设置密码： Excel 中的密码设置 Office 2007中的密码设置 Office 2007在界面上与Office 2003有着很大的差别，以至于很多新手很难适应Office 2007的应用。其实当你适应了Office2007 以后，你真的会感觉到他的便捷，虽然在功能上你 Excel中如何破解“撤销工作表保护密码”并获取原始密码 1. 打开需要破解密码的Excel； 2. 按Alt+F11进入VBA编辑界面； 3. 插入-- 模块(Module)； 4. 在右边Module的空白编辑区域，复制粘贴下面所有内容 5. F5，运行该VBA命令； 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 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 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 & VERSION Const 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 & _ 在Excel这一单元的教学中，我们经常使用Excel的工作表保护功能，将工作表用密码保护起来，以防学生操作时进行修改，但是这样一来有可能会无法进行一些操作（如输入公式等），时间久了保护的密码也有可能忘记了，这该怎么办呢？只要按照以下步骤操作，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 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 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 & VERSION Const 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 & _ Microsoft Excel是我们经常使用的办公软件Microsoft office的组件之一，它可以进行各种数据的处理、统计分析和辅助决策操作，广泛地应用于管理、统计财经、金融等众多领域。 正因为excel所涉及领域需要较高的安全性，因此对于一些excel文件加密是必要的，那么excel怎么设置密码呢？ Excel文件设置密码 1. 顾名思义就是对整个excel文件进行加密处理，里面的所有表都在加密之列。首先 我们需要打开我们需要加密的excel文件，再打开之前需要确认你的电脑中是否安Microso ft Excel，如果没有是不能正常打开的，一般装操作系统的时候都会装上，但是不排除有些系统并没有集成此功能，如果不能正常打开，安装excel软件即可。 2. 打开之后找到文件选项，点击出现下拉框，找到另存为选项（这应该都能找的到吧， 小编就不在截图做说明了），点击工具选项，找到常规选项，点击进入操作界面（这里小编截图以作说明，方便大家找到具体位置）。 3. 接着就是我们的重头戏了，设置密码。我们需要设置的密码有两个，一个是打开ex cel文件的时候所需要的密码，一个是修改excel表中的数据所需要的密码，填写之后点击确定，会弹出一个再次确认密码框，再次输入密码即可，至此密码的添加已经完成，是不是很简单呀。 4. 完成密码设置之后我们就来看看成果吧。打开我们刚才加密过的文件，此时我们并 不能直接进入文件，需要我们输入密码，输入刚才设置的密码即可，如果你也设置了修改数据密码，接着便会弹出输入修改密码对话框，我们可以输入密码进入，也可以以只读模式进入，当然只读的话不能修改表数据。 各位朋友不知道有没有碰到过这样的情况，当你要打开一个EXECL工作表时，突然发现密码忘记了，唯一可做的也许是搞个破解软件来破一下，但针对打开后的工作表保护，一般就很难有效了，复制虽是一种办法，但不少数据（特别是公式较多着），可能就要乱套了，入户才能破解这一类密码呢？不久前在网上发现此精华，与大家共享一下！ 利用宏运行方式破解，真的很有效，运行中可能电脑有两分钟无反应，千万不要以为死机了，等等吧！ 步骤方法如下： 1.打开文件 2.工具---宏---录制新宏---输入名字如：aa 3.停止录制（这样得到一个空宏） 4.工具---宏----宏，选aa，点编辑按钮 5.删除窗口中的所有字符（只有几个），替换为下面的内容：（复制吧） 6.关闭编辑窗口 7.工具---宏----宏。选AllInternalPasswords，运行，确定两次，等两分钟，再确定，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 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) 'Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "Adapted form 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 proteection, 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 areason. Don't stuff up crucial formulas" & _ "or date/" & DBLSPACE & "Access and use of some data" & _ "may be an offense.If in doubt,don't." Const MSGNOPWPRDS1 As String = "There were no passwords on" & _ excel2019保护工作表忘记密码怎么办 篇一：Excel表格中忘了撤销工作表保护密码怎么办？ Excel表格中忘了撤销工作表保护密码怎么办？ 用宏代码破解密码： 以office2019为例说明，（2019也是一样的，只是菜单命令的位置不同） 第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Office安全选项”窗口，选择其中的“启用此内容”，“确定”退出； 再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PassWordBreaker，点击“确定”退出； 第二步：再点击“宏”→“查看宏”，选择“宏名”下的“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”并点击“执行”，密码就现形了。破解EXCEL工作表保护密码的简单方法
2007版Excel表格—“撤销工作表保护密码”的破解并获取原始密码
Excel中进行2020版设置简单取得密码的操作方法
Office 2007 Excel工作表保护密码忘记之解决办法
如何给word,Excel设置密码
Excel中如何破解“撤销工作表保护密码
破解excel工作保护表密码的方式
EXCEL2007、EXCEL2010设置密码方法
EXCEL密码去除(工作表、工作薄密码保护破解)
excel2019保护工作表忘记密码怎么办