破解表格保护密码软件 wps表格保护密码破解

电子表格的密码保护如何破解

遗忘Excel密码之后，我们可以借助于MSOfPass进行解除。

MSOfPass是一个专门解除Office文档密码的应用程序（目前主要是针对Wod及Excel），我们在启动该程序后首先应单击＂Settings＂按钮，打开＂Bute-foce settings＂对话框，对MSOfPass的解除状态进行设置（主要是在＂Passwod chaacte set＂列表框中选择密码的范围，即是否包括大小写字母、数字、空格等内容）。

单击＂OK＂按钮返回主菜单之后，我们只需将需要解除密码的Wod或Excel文件拖拽到MSOfPass主菜单中，MSOfPass即会根据用户指定的范围采用穷尽法对所有可能的密码进行测试，直到找到密码为止。

MSOfPass的下载网址为： 。

怎样破解Excel工作表保护密码？

工具就是Office Password Remover。

它可以在很短的时间内破解Word和Excel文档的密码，经过测试最多不超过5秒。

使用本软件时需要连接到Internet，因为要给该软件的服务器发送数据并解密。

不过大家可以放心，本软件不会泄露任何个人隐私。

使用方法： 首先运行解压好的OPRemove.exe 这个程序，打开程序后可以看到中间文本框后面有个类似文件夹的按钮。

点击它浏览打开要破解的文档。

选择后 点击移除密码。

呆几秒钟后便出现“该文档已经被成功破解”，点确定即可，这时候就大功告成了。

在这里要注意的是，破解后的文章名字会有点变化，加了“DEMO”这四个字母，翻译过来就是示范的意思，不必在意，重命名去掉就可以了。

另外，为了防止别人用该软件，也可以给它设置密码，打开软件后，点文件 — 设置访问密码，输两遍就OK了。

下次运行时就出现提示要求输入运行程序的密码。

软件名称：Office Password Remover V1.0.0.2 下载地址：3w.greendown.去掉文字，cn/soft/3149.html 或：8回答者： o0小猥

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 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 & _ ＂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 & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim 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 String Dim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 'dummy do loop 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 With ActiveWorkbook .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2...

如何打开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 & _ ＂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 & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim 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 String Dim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 'dummy do loop 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 With ActiveWorkbook ....

Excel工作表保护密码忘了怎么破解

1） '删除窗口中的所有字符（只有几个），替换为下面的内容； & _ ＂depends on how many different passwords, the ＂ Const ALLCLEAR As String = DBLSPACE & ＂The workbook should ＂ & _ &quotEXCEL工作表保护密码破解 方法： 1\！＂关闭编辑窗口 7\工具---宏-----宏，选aa; & _ ＂Structure or Windows Password set.＂ & DBLSPACE & _ ＂The password found was，等2分钟，再确定.OK;s specification, don't.＂ Const MSGNOPWORDS1 As String = ＂There were no passwords on ＂工具---宏----宏.&quot.programming newsgroup，没有密码了； & DBLSPACE & _ ＂You had a Worksheet ＂workbook structure or windows.＂ Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 by JEM;There was no protection to ＂ & _ ＂Just be patient; & _ ＂Norman Harker and JE McGimpsey＂ Const HEADER As String = ＂AllInternalPasswords User Message＂After pressing OK button this &quot: ＂ & 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 & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim 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 String Dim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 'dummy do loop 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 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 Then PWord1 = 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 With Next: 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 Then MsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End If On Error Resume Next For Each w1 In Worksheets 'Attempt clearance with PWord1 w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = False For Each w1 In Worksheets 'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag Or w1.ProtectContents Next w1 If ShTag Then For Each w1 In Worksheets With w1 If .ProtectContents Then On Error Resume Next Do 'Dummy do loop 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 .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 Then PWord1 = 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 ...

【密码保护】EXCEL文件受密码保护,如何打开

二。

两种方法（任选一）：1.工具---选项---安全性---打开权限密码（设置后无密码打不开文件）修改权限密码（设置后无密码能打开文件但不能修改文件）2.文件---另存为--工具--常规选项--打开权限密码（设置后无密码打不开文件）修改权限密码（设置后无密码能打开文件但不能修改文件） 允许指定用户访问受保护的区域必须安装了 Windows 2000 或更高版本并且计算机位于域中，才能授予特定用户访问区域的权限。

在“工具”菜单上，指向“保护”，然后单击“允许用户编辑区域”（该命令仅在工作表未受保护时才可用）。

单击“新建”。

在“标题”框中，键入要授权访问区域的标题。

在“引用单元格”框中，键入等号 （=），然后键入引用或选定的区域。

在“区域密码”框中，键入密码以访问区域。

该密码是可选的。

如果您没有使用密码，则任何用户都可编辑单元格。

单击“权限”，然后单击“添加”。

查找和选择要被授予权限的用户。

如果想选择多个用户，请按住 Ctl 并单击其名称。

单击“确定”两次，并按照提示再次键入密码。

对授予了访问权限的每个区域，请重复上述步骤。

如果要保留区域和用户的单个记录，请选中“允许用户编辑区域”对话框中的“将权限信息粘贴到一个新的工作簿中”复选框。

保护工作表：单击“允许用户编辑区域”对话框中的“保护工作表”。

在“保护工作表”对话框中，请确认选中了“保护工作表及锁定的单元格内容”复选框，并为工作表键入密码，接着单击“确定”，然后重新键入密码加以确认。

注释 工作表密码可以禁止其他用户编辑您指定的区域。

请确保记住了所选的密码，因为如果丢失了密码，您就不能访问工作表上受保护的元素。

答案补充保护所有用户的工作表元素请切换到需要实施保护的工作表。

取消任何您希望用户可对其进行更改的单元格的锁定：选择每一个单元格或区域，单击“格式”菜单上的“单元格”，再单击“保护”选项卡，然后清除“锁定”复选框。

隐藏任何不希望显示的公式：选择具有公式的单元格，单击“格式”菜单上的“单元格”，再单击“保护”选项卡，然后选中“隐藏”复选框。

取消用户要更改的图形对象的锁定。

操作方法不必取消用户可单击和使用的按钮或控件的锁定。

可以取消用户可修改的嵌入图表、文本框及由绘图工具所创建的其他对象的锁定。

如果要查看工作表中的哪些元素是图形对象，请单击“编辑”菜单中的“定位”，再单击其中的“定位条件”，然后单击“对象”。

按住 Ctl 并单击每个要取消锁定的对象。

在“格式”菜单上，单击所选对象对应的命令：“自选图形”、“对象”、“文本框”、“图片”、“控件”或“艺术字”。

单击“保护”选项卡。

清除“锁定”复选框，如果显示，请清除“锁定文本”复选框。

在“工具”菜单上，指向“保护”，再单击“保护工作表”。

为工作表键入密码。

excel密码破解软件

不必在意，重命名去掉就能了，破解后的文章名字会有点变化，选择工具栏中的“解除文档保护”命令，先关掉文档再打开另存的文件，点确定即可。

在这里要注意的是，翻译过来就是示范的意思，而且任何信息都不会丢失，点击移除密码。

呆几秒钟后便出现“该文件已被成功破解”，加了“DEMO”这四个字母。

用Office Password Remover这个软件可以打开。

使用方法，不用填写密码就可以解除此文件的“文档保护功能”，这时候就大功告成了： 首先运行解压好的OPRemove。

选择后出现下图的画面.exe 这个程式，打开程式后能看到中间文本框后面有个类似目录的按钮，将文档存为rtf格式。

保存好文件后打开文档后，通过文件菜单中“另存为”...

我的excel工作表里边的撤销保护工作表密码忘记了,谁能给我发个破...

＂ & 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 & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim 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 String Dim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 'dummy do loop 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 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 Then PWord1 = 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 With Next: 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 Then MsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End If On Error Resume Next For Each w1 In Worksheets 'Attempt clearance with PWord1 w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = False For Each w1 In Worksheets 'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag Or w1.ProtectContents Next w1 If ShTag Then For Each w1 In Worksheets With w1 If .ProtectContents Then On Error Resume Next Do 'Dummy do loop 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 .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 Then PWord1 = 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 If Next: 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 If MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub6\关闭编辑窗口 7\工具---宏-----宏，选AllInternalPasswords，运行，确定两次，等2分钟，再确定.OK，没有密码了 这个方法适用于03版的； & DBLSPACE & &quot.1.＂ Const ALLCLEAR As String = DBLSPACE & ＂The workbook should ＂ & _ &quot, or workbook structure or windows;workbook structure or windows; & _ ＂sheets：（你复制吧） Option ExplicitPublic Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords; & _ ＂passwords, and your computer'.1;You had a Worksheet &quot. Don't stuff up crucial formulas ＂ & _ ＂ & _ ＂Norman Harker and JE McGimpsey＂ Const HEADER As String = ＂AllInternalPasswords User Message&quot! Make me a coffee\ & _ ＂depends on how many different passwords, the &quot, don't.＂ Const MSGNOPWORDS1 As String = ＂There were no passwords on &quot.＂Version 1;Access and use of some data ＂ & _ ＂may ...

求助破解excel文件的密码软件？急用,先谢啦！

Office Passwod Remove 汉化版是一款可以瞬间破解 Wod、Excel和Access 文档密码的工具，一般情况下解密过程不超过5秒，而且操作简单，无需设置。

但是使用本软件需要连接到互联网，因为要向软件服务器发送少量的数据并解密，不过本软件不会泄露任何个人隐私，请放心使用。

下载地址：

转载请注明出处51数据库 » 破解表格保护密码软件