EXCEL密码保护破解2010

合集下载

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

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

Excel表格密码保护的解除方法表格受密码保护时,我们修改数据Excel弹出“您试图更改的单元格或图表受保护,因而是只读的。

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

可能会提示您输入密码。

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

再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:PasswordBreaker,点击“确定”退出;第二步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“编辑”,打开“MicrosoftVisualBasic”编辑器,用如下内容替换右侧窗口中的所有代码:SubPasswordBreaker()DimiAsInteger,jAsInteger,kAsIntegerDimlAsInteger,mAsInteger,nAsIntegerDimi1AsInteger,i2AsInteger,i3AsIntegerDimi4AsInteger,i5AsInteger,i6AsIntegerOnErrorResumeNextFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126ActiveSheet.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)IfActiveSheet.ProtectContents=FalseThenMsgBox"Oneusablepasswordis"&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)ExitSubEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextEndSub第三步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“执行”,密码就现形了第四步:点击“撤消工作表保护”,然后输入密码即可解除锁定;测试结果,密码破解可用,但是很晕的是破解的密码跟原来的密码有很大的差距,想不明白了,反正能用就好。

excel强制解除保护工作表

excel强制解除保护工作表

excel强制解除保护工作表
要强制解除Excel工作表的保护,你可以按照以下步骤进行操作:
1. 首先,打开受保护的Excel工作表。

2. 在菜单栏中选择“文件”。

3. 点击“另存为”,选择“工作簿”并保存到本地。

4. 现在关闭原始的受保护工作表,打开新保存的工作簿文件。

5. 在新的工作簿中,再次点击“文件”,选择“信息”。

6. 点击“管理工作表保护”,选择“解除工作表保护”。

7. 如果工作表受密码保护,系统会提示你输入密码。

8. 输入密码后,点击“确定”即可解除工作表保护。

另外,如果你无法解除工作表保护,可能是因为你没有权限或者受到了文档保护。

在这种情况下,你可能需要联系文档的创建者或管理员,以获取必要的权限或密码来解除保护。

需要注意的是,强制解除工作表保护可能违反了文档的使用规定,建议在进行操作前先确认是否有相关权限或授权。

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

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

Excel工作表密码保护的解除方法Excel弹出“您试图更改的单元格或图表受保护,因而是只读的;若要修改受保护单元格或图表,请先使用‘撤消工作表保护’命令在‘审阅’选项卡的‘更改’组中来取消保护;可能会提示您输入密码;出现这种情况,应该怎么解决呢经过研究,找到了两种破解Excel工作表保护码的方法;一、VBA宏代码破解法:第一步:打开该文件第二步:按Alt F11,进入VBA编辑界面;第三步:插入一个Module;第四步:在右边Module的空白编辑区域,复制粘贴下面的所有内容;第五步:按F5,运行该VBA命令;密码就现形了;Sub PasswordDim 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 Chri & Chrj & Chrk & _Chrl & Chrm & Chri1 & Chri2 & Chri3 & _Chri4 & Chri5 & Chri6 & ChrnIf ActiveSheet.ProtectContents = False ThenMsgBox "One usable password is " & Chri & Chrj & _Chrk & Chrl & Chrm & Chri1 & Chri2 & _Chri3 & Chri4 & Chri5 & Chri6 & ChrnActiveWorkbook.Sheets1.SelectRange"a1".FormulaR1C1 = Chri & Chrj & _Chrk & Chrl & Chrm & Chri1 & Chri2 & _Chri3 & Chri4 & Chri5 & Chri6 & ChrnExit SubEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextEnd Sub第六步:切换“审阅”选项卡,点击“撤消工作表保护”,然后输入密码即可解除锁定;二、软件破解法有许多专门为破解Excel各种密码而制作的软件,Excel Key与AdvancedOffice 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表格的密码保护完整版

如何破解E X C E L表格的密码保护集团标准化办公室:[VV986T-J682P28-JP266L8-68PNN]如何破解EXCEL表格的密码保护我们常常会在EXCEL输入密码以保护部分表格不被他人修改,但往往会忘记密码,现提供一解决方法,供大家参考!1.按Alt+F11,打开VBA编辑器。

2.在“工程”窗口中选择要取消保护的工作表名称,单击菜单“插入→模块”。

3.在右侧的代码窗口中输入下列代码:SubRemove_WorkSheet_Password()DimiAsInteger,jAsInteger,kAsIntegerDimlAsInteger,mAsInt eger,nAsIntegerDimi1AsInteger,i2AsInteger,i3AsIntegerDimi4AsInteger,i5AsInteger,i6AsI ntegerOnErrorResumeNextIfActiveSheet.ProtectContents=FalseThenMsgBox"该工作表没有保护密码!"ExitSubEndIfFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66F ori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126ActiveShee t.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i 5)&Chr(i6)&Chr(n)IfActiveSheet.ProtectContents=FalseThenMsgBox"已经解除了工作表保护!"ExitSubEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextEndSub4.关闭VBA编辑器,回到工作表中,按Alt+F8,打开“宏”对话框,选择“Remove_WorkSheet_Password”,并单击“执行”按钮。

EXCEL文档修改保护解密方法

EXCEL文档修改保护解密方法

EXCEL文档修改保护解密方法
在Excel中,我们可以通过设置密码来保护文档,防止他人对文档进行修改。

但是有时候我们可能会遗忘密码或者需要修改受保护的文档,这时候就需要进行密码解密。

下面是一种方法来解密受保护的Excel文档。

首先,我们需要打开Excel文档,然后点击“文件”选项卡,在弹出的菜单中选择“信息”选项。

安装并打开密码破解工具之后,我们需要导入受保护的Excel文档。

然后,在工具的设置中选择破解密码的方法,比如通过暴力破解、字典攻击、智能攻击等。

不同的方法有不同的破解速度和准确度,可以根据具体情况选择一种合适的破解方式。

在选择破解方法之后,我们可以点击“开始”按钮来开始破解密码。

工具将会自动尝试不同的密码组合,直到找到正确的密码为止。

整个过程可能需要一些时间,具体时间取决于密码的复杂度和工具的性能。

需要提醒的是,密码破解工具只能破解简单的密码组合,对于复杂的密码可能无法成功破解。

另外,密码破解工具的使用需要注意法律法规,确保操作是合法的。

总之,解密受保护的Excel文档的方法有多种,但请务必确保操作的合法性,并遵守相关的法律法规。

此外,在设置Excel文档密码时,也要选择一个强度较高的密码,以保护文档的安全性。

excel2010保护工作表忘记密码了怎么办

excel2010保护工作表忘记密码了怎么办

excel2010保护工作表忘记密码了怎么办
对于一些重要的文件,我们都会选择给他加上密码,但是忘记密码了可该怎么办呢。

下面让店铺为你带来excel2010保护工作表忘记密码的解决方法,希望对你有帮助!
excel2010破解密码的方法步骤
首先我们在网上下载一个Office Password Remover,运行解压好的OPRemove.exe 这个程序。

02打开程序后可以看到中间文本框后面有个类似文件夹的按钮,点击它浏览打开要破解的文档,选择后点击移除密码,这时软件会提示需要连接到Internet,因为要给该软件的服务器发送数据并解密。

03过几秒钟后便出现“该文档已经被成功破解”,点确定即可。

Excel 2003保持恢复用户设置的方法
1.关闭所有正在运行的Office 2003应用程序。

2.单击“开始→程序→Microsoft Office→Microsoft Office工具→Microsoft Office 2003用户设置保存向导。

在弹出的对话框中单击“下一步”。

3.选择“保存本机设置”或“将原先保存的设置恢复应用到本机上”。

如果要将本机的用户设置进行备份或转移到其他电脑中,则选择前者;要恢复用户设置则选择后者,前提是用户设置文件(*.OPS)已保存在电脑中。

单击“下一步”。

4.单击“浏览”按钮选择要保存的位置或恢复文件(*.OPS)所在位置,单击“完成”。

这样即可保存或恢复Office 2003应用程序(当然也包括Excel 2003)的用户设置。

破解excel工作表保护

破解excel工作表保护

破解excel工作表保护Excel工作表保护是一种常见的数据保护方式,可以有效防止他人对工作表内容的修改和删除。

然而,有时候我们可能会忘记了工作表的密码,或者需要对受保护的工作表进行编辑,这时就需要破解Excel工作表保护。

下面,我将向大家介绍几种破解Excel工作表保护的方法。

第一种方法是使用VBA代码。

VBA是Excel中的一种编程语言,可以用来操作Excel的各种功能。

我们可以通过编写一段简单的VBA代码来破解工作表的保护。

首先,我们需要按下Alt + F11组合键,打开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工作表密码保护的解除方法

下载(下载地址:/soft/utilitie/security/268/410768.shtml)安装完后运行软件,点击工具栏“Open File”按钮,打开要破解的Excel文件,马上就可以看到解出的密码了(图6)。
可以看出,用以上方法读出的密码完全不同,但它们确实均可以解除该工作表的密码保护,这实在是个有趣的问题。
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) & _
Next: Next: Next: Next: Next: Next
End Sub
第六步:切换“审阅”选项卡,点击“撤消工作表保护”,然后输入密码即可解除锁定。
二、软件破解法
有许多专门为破解Excel各种密码而制作的软件,Excel Key与Advanced Office Password Recovery就是其中的佼佼者。它们的使用方法简单且破解速度极快。
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

教你破掉Excel工作表密码,10秒都不用,工作簿也可以

教你破掉Excel工作表密码,10秒都不用,工作簿也可以

教你破掉Excel工作表密码,10秒都不用,工作簿也可以在我们平时工作中,经常会遇到有的Excel工作簿是设有密码的,当我们想修改里面的内容的时候,是没办法修改的,这时候我们可能对这个表格就束手无策了。

尤其有时候比较郁闷的是,这个表格是自己设置的密码,然后想不起来了,这时候就更尴尬了。

比如如下我们对Excel设置了保护密码,可以看到Excel是不允许修改的了。

那遇到这样的情况,我们要怎么做呢?今天就教大家1种方法,教你破解Excel设置的密码~~使用压缩包的方法1、首先我们对设置密码的Excel名称进行重命名,把后缀名的.xlsx,改成RAR。

有的小伙伴讲,我这个怎么看不到后缀名怎么办呢?这时我们只要打开【我的电脑】-【文件夹选项】-【查看】,把里面的【隐藏已知文件类型的扩展名】前面的√取消掉,即可显示了所有文件的后缀名了。

2、直接双击打开这个.rar文件,可以看到如下的图示3、我们找到【xl】文件夹,即上图的第3个文件夹,我们打开它,并找到worksheets文件夹,然后点开,可以看到几个sheet名称。

4、这时确认好,设置密码保护的工作表是哪个,然后双击打开它。

我们上面设置密码的工作表是sheet1,所以我们打开sheet1,可以看到很多字符。

不用管它,我们只需要按Ctrl+F查找,查找内容为:Protect,然后选中包含protect内容的两个符号<>(包含这两个符号)之间的内容,全部点击delete删除即可,如下图所示。

5、删除后,关闭文档,这时会提示我们是否更新,我们选择【是】。

6、更新完成后,关闭压缩包,最后再把文件的后缀名,由.RAR格式更改为.xlsx格式,然后我们再打开工作簿,即可以正常编辑了。

最后在给大家分享下原理:在office 2007及以上版本中,Excel的后缀名变为.xlsx,其本质是一个压缩包,构成Excel的所有源代码都在这个压缩包中,所以我们可以通过将其后缀更改为.rar,以压缩包的形式提取出里面的代码内容,并加以修改。

excel2010破解方法的教程

excel2010破解方法的教程

excel2010破解方法的教程在办公中经常需要用到Excel,而用Excel前都需要进行破解,具体该如何破解呢?接下来是店铺为大家带来的excel2010破解方法的教程,供大家参考。

excel2010破解方法的教程:破解步骤1:在网上下载正版的microsoft office 2010,下载完成后,文件一般是一个压缩包的形式。

双击文件,解压,在解压后的文件夹里找到“setup.exe”,双击进入安装。

破解步骤2:选择“自定义安装”,这样能选择文件安装的位置。

点击“浏览”,在“我的电脑”中选择除“C盘”以外的硬盘进行安装。

在这里我选择的是“D盘”,点击确定,进入安装。

破解步骤3:这个安装过程需要大概10~20分钟,性能较好的电脑所需要的时间比较短,我见过的学生电脑中,还有安装了一下午的那种,大家耐心等待。

破解步骤4:安装成功后,点击“关闭”。

这个时候,你电脑上的“microsoft office 2010”已经安装好了,切记先不要打开,下一步我们要对它进行激活破解。

破解步骤5:下载激活小工具(参考资料),下载完成后,双击打开。

破解步骤6:打开后,会看到一个黑色的小弹窗,点击第一行“Install/Uninstall KMService”,弹出一个黑色界面,在{Y/N}后面输入“y”,点击键盘上的“Enter”键,等待,直到黑色窗口中出现“Press Any Key to exit”,这时按键盘上的任意键,退出这个黑色界面。

破解步骤7:返回到黑色小弹窗,这次,点击最后一行的按钮,同样的步骤,点击最后一行的“Rearm Office 2010”,弹出一个黑色界面,在{Y/N}后面输入“y”,点击键盘上的“Enter”键,等待,直到黑色窗口中出现“Press Any Key to exit”,这时按键盘上的任意键,退出这个黑色界面。

破解步骤8:此时,你电脑中的“microsoft office 2010”已经破解安装成功了,如果你还是不放心的话,可以点击激活小工具中的“Restart Service”进行检测,如果看到“successfull”这个词的话,就说明你的2010已经安装成功了!。

如何破解Excel工作表保护密码

如何破解Excel工作表保护密码

如何破解Excel工作表保护密码EXCEL工作表编辑资料,设置了工作表保护后,不能对表格进行插入删除操作。

如果有密码,很简单:工具-选项—工作表保护——撤消工作表保护就可以了。

如果忘记密码,如下操作:1、打开文件2、工具---宏----录制新宏---输入名字如:ha---确定3、停止录制(这样得到一个空宏)4、工具---宏----宏,选ha,点编辑按钮5、删除窗口中的所有字符(只有几个),替换为下面的内容:(完整复制下来即可)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 & 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 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)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 Sub6、关闭编辑窗口7、工具---宏-----宏,选AllInternalPasswords,运行,等几分钟分钟就OK,没有密码了!!。

EXCEL密码保护破解2010

EXCEL密码保护破解2010

EXCEL密码保护破解2010-01-22 09:56方法: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 & 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 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 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 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)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评价答案好:9不好:0原创:0非原创:0全世界失眠回答采纳率:33.3% 2011-02-18 13:09满意答案好评率:100%添加模块Sub 破解EXECL文档的工作表()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 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) 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: Next。

Excel中如何破解“撤销工作表保护密码”并获取原始密码

Excel中如何破解“撤销工作表保护密码”并获取原始密码

Excel中如何破解“撤销工作表保护密码”并获取原始密码一、保护工作表的方法1、全选定工作表右击[设置单元格格式] 找到[保护]将[锁定]和[隐藏]两个的勾去掉;2、将要保护的工作表单元格选定右击[设置单元格格式]找到[保护]将[锁定]和[隐藏]两个的勾打上;3、点菜单栏的[工具]中的[保护]里的[保护工作表]将[保护工作表及锁定的单元内容]打上勾,下选允许此工作表的所有用户[选定未锁定的单元格]打上勾二、Excel工作表保护密码破解方法(如果Excel文件的打开密码忘记了,且密码是6位数以内的数字,可用以下步骤解开(关掉所有程序,为了速度):新开一Excel,同时按Alt和F11,进入VBA界面,点菜单上的插入,模块,在新出来的窗口粘贴一下代码:然后在此界面直接按F5运行此宏,选择文件,等啊等(看密码长度了)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。

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

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

Excel表格密码保护的解除方法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 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”并点击“执行”,密码就现形了第四步:点击“撤消工作表保护”,然后输入密码即可解除锁定;。

excel密码破解的三种方式——以备不时之需!(建议收藏)

excel密码破解的三种方式——以备不时之需!(建议收藏)

excel密码破解的三种方式——以备不时之需!(建议收藏)现在的互联网信息时代,人们对信息安全比较敏感,也比较重视,确实,哪个人都不希望自己辛辛苦苦劳动得来的东西就这样被别人窃取了。

我们在日常的生活、工作中经常遇到Excel文件加密了,此时工作表就不能编辑修改,只能进行简单的复制操作,这时候我们最希望的就是能够将密码进行破解!excel工作表密码破解的方法大致有以下三种:1.VBA代码破解;2.将文件后缀名修改为RAR压缩文件后打开相关文件将加密代码删除;3.下载现成的插件。

在演示这三种解密方法之前,我们先对Excel文件进行加密,以便后面的操作演示:对身份证校验工作表进行加密提示输入密码才能修改,说明已经加密成功!下面依次演示如何使用这三种方法进行破解Excel文件的密码。

方法一:VBA代码破解右键单击身份证校验工作表,单击查看代码,如下图所示:然后粘贴以下VBA代码,在点击运行(F5),大功告成!Sub 密码破解()ActiveSheet.ProtectDrawingObjects:=True, CONTENTS:=True,AllowFiltering:=TrueActiveSheet.ProtectDrawingObjects:=False, CONTENTS:=True,AllowFiltering:=TrueActiveSheet.UnprotectEnd Sub其实代码还不止这个1.Sub RemoveShProtect()2.Dim i1 As Integer, i2 As Integer, i3As Integer3.Dim i4 As Integer, i5 As Integer, i6As Integer4.Dim i7 As Integer, i8 As Integer, i9As Integer5.Dim i10 As Integer, i11 As Integer,i12 As Integer6.Dim t As String7.On Error Resume Next8.If ActiveSheet.ProtectContents =False Then9.MsgBox '该工作表没有保护密码!'10.Exit Sub11.End If12.t = Timer13.For i1 = 65 To 66: For i2 = 65 To66: For i3 = 65 To 6614.For i4 = 65 To 66: For i5 = 65 To66: For i6 = 65 To 6615.For i7 = 65 To 66: For i8 = 65 To66: For i9 = 65 To 6616.For i10 = 65 To 66: For i11 = 65 To66: For i12 = 32 To 12617.ActiveSheet.Unprotect Chr(i1) &Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) _18.& Chr(i6) & Chr(i7) & Chr(i8) &Chr(i9) & Chr(i10) & Chr(i11) & Chr(i12)19.If ActiveSheet.ProtectContents =False Then20.MsgBox '解除工作表保护!用时' &Format(Timer - t, '0.00') & '秒'21.Exit Sub22.End If23.Next: Next: Next: Next: Next: Next24.Next: Next: Next: Next: Next: Next25.End Sub方法二:将文件后缀名修改为RAR压缩文件后打开相关文件将加密代码删除进行破解1、我们关闭工作簿,将此工作簿重命名修改文件后缀名为“rar”2、双击打开rar文件,找到'sheet1.xml',文件路径为“xl>>worksheets>>sheet1.xml”,因为身份证验证工作表是第一个工作表,所以选择sheet1.xml,要是第二个工作表加密就选择sheet2.xml,两个都加的话就两个文件都修改。

excel2010密码忘记了的处理方法

excel2010密码忘记了的处理方法

excel2010密码忘记了的处理方法在Excel中经常需要用到密码进行对重要数据的保护,但是可能过了段时间过后就已经忘记了密码,这个时候就需要我们用点技巧才可以把文档打开了。

今天,店铺就教大家Excel2010密码保护忘记的处理方法!Excel 2010密码保护忘记的处理方法忘记密码解决步骤1:首先打开设置了工作表保护的表格,可以看到,当我们试图编辑时,会弹出这样的对话框。

Excel 2010密码保护忘记的处理步骤图忘记密码解决步骤2:这时如果我们忘记了密码,可以使用宏命令来将密码显示出来,然后输入正确的密码即可。

具体操作时,要先将宏命令的相关工具按钮调出来。

单击文件——选项——自定义功能区——在“开发工具”前打勾——确定。

Excel 2010密码保护忘记的处理步骤图2忘记密码解决步骤3:单击工具栏——开发工具——宏,新建宏。

然后保存。

Excel 2010密码保护忘记的处理步骤图3忘记密码解决步骤4:编辑该宏,复制下列代码粘贴到宏的内容中去。

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忘记密码解决步骤5:保存之后,运行该宏,即可弹出显示密码的窗口。

excel2010工作表如何撤销保护范文

excel2010工作表如何撤销保护范文

excel2010工作表如何撤销保护范文篇一:如何撤销Excel工作表保护EXCEL工作表编辑资料,设置了工作表保护后,不能对表格进行操作。

如果没有密码,很简单:工具-选项—工作表保护——撤消工作表保护就可以了。

如果忘记密码或者不知道密码,执行如下操作:1、打开文件2、工具---宏----录制新宏---输入名字如:a3、停止录制(这样得到一个空宏)4、工具---宏----宏,选a,点编辑按钮5、删除窗口中的所有字符(只有几个),替换为下面的内容:(复制下来)OptionExplicitPublicSubAllInternalPasswords()'Breaksworksheetandworkbookstructurepasswords.BobMcCormick'probablyoriginatorofbasecodealgorithmmodifiedforcoverage'ofworkbookstructure/windowspasswordsandformultiplepassword s''NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)'Modified2003-Apr-04byJEM:Allmsgstoconstants,and'eliminateoneExitSub(Version1.1.1)'RevealshashedpasswordsNOToriginalpasswordsConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_"AdaptedfromBobMcCormickbasecodeby"&_"NormanHarkerandJEMcGimpsey"ConstHEADERAsString="AllInternalPasswordsUserMessage" ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04" ConstREPBACKAsString=DBLSPACE&"Pleasereportfailure"&_ "tothemicrosoft.public.excel.programmingnewsgroup."ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_"nowbefreeofallpasswordprotection,somakesureyou:"&_DBLSPACE&"SAVEITNOW!"&DBLSPACE&"andalso"&_DBLSPACE&"BACKUP!,BACKUP!!,BACKUP!!!"&_DBLSPACE&"Also,rememberthatthepasswordwas"&_"putthereforareason.Don'tstuffupcrucialformulas"&_"ordata."&DBLSPACE&"Accessanduseofsomedata"&_"maybeanoffense.Ifindoubt,don't."ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_ "sheets,orworkbookstructureorwindows."&AUTHORS&VERSION ConstMSGNOPWORDS2AsString="Therewasnoprotectionto"&_ "workbookstructureorwindows."&DBLSPACE&_"Proceedingtounprotectsheets."&AUTHORS&VERSIONConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_ "willtakesometime."&DBLSPACE&"Amountoftime"&_"dependsonhowmanydifferentpasswords,the"&_"passwords,andyourcomputer'sspecification."&DBLSPACE&_ "Justbepatient!Makemeacoffee!"&AUTHORS&VERSIONConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_"StructureorWindowsPasswordset."&DBLSPACE&_"Thepasswordfoundwas:"&DBLSPACE&"$$"&DBLSPACE&_"Noteitdownforpotentialfutureuseinotherworkbooksby"&_ "thesamepersonwhosetthispassword."&DBLSPACE&_"Nowtocheckandclearotherpasswords."&AUTHORS&VERSIONConstMSGPWORDFOUND2AsString="YouhadaWorksheet"&_"passwordset."&DBLSPACE&"Thepasswordfoundwas:"&_DBLSPACE&"$$"&DBLSPACE&"Noteitdownforpotential"&_ "futureuseinotherworkbooksbysamepersonwho"&_"setthispassword."&DBLSPACE&"Nowtocheckandclear"&_ "otherpasswords."&AUTHORS&VERSIONConstMSGONLYONEAsString="Onlystructure/windows"&_ "protectedwiththepasswordthatwasjustfound."&_ALLCLEAR&AUTHORS&VERSION&REPBACKDimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsInteger Dimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectStructureOr.ProtectWindows EndWithShTag=FalseForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,vbInformation,HEADER ExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADER IfNotWinTagThenMsgBoxMSGNOPWORDS2,vbInformation,HEADER ElseOnErrorResumeNextDo'dummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66 Fori5=65To66:Fori6=65To66:Forn=32To126 WithActiveWorkbook.UnprotectChr(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=FalseAnd_.ProtectWindows=FalseThenPWord1=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,HEADERExitDo'Bypassallfor...nextsEndIfEndWithNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE,vbInformation,HEADER ExitSubEndIfOnErrorResumeNextForEachw1InWorksheets'AttemptclearancewithPWord1w1.UnprotectPWord1Nextw1OnErrorGoTo0ShTag=FalseForEachw1InWorksheets'ChecksforallclearShTagtriggeredto1ifnot. ShTag=ShTagOrw1.ProtectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If.ProtectContentsThenOnErrorResumeNextDo'DummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)IfNot.ProtectContentsThenPWord1=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'leveragefindingPwordbytryingonothersheets ForEachw2InWorksheetsw2.UnprotectPWord1Nextw2ExitDo'Bypassallfor...nextsEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfEndWithNextw1EndIfMsgBoxALLCLEAR&AUTHORS&VERSION&REPBACK,vbInformation,HEADEREndSub6、关闭编辑窗口7、工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟(确实有这么长时间),再确定.OK,没有密码了!篇二:教你如何撤销工作表保护密码Excel,遗忘密码后如何撤销工作表保护密码工作表保护密码1、打开您需要撤销保护密码的Excel文件;2、依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:ab;3、停止录制(这样得到一个空宏);4、依次点击菜单栏上的工具---宏----宏,选ab,点编辑按钮;5、删除窗口中的所有字符(只有几个),替换为以下内容;PublicSub工作表保护密码()ConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_"作者:eric"ConstHEADERAsString="工作表保护密码"ConstVERSIONAsString=DBLSPACE&"版本Version1.1.1"ConstREPBACKAsString=DBLSPACE&""ConstZHENGLIAsString=DBLSPACE&"eric"ConstALLCLEARAsString=DBLSPACE&"该工作簿中的工作表密码保护已全部解除。

excel2010取消密码保护的方法

excel2010取消密码保护的方法

excel2010取消密码保护的方法
推荐文章
excel2010如何取消受保护的视图热度: excel2010表格中怎么取消隐藏表格热度:Excel2010取消科学计数法的方法步骤热度:Excel单元格复制时出现的粘贴选项按钮取消方法是什么热度: Excel 中2010版进行隐藏数据和取消的使用操作热度:
在Excel中录入一些重要数据是很多人的习惯,但重要的数据是不能随意删除改变的,这个时候就需要用到密码保护,但过了一段时间就发现已经不需要密码了,所以需要取消密码,接下来是店铺为大家带来的excel2010 取消密码保护的方法,希望对你有用。

excel2010 取消密码保护的方法:
取消密码步骤1:打开已经设置密码的Excel2010文件。

取消密码步骤2:在出现的密码对话框中,输入密码,单击确定后即打开文件。

取消密码步骤3:单击文件-另存为。

取消密码步骤4:在出现的另存为对话框中,单击左下角的工具按钮,在下拉列表中选择常规选项。

取消密码步骤5:在常规选项对话框中,将打开权限密码删除,点击确定按钮。

取消密码步骤6:点击另存为对话框中的保存按钮,在出现的对话框中选择“是”,替换现有文件。

此时文件的密码已经删除。

取消密码步骤7:关闭文件重新打开,之前设置的密码已经删除了。

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

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 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 = 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, 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)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, HEADER Exit 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。

相关文档
最新文档