Excel 2007密码保护的解除

Excel 2007密码保护的解除方法及原理
Excel弹出“您试图更改的单元格或图表受保护,因而是只读的。

若要修改受保护单元格或图表,请先使用…撤消工作表保护‟命令(在…审阅‟选项卡的…更改‟组中)来取消保护。

可能会提示您输入密码。

”窗口。

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

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

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

合集下载

excel解除表格保护的方法步骤

excel解除表格保护的方法步骤

excel解除表格保护的方法步骤在Excel中录入太多的重要数据,这个时候就需要用到密码保护的方法进行保护,或许很多人都会设置密码保护,但有些朋友不会解除表格保护,下面是由店铺分享的excel解除表格保护的方法,希望对你有用。

excel解除表格保护的方法解除表格保护步骤1:打开要保护的excel解除表格保护步骤2:选择“审阅”选项,可以在该页面的工具栏上看到有一个“保护工作表”的工具栏excel解除表格保护的方法图2解除表格保护步骤3:点击该按钮,打开“保护工作表”对话框。

在该对话框中,需要设定一个取消保护工作表时的密码,以及保护工作表后,允许进行的操作,将允许的操作前面的复选框选中,即点击打上“√”excel解除表格保护的方法图3解除表格保护步骤4:点击“确定”按钮,弹出确定密码的对话框,输入“保护工作表”页面中设定的密码,然后点击确定excel解除表格保护的方法图4解除表格保护步骤5:此时,如果再在工作表页面中输入数据或修改数据时,会弹出该工作表被保护的提示信息。

excel解除表格保护的方法图5解除表格保护步骤6:当想编辑该文档的时候,执行取消保护工作表操作就可以了。

和设定保护工作表时的操作类似,打开要编辑的excel文档,选择审阅,可以看到原来“保护工作表”的工具变为“撤销保护工作表”的工具excel解除表格保护的方法图6解除表格保护步骤7:点击“撤销保护工作表”按钮,会弹出“撤销保护工作表”对话框,在编辑框中输入设定“保护工作表”时的密码,然后点击“确定”按钮excel解除表格保护的方法图7解除表格保护步骤8:回到excel工作表编辑区,发现可以编辑文档了。

excel文档保护怎么取消一、首先,打开Excel程序,打开要取消保护的excel表格,然后在Excel程序上方找到“审阅”点击打开。

二、然后在“审阅”菜单中,点击选择“撤销工作表保护”。

三、然后,在弹出的“撤销工作表保护”对话框中输入密码。

EXCEL 工作表忘记保护密码快速破解方法

EXCEL 工作表忘记保护密码快速破解方法

1.按常规,输入可能是,但不确定的密码后,弹出密码错误的提示,无法对文件进行修改,如
果从头到尾重新制作文件,太消耗脑力了,这样会使无辜少年头变成白发嗡的;
2.如果这份资料是自己制作的,再来一次又何妨?如果是别人的资料,你就真的要吓忙了;这里告诉你一个绝对可靠而简单的办法,先点确定关掉提示吧!
3.下载EXCEL 密码清楚工具;
打开
解压
4.解压并打开下载的破解工具;
5.点击这个尾缀为exe 的美女图标(破解工具),进行安装;
6.如果你已打开同类
型的文件,会弹出
此提示框,按提示
关闭工作表,再
点下一步继续安
装软件;
7.注意,你不同意此协议就无法点下一步噢!
8.点击所有出现的下
一步按钮,直到出
现安装按钮,再点
一下安装;
9.完成安装,再次打开忘记保护密码的文件(实际是所有此类文件)后,此处多了一个解密
工具箱;
8.点击所有出现的下
一步按钮,直到出
现安装按钮,再点
一下安装;
1
2
10.点工具箱右边三角形,选择工作表密码;
11.点确定按钮;
EXCEL 工作表忘记保护密码快速破解方法
12.这时,激动人心的结果出来了,鼠标一点,工作表里面的图片可以重复编辑,任何单元格都
可以重新编辑了,真道高一尺,魔高一丈啊;
编后语:
1.衷心感谢,无私上传此工具的大神,也感谢免费下载的网站;
2.如果此大神再努力一把,我们可以掌控美日的通讯(指挥)系统,保卫海疆,收复失土就
可不费吹灰之力也,我们也不必每逢天下大事,都要去感概一下成吉思汗,只识弯弓射大雕了!。

如何能取消Excel工作表密码保护教程

如何能取消Excel工作表密码保护教程

Excel工作表保护密码清除1,打开需要解除保护的EXCEL工作表;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 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 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, 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 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 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, 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 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 .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, HEADEREnd Sub============================================================================== Excel表格密码保护的解除方法表格受密码保护时,我们修改数据Excel弹出“您试图更改的单元格或图表受保护,因而是只读的。

excel密码忘记了怎么解锁

excel密码忘记了怎么解锁

excel密码忘记了怎么解锁导读:本文将介绍如何解锁忘记密码的Excel文件。

当您忘记了您的Excel密码时,可以使用两种方法进行解锁。

第一种方法是使用第三方密码恢复工具,第二种方法是使用VBA宏代码进行解锁。

下面将详细介绍这两种方法的步骤。

对于Excel密码的忘记,有两种可行的解锁方法。

第一种方法是使用第三方密码恢复工具,第二种方法是使用VBA宏代码。

下面将详细介绍这两种方法的步骤。

方法一:使用第三方密码恢复工具第一步:下载并安装密码恢复工具访问一个可信的软件下载网站,搜索并下载一个Excel密码恢复工具。

确保选择一个经过验证的工具,并确保从安全可信的来源下载。

第二步:打开密码恢复工具双击下载的文件,按照安装向导的指示进行安装,并打开密码恢复工具。

第三步:导入Excel文件在密码恢复工具中选择“导入”选项,然后选择您忘记密码的Excel文件,并点击“导入”。

第四步:选择恢复模式工具会提供不同的恢复模式,如暴力恢复、字典恢复等。

选择一个适合的恢复模式,并设置相应的选项。

第五步:开始密码恢复点击“开始”按钮,密码恢复工具将开始尝试恢复您的Excel密码。

这个过程可能需要一些时间,取决于密码的复杂性。

第六步:获得密码当密码恢复工具找到密码时,它会在屏幕上显示出来。

将找到的密码记下来,然后使用它来解锁您的Excel文件。

方法二:使用VBA宏代码第一步:打开Excel文件双击您忘记密码的Excel文件,打开它。

第二步:按下快捷键同时按下“ALT”和“F11”键,打开VBA编辑器。

第三步:插入新的模块在VBA编辑器中,选择“插入”菜单,并选择“模块”。

第四步:复制VBA代码从可信来源复制以下VBA宏代码,并在新建的模块中粘贴。

Sub PasswordBreaker()'Breaks worksheet password protection.On Error Resume NextFor Each ws In Worksheetsws.Unprotect Password:=""Next wsEnd Sub第五步:运行宏代码按下“F5”或点击“运行”按钮运行宏代码。

简单粗暴快速移除Excel工作表保护密码

简单粗暴快速移除Excel工作表保护密码

简单粗暴快速移除Excel⼯作表保护密码导读:如果你因为忘记了⼯作表保护密码⽽懊恼,那么下⾯的代码会帮到你。

在⼯作表中,按Alt F11进⼊VBE窗⼝,依次按Alt、i、m插⼊⼀个模块,将代码cp进去,按F5运⾏,幸福来得太突然。

操作演⽰:代码截图:代码:Option Explicit''********************''或许这是Ms Excel的⼀个漏洞,只要将AllowFiltering设置为True,那么呵呵!''在Excel 2003、2007下亲测有效''********************''取消全部⼯作表保护Sub RemoveAllShtPwd()Dim sh As WorksheetApplication.ScreenUpdating = FalseFor Each sh In Sheets''关键在这:允许⽤户使⽤⼯作表受保护之前设置的“⾃动筛选”sh.Protect AllowFiltering:=Truesh.UnprotectNextApplication.ScreenUpdating = TrueMsgBox ''已取消全部⼯作表保护''End Sub''取消指定⼯作表保护Sub RemoveShtPwd()''这⾥指定的是 Employee 表With Sheets(''Employee'').Protect AllowFiltering:=True.UnprotectEnd WithMsgBox ''已取消⼯作表保护''End Sub''对全部⼯作表设定保护密码''如果⼯作表已有密码,则先运⾏⼀下RemoveAllShtPwd Sub AddAllShtPwd()Dim sh As Worksheet''为常量指定密码字符串 ''Asd123''Const pwd As String = ''Asd123''Application.ScreenUpdating = FalseFor Each sh In Sheetssh.Protect pwdsh.ProtectNextApplication.ScreenUpdating = TrueMsgBox ''已对全部⼯作表设定密码保护''End。

如何5秒破解excel2007密码

如何5秒破解excel2007密码

如何5秒破解excel2007密码
在我们使用excel2007时,由于时间太久或是密码太复杂忘记了密码怎么办。

下面让店铺为你带来5秒破解excel2007密码的方法。

希望对你有帮助!
5秒破解excel2007密码步骤
5秒破解excel2007密码步骤1 首先备份工作簿,以防万一。

5秒破解excel2007密码步骤2 修改工作簿文件的扩展名为zip。

5秒破解excel2007密码步骤3 解压该压缩文件。

5秒破解excel2007密码步骤4 找到代表目标工作表的XML文件(在xl\worksheets文件夹中)。

5秒破解excel2007密码步骤5 使用任一xml编辑器打开代表目标工作表的xml文档。

5秒破解excel2007密码步骤6 找到“sheetProtection”标签并移除该标签所在的行。

5秒破解excel2007密码步骤7 保存已编辑的XML文档,用其取代原Zip文件中相应的XML文档。

5秒破解excel2007密码步骤8 将文件的扩展名修改回xlsx。

至此,工作表保护已解除。

关于破解Excel加密文件的解决办法

关于破解Excel加密文件的解决办法Excel加密文件是一种保护电子表格数据的安全措施,但有时候我们可能会遇到需要破解这种加密文件的情况。

虽然这涉及到一个敏感话题,但是我将尽力提供一些建议和解决办法。

在开始之前,我要强调,破解Excel加密文件是非法行为,在大多数地区都属于违法行为,这可能会对你产生严重的法律后果。

因此,在你采取任何行动之前,请确保你有合法的权限和法律允许。

然而,如果你是忘记了Excel加密文件的密码,并且拥有合法权限,那么我们可以尝试以下几种方法来解决这个问题。

2. 使用VBA宏:Excel提供了一种名为Visual Basic for Applications(VBA)的编程语言。

通过创建和运行VBA宏,你可以绕过密码保护,打开Excel加密文件。

这需要一些编程技能,但是它可能是一种可行的解决办法。

你可以并学习有关在Excel中使用VBA宏破解密码保护的教程和示例。

除了以上提到的方法,还有其他一些可能的解决办法。

例如,通过将加密文件发送给相关的技术支持人员或专家,请他们帮忙解决问题。

或者通过重置Excel应用程序的设置来删除密码保护。

Excel中表格工作表保护密码撤销的操作方法

Excel中表格工作表保护密码撤销的操作方法在做excel表格时我们有时候会给自己的工作表加密,一旦忘记密码就会很麻烦,如何绕过密码,直接撤销保护。

今天,学习啦小编就教大家在Excel中表格工作表保护密码撤销的操作方法。

Excel中表格工作表保护密码撤销的操作步骤打开excel,点击菜单栏的“视图”,点击二级菜单里的“宏”,选择录制宏。

表格工作表保护密码撤销的操作图1 在弹出来的方框中输入宏的名称,点击确认。

表格工作表保护密码撤销的操作图 2 重复第一步的步骤,不过这次点击“停止录制”。

表格工作表保护密码撤销的操作图3 选择查看宏。

表格工作表保护密码撤销的操作图4 编辑宏。

表格工作表保护密码撤销的操作图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’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 & “Version1.1.1 2003-Apr-04”Const REPBACK As String = DBLSPACE & “Please report failure “ & _”to the 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加密文件的问题,这些方法可以帮助我们快速的破解Excel加密文件,而不需要改变文件中的原始内容。

二、如何破解Excel加密文件
1、如果你忘记了加密文件的密码,可以尝试使用正确的密码,对着True、Mega、Apache和Kaspersky等多种类型的文件进行穷举破解。

2、在桌面上右键单击Excel文件,然后选择“属性”,在“安全”选项卡中可以查看“有效的用户权限”,如果没有勾选“拒绝非法用户访问”选项,表示文件未被加密。

3、有时可以使用其中一种专业的Excel文件破解器来破解加密的Excel文件,但是这种方法可能存在一定的安全隐患,而且破解速度也较慢。

4、可以使用Excel单元格公式破解Excel文件,具体的操作步骤如下:(1)打开Excel文件;(2)输入以下代码:=cell("filename");(3)按下Enter并等待提示;(4)如果提示文件名和原来的不一致,说明文件被加密了。

Excel表格密码保护的解除方法

E x c e l表格密码保护的解除方法(总2页)-CAL-FENGHAI.-(YICAI)-Company One1-CAL-本页仅作为文档封面,使用请直接删除Excel表格密码保护的解除方法表格受密码保护时,我们修改数据Excel弹出“您试图更改的单元格或图表受保护,因而是只读的。

若要修改受保护单元格或图表,请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。

可能会提示您输入密码。

这时候我们可以用VBA 宏代码破解法来破解表格保护密码:第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“Microsoft Office安全选项”窗口,选择其中的“启用此内容”,“确定”。

再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:PasswordBreaker,点击“确定”退出;第二步:再点击“宏”→“查看宏”,选择“宏名”下的“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 126Chr(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”并点击“执行”,密码就现形了第四步:点击“撤消工作表保护”,然后输入密码即可解除锁定;测试结果,密码破解可用,但是很晕的是破解的密码跟原来的密码有很大的差距,想不明白了,反正能用就好。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
相关文档
最新文档