绕过excel密码吗

『壹』 怎样破解EXCEL密码

如何破解EXCEL工作表保护密码方法谈x0dx0ax0dx0a超级无敌有用！！！x0dx0a方法:x0dx0a1\打开文件x0dx0a2\工具---宏----录制新宏---输入名字如:aax0dx0a3\停止录制(这样得到一个空宏)x0dx0a4\工具---宏----宏,选aa,点编辑按钮x0dx0a5\删除窗口中的所有字符,替换为下面的内容:(复制吧)x0dx0a6\关闭编辑窗口x0dx0a7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!x0dx0a内容如下：x0dx0aPublic Sub AllInternalPasswords()x0dx0a' Breaks worksheet and workbook structure passwords. Bob McCormickx0dx0a' probably originator of base code algorithm modified for coveragex0dx0a' of workbook structure / windows passwords and for multiple passwordsx0dx0a'x0dx0a' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)x0dx0a' Modified 2003-Apr-04 by JEM: All msgs to constants, andx0dx0a' eliminate one Exit Sub (Version 1.1.1)x0dx0a' Reveals hashed passwords NOT original passwordsx0dx0aConst DBLSPACE As String = vbNewLine & vbNewLinex0dx0aConst AUTHORS As String = DBLSPACE & vbNewLine & _x0dx0a"Adapted from Bob McCormick base code by" & _x0dx0a"Norman Harker and JE McGimpsey"x0dx0aConst HEADER As String = "AllInternalPasswords User Message"x0dx0aConst VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"x0dx0aConst REPBACK As String = DBLSPACE & "Please report failure " & _x0dx0a"to the microsoft.public.excel.programming newsgroup."x0dx0aConst ALLCLEAR As String = DBLSPACE & "The workbook should " & _x0dx0a"now be free of all password protection, so make sure you:" & _x0dx0aDBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _x0dx0aDBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _x0dx0aDBLSPACE & "Also, remember that the password was " & _x0dx0a"put there for a reason. Don't stuff up crucial formulas " & _x0dx0a"or data." & DBLSPACE & "Access and use of some data " & _x0dx0a"may be an offense. If in doubt, don't."x0dx0aConst MSGNOPWORDS1 As String = "There were no passwords on " & _x0dx0a"sheets, or workbook structure or windows." & AUTHORS & VERSIONx0dx0aConst MSGNOPWORDS2 As String = "There was no protection to " & _x0dx0a"workbook structure or windows." & DBLSPACE & _x0dx0a"Proceeding to unprotect sheets." & AUTHORS & VERSIONx0dx0aConst MSGTAKETIME As String = "After pressing OK button this " & _x0dx0a"will take some time." & DBLSPACE & "Amount of time " & _x0dx0a"depends on how many different passwords, the " & _x0dx0a"passwords, and your computer's specification." & DBLSPACE & _x0dx0a"Just be patient! Make me a coffee!" & AUTHORS & VERSIONx0dx0aConst MSGPWORDFOUND1 As String = "You had a Worksheet " & _x0dx0a"Structure or Windows Password set." & DBLSPACE & _x0dx0a"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _x0dx0a"Note it down for potential future use in other workbooks by " & _x0dx0a"the same person who set this password." & DBLSPACE & _x0dx0a"Now to check and clear other passwords." & AUTHORS & VERSIONx0dx0aConst MSGPWORDFOUND2 As String = "You had a Worksheet " & _x0dx0a"password set." & DBLSPACE & "The password found was: " & _x0dx0aDBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _x0dx0a"future use in other workbooks by same person who " & _x0dx0a"set this password." & DBLSPACE & "Now to check and clear " & _x0dx0a"other passwords." & AUTHORS & VERSIONx0dx0aConst MSGONLYONE As String = "Only structure / windows " & _x0dx0a"protected with the password that was just found." & _x0dx0aALLCLEAR & AUTHORS & VERSION & REPBACKx0dx0aDim w1 As Worksheet, w2 As Worksheetx0dx0aDim i As Integer, j As Integer, k As Integer, l As Integerx0dx0aDim m As Integer, n As Integer, i1 As Integer, i2 As Integerx0dx0aDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integerx0dx0aDim PWord1 As Stringx0dx0aDim ShTag As Boolean, WinTag As .ScreenUpdating = Falsex0dx0aWith ActiveWorkbookx0dx0aWinTag = .ProtectStructure Or .ProtectWindowsx0dx0aEnd Withx0dx0aShTag = Falsex0dx0aFor Each w1 In Worksheetsx0dx0aShTag = ShTag Or w1.ProtectContentsx0dx0aNext w1x0dx0aIf Not ShTag And Not WinTag Thenx0dx0aMsgBox MSGNOPWORDS1, vbInformation, HEADERx0dx0aExit Subx0dx0aEnd Ifx0dx0aMsgBox MSGTAKETIME, vbInformation, HEADERx0dx0aIf Not WinTag Thenx0dx0aMsgBox MSGNOPWORDS2, vbInformation, HEADERx0dx0aElsex0dx0aOn Error Resume Nextx0dx0aDo 'mmy do loopx0dx0aFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66x0dx0aFor l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66x0dx0aFor i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66x0dx0aFor i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126x0dx0aWith ActiveWorkbookx0dx0a.Unprotect Chr(i) & Chr(j) & Chr(k) & _x0dx0aChr(l) & Chr(m) & Chr(i1) & Chr(i2) & _x0dx0aChr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)x0dx0aIf .ProtectStructure = False And _x0dx0a.ProtectWindows = False Thenx0dx0aPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _x0dx0aChr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _x0dx0aChr(i4) & Chr(i5) & Chr(i6) & Chr(n)x0dx0aMsgBox Application.Substitute(MSGPWORDFOUND1, _x0dx0a"$$", PWord1), vbInformation, HEADERx0dx0aExit Do 'Bypass all for...nextsx0dx0aEnd Ifx0dx0aEnd Withx0dx0aNext: Next: Next: Next: Next: Nextx0dx0aNext: Next: Next: Next: Next: Nextx0dx0aLoop Until Truex0dx0aOn Error GoTo 0x0dx0aEnd Ifx0dx0aIf WinTag And Not ShTag Thenx0dx0aMsgBox MSGONLYONE, vbInformation, HEADERx0dx0aExit Subx0dx0aEnd Ifx0dx0aOn Error Resume Nextx0dx0aFor Each w1 In Worksheetsx0dx0a'Attempt clearance with PWord1x0dx0aw1.Unprotect PWord1x0dx0aNext w1x0dx0aOn Error GoTo 0x0dx0aShTag = Falsex0dx0aFor Each w1 In Worksheetsx0dx0a'Checks for all clear ShTag triggered to 1 if not.x0dx0aShTag = ShTag Or w1.ProtectContentsx0dx0aNext w1x0dx0aIf ShTag Thenx0dx0aFor Each w1 In Worksheetsx0dx0aWith w1x0dx0aIf .ProtectContents Thenx0dx0aOn Error Resume Nextx0dx0aDo 'Dummy do loopx0dx0aFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66x0dx0aFor l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66x0dx0aFor i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66x0dx0aFor i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126x0dx0a.Unprotect Chr(i) & Chr(j) & Chr(k) & _x0dx0aChr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _x0dx0aChr(i4) & Chr(i5) & Chr(i6) & Chr(n)x0dx0aIf Not .ProtectContents Thenx0dx0aPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _x0dx0aChr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _x0dx0aChr(i4) & Chr(i5) & Chr(i6) & Chr(n)x0dx0aMsgBox Application.Substitute(MSGPWORDFOUND2, _x0dx0a"$$", PWord1), vbInformation, HEADERx0dx0a'leverage finding Pword by trying on other sheetsx0dx0aFor Each w2 In Worksheetsx0dx0aw2.Unprotect PWord1x0dx0aNext w2x0dx0aExit Do 'Bypass all for...nextsx0dx0aEnd Ifx0dx0aNext: Next: Next: Next: Next: Nextx0dx0aNext: Next: Next: Next: Next: Nextx0dx0aLoop Until Truex0dx0aOn Error GoTo 0x0dx0aEnd Ifx0dx0aEnd Withx0dx0aNext w1x0dx0aEnd Ifx0dx0aMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADERx0dx0aEnd Sub

『贰』 如何破解EXCEL的打开密码

多功能密码破解软件
首先点击“Word\Excel破解”标签进入窗口，点击“浏览”按钮，选择要解密的Word或Excel文件。

其次设置密码的最小长度和最大长度，再设置从小到大还是从大到小。这些设置可以加快破解速度。

然后设置破解字符，即程序在哪些字符范围取值。如我常常使用0-9数字作为密码，因此就选中“数字(0-9)”选项。

最后点击“开始”按钮就可以穷举密码了。点击“暂停”按钮可以暂停程序的运行。如果点击“停止并保存”按钮则可停止程序的运行，并且保存进度，下次可以接着当前进度破解。调入进度的方法是点击工具栏上的“设置”按钮加载进度即可。找到密码时会显示在进度文本框中。

如果需要使用字典请选择“密码字典”选项，会弹出窗口，选择相应的字典，然后点击“确定”就OK了。如果使用自定义字典，可用文本文件设置字典，需要注意的是每行就一个密码，如果你要制作生日密码字典，可使用“多功能密码破解软件”赠送的“生日密码字典生成工具”，它在本软件的安装目录下。灵活使用密码字典能够有效地加快密码破解速度。

小技巧：由于使用穷举法破解速度很慢，可能需要几十个小时，此时你只需点击主界面 工具栏上的“设置”按钮，在弹出的窗口中选中“破解完毕后关闭计算机”选项，那么当计算机穷举完所有密码后会自动关闭计算机。当你下次开启电脑后，只需点击工具栏上的“日志”按钮，就能查看破解出的密码了

『叁』 如何绕过excel密码

进入一个未加密的文件夹，点击菜单栏上的“查看”命令，取消“按Web页查看”选项。再次点击“查看”，选择“文件夹选项”，在弹出的对话框中选择“查看”选项卡。点击“与当前文件夹类似”，确定后即可取消本机上所有文件夹的加密。

『肆』 excel表格打开密码破解的方法

在 Excel 中因为录入了过多的重要数据进而需要设置密码进行保护，但过了一段时间却忘记了打开密码，这个时候就需要进行破解打开密码的 方法 了。下面是由我分享的excel表格打开密码破解的方法，以供大家阅读和学习。

excel表格打开密码破解的方法：

破解打开密码步骤1：先用Microsoft Office Excel 2003(可用金山WPS Office 2012 表格代替)创建一个“2003.xls”的普通方式加密Excel文档，然后用Office Password Remover这个在线破解工具来破解，1,2,3，3秒之后，就生产一个已经被成功破解的新Excel文档——2003(DEMO).xls 。破解一个普通加密方式的Excel文档，只需3秒钟!如果你真的不信，可以自己测试一下!

破解打开密码步骤2：当然，这个3秒破解Excel文档密码是有条件的。第一个条件：Excel文档保存格式必须为古老的“.XLS ”格式(同理，Word文档保存为“.DOC”格式，PPT文档为“.PPT格式”)，第二个条件为加密方式必须为Office 2003或2007(WPS Office 2012)的默认加密方式。

注：要想得到完全的破解文件，需要付费，免费破解的Excel文档只能看到前几行。

破解打开密码步骤3：如果不付费就破解不了，那就大错特错。要知道，在一台普通配置的电脑上，Excel密码破解工具一秒能测试约88万个密码(需符合以上两个条件)。假设一个6位数的全数字密码，你猜要多长时间来破解?答案是2秒不到(破解时间因测试环境不同而不同)。

破解打开密码步骤4：WPS表格(用途相当于Excel)虽然提供多种加密方式，但其中的XOR加密方式在Advanced Office Password Recovery里就形成虚设。可能是Advanced Office Password Recovery已经掌握了怎么完美破解XOR加密方式的方法，否则不可能做到无论你设置什么密码，都会被瞬间打开!

『伍』 怎么解除excel2007密码怎么破解

解除Excel2007的文件密码，可以用一些专用的破解软件，一般有字典破解和自动组合破解。如果能大致知道之前设置的什么密码的话，可以选择字典破解或者一定范围内字符破解。我自己写的有破解的代码，但是要看你能花多少时间成本来破解它了。
请不要用于非法用途，只有自己的Excel文件密码忘记的时候才可以用。

『陆』 如何破解excel打开密码破解

• 1、我新建一个excel文件（.xlsx格式的）来测试破解过程，其它文件可以参考，但最好要备份原来的文件,设置工作表、工作薄为密码保护，保存后

  

『柒』 如何破解excel密码

首先点击“Word\Excel破解”标签进入窗口，点击“浏览”按钮，选择要解密的Word或Excel文件。
其次设置密码的最小长度和最大长度，再设置从小到大还是从大到小。这些设置可以加快破解速度。
然后设置破解字符，即程序在哪些字符范围取值。如我常常使用0-9数字作为密码，因此就选中“数字(0-9)”选项。
最后点击“开始”按钮就可以穷举密码了。点击“暂停”按钮可以暂停程序的运行。如果点击“停止并保存”按钮则可停止程序的运行，并且保存进度，下次可以接着当前进度破解。调入进度的方法是点击工具栏上的“设置”按钮加载进度即可。找到密码时会显示在进度文本框中。
如果需要使用字典请选择“密码字典”选项，会弹出窗口，选择相应的字典，然后点击“确定”就OK了。如果使用自定义字典，可用文本文件设置字典，需要注意的是每行就一个密码，如果你要制作生日密码字典，可使用“多功能密码破解软件”赠送的“生日密码字典生成工具”，它在本软件的安装目录下。灵活使用密码字典能够有效地加快密码破解速度。
小技巧：由于使用穷举法破解速度很慢，可能需要几十个小时，此时你只需点击主界面
工具栏上的“设置”按钮，在弹出的窗口中选中“破解完毕后关闭计算机”选项，那么当计算机穷举完所有密码后会自动关闭计算机。当你下次开启电脑后，只需点击工具栏上的“日志”按钮，就能查看破解出的密码了
或去我空间看
http://hi..com/long8572
更多

『捌』 如何破解excel密码

<
打开文档后，通过文件菜单中“另存为”，将文档存为rtf格式。保存好文件后，先关掉文档再打开另存的文件，选择工具栏中的“解除文档保护”命令，不用填写密码就可以解除此文件的“文档保护功能”，而且任何信息都不会丢失。用Office Password Remover这个软件可以打开。
使用方法：
首先运行解压好的OPRemove.exe 这个程式，打开程式后能看到中间文本框后面有个类似目录的按钮。
选择后出现下图的画面，点击移除密码。
呆几秒钟后便出现“该文件已被成功破解”，点确定即可，这时候就大功告成了。 在这里要注意的是，破解后的文章名字会有点变化，加了“DEMO”这四个字母，翻译过来就是示范的意思，不必在意，重命名去掉就能了。

『玖』 如何破解excel打开密码

你的excel制作完成后，如果需要加密码，可以进行如下操作
1、excel制作完成，先要保存一下。
2、你打开“工具”--“选项”
，在“选项”下，你选择“安全性”一栏；
3、在“安全性”选项中，你可以看到两个项目a，此文件加密设置
打开权限密码
b，共享设置修改权限密码
这里你可以设置你的密码，如果你的表格需要共享的，建议你在设置共享密码的同时，在“建议只读”该项目上打钩（这样别人就只能看你的表格，但不能修改内容。
4、点“确定”，退出excel，然后你可以打开刚做的excel，看看打开表格时是否需要密码输入。
如果时间长了，忘记密码。可以再网上搜索破解excel、word的密码软件进行解密。