为您找到与excel怎么破解工作表保护相关的共200个结果:
Excel中经常需要使用到某些软件把工作簿密码给破解了,工作簿的密码具体该如何进行破解呢?下面是由读文网小编分享的excel2007工作簿密码破解的教程,以供大家阅读和学习。
工作簿密码破解步骤1:点击“Access密码破解”标签,进入如图所示的窗口,点击“浏览”按钮选择要破解的Access文件(注意:未注册版“浏览”按钮不可用,你可以在文本框中输入文件路径和文件名,并且要输入后缀名)。
工作簿密码破解步骤2:点击“开始”按钮就可以穷举密码了。点击“暂停”按钮可以暂停程序的运行。如果点击“停止并保存”按钮则可停止程序的运行,并且保存进度,下次可以接着当前进度破解。调入进度的方法是点击工具栏上的“设置”按钮加载进度即可。找到密码时会显示在进度文本框中。
工作簿密码破解步骤3:点击“开始”按钮就可以穷举密码了。点击“暂停”按钮可以暂停程序的运行。如果点击“停止并保存”按钮则可停止程序的运行,并且保存进度,下次可以接着当前进度破解。调入进度的方法是点击工具栏上的“设置”按钮加载进度即可。找到密码时会显示在进度文本框中。
工作簿密码破解步骤4:如果得出的密码不正确,可以尝试选中“使用暴力破解”选项,然后再点“破解”按钮。
工作簿密码破解步骤5:如果还是不行的话,请再选中“尝试更多密码”就可以了。不过破解速度会很慢!
浏览量:2
下载量:0
时间:
Excel中经常需要使用到工作簿保护的功能,工作簿具体该如何被保护起来呢?下面是由读文网小编分享的excel2007工作簿保护的设置方法,以供大家阅读和学习。
工作簿保护设置步骤1:打开Excel2007,在“审阅”下选择“保护工作簿”,在展开的下拉菜单中点击打开“保护结构和窗口”。
工作簿保护设置步骤2:在弹出的小窗口里,勾选“结构”和“窗口”,然后设置密码,最后点击确定。
工作簿保护设置步骤3:再次输入刚才的密码,点击确定,即可启动保护工作表功能了。(注意:区分大小写哦)
工作簿保护设置步骤4:我们来试试,右键点击下面任意一个sheet工作表图标,弹出的菜单中:关于工作表的操作都变成灰色了,无法进行操作。
工作簿保护设置步骤5:双击工作表图标时,会弹出“工作簿有保护,不能更改”。
工作簿保护设置步骤6:撤销保护工作簿时,过程也是一样的,依次打开:“审阅—保护工作簿—保护结构和窗口”。
工作簿保护设置步骤7:在弹出的“撤销工作簿保护”的小窗口输入密码,就可以取消保护工作簿啦。
浏览量:3
下载量:0
时间:
Excel中的工作表对象具体该如何进行保护呢?下面是读文网小编带来的关于excel2003保护excel工作表对象的方法,希望阅读过后对你有所启发!
保护工作表对象步骤1:首先打开Excel2003,把需要进行保护的工作表导入进去,点击菜单栏--工具--保护--保护工作表。
保护工作表对象步骤2:这时,会出现下图所示的界面,根据自己的需要进行勾选,然后可以设置密码。
保护工作表对象步骤3:按下确定键之后会让你重新输入一遍密码。
保护工作表对象步骤4:单元格保护成功,我们可以点击单元格,企图修改里面的内容,可想而知,是不行的,出现系统提示。
浏览量:3
下载量:0
时间:
Excel中经常需要使用到保护功能保护工作表,保护功能具体该如何保护工作表呢?接下来是读文网小编为大家带来的excel2003保护工作表的做法,供大家参考。
保护工作表步骤1:打开我们需要进行保护的工作表,对工作表中要进行保护(即无法更改)的数据单元格进行选择,如下图,我们选择A1:D11;
保护工作表步骤2:点击“工具”菜单,找到“选项”,在选项中进行相应的设置,在选项中找到“安全性”选项卡,如下图,我们可以在“打开权限”和“修改权限”中输入相应的密码,我们先输入修改权限密码,设置好后点击“确定”;
保护工作表步骤3:我们需要对选定的单元格进行保护设置,我们打开“格式”菜单,找到“单元格”,打开“单元格格式”对话框;如下图;
保护工作表步骤4:我们切换到“保护”选项卡, 在“锁定”复选框前勾选,完成设置之后,点击“确定”按钮,如下图;
保护工作表步骤5:我们再次找到“工具”菜单, 找到“保护”-“保护工作表”,如下图1;打开“保护工作表”对话框,在里面进行相应设置,如下图2;
保护工作表步骤6:我们只勾选“选定未锁定的单元格”,意思就是用户只有“选定未锁定的单元格”,锁定了的是不可以选定的,也就是被保护了。设置好后输入一个密码,以便有权限的用户可以进行更改;
保护工作表步骤7:输入密码后进行确定,将会提示再次输入一次密码,以防密码输入错误而自己记不清楚,如下图所示;
保护工作表步骤8:现在编辑这张工作表时将出现下面的对话框,说明没有权限进行编辑。说明工作表已经被保护了。
浏览量:2
下载量:0
时间:
Excel中经常需要破解某些保护才能查看到自己想要看的数据,破解保护到底该如何做到呢?接下来是读文网小编为大家带来的excel2010保护破解的方法,供大家参考。
破解保护步骤1: 首先备份工作簿,以防万一。
破解保护步骤2:修改工作簿文件的扩展名为zip。
破解保护步骤3:解压该压缩文件。
破解保护步骤4:找到代表目标工作表的XML文件(在xlworksheets文件夹中)。
破解保护步骤5:使用任一XML编辑器打开代表目标工作表的xml文档。
破解保护步骤6:找到“sheetProtection”标签并移除该标签所在的行。
破解保护步骤7:保存已编辑的XML文档,用其取代原Zip文件中相应的XML文档。
破解保护步骤8:将文件的扩展名修改回xlsx。
破解保护步骤9:至此,工作表保护已解除。
浏览量:2
下载量:0
时间:
Excel中的保护密码具体该如何破解呢?下面是读文网小编带来的关于excel2007保护密码破解的教程,希望阅读过后对你有所启发!
破解密码步骤1:Office Password Unlocker是一个简单、易用、功能强劲可以直接同时恢复Office文档打开密码和修改密码的office密码破解软件!
破解密码步骤2:Office Password Unlocker支持Office 97到2007系列所有版本的Microsoft Word、Excel、Access和PowerPoint。
破解密码步骤3:提供三种模式(暴力破解、带掩码的暴力破解和字典破解)来加强对上述Office系列文档密码的恢复,并且可以根据实际需要来对字典进行定制。
破解密码步骤4:提供无可匹敌比其它程序快一倍的最大密码恢复速度,不管密码的长度如何和有多复杂,它都可以及时有效地为你恢复。
浏览量:2
下载量:0
时间:
Excel中工作表区域如何设置才会被保护呢?下面是读文网小编带来的关于excel2003保护工作表区域的教程,希望阅读过后对你有所启发!
保护工作表区域步骤1:打开Excel表格将选择框点到A8位置,然后单击“工具”→“保护”→“允许用户编辑区域”
保护工作表区域步骤2:此时弹出“允许用户编辑区域”点“新建”,不要随便变动A8选项框。
保护工作表区域步骤3:在“新区域”内“标题”和“引用单元格”默认的设置不用修改,再在“区域密码”输入密码。
保护工作表区域步骤4:再次确认区域保护密码,按确定即可。
保护工作表区域步骤5:接下来在点击“保护工作表”。
保护工作表区域步骤6:在“保护工作表”当中设置“取消工作表保护时使用的密码”以便撤消保护的时候使用。
保护工作表区域步骤7:确认“取消工作表保护时使用的密码”。按确定设置完毕。
保护工作表区域步骤8:最后试图修改其中一个单元格中的内容,这时出现提示框表示区域保护成功。
保护工作表区域步骤9:如果要修改此单元格内容,必须撤消区域保护,接下来再次点击“工具”→“保护”→“撤消工作表保护”输入先前设置的保护密码即可解除。
浏览量:3
下载量:0
时间:
Excel中的工作簿该如何设置才能保护呢?下面是读文网小编带来的关于excel2007保护工作薄的教程,希望阅读过后对你有所启发!
保护工作簿步骤1:首先我们选定深蓝色区域,右键单击“设置单元格格式”|“保护”。
保护工作簿步骤2:接着再打开保护选项卡中勾选“锁定”
保护工作簿步骤3:此时我们发现,深蓝色区域是锁定的,而肉色区域是非锁定的,此时选择保护工作表。
保护工作簿步骤4:选择“选定未锁定的单元格”选项,确定后,再次输入密码,确定。
保护工作簿步骤5:此时,工作表保护已经完成,再编辑的时候需要输入密码了。
浏览量:3
下载量:0
时间:
在Excel中录入好重要的数据,为了不让人随便篡改必须给文档进行保护,这个时候就需要利用到密码保护功能。下面是由读文网小编分享的excel2003保护工作表的教程,以供大家阅读和学习。
保护工作表步骤1:打开我们需要进行保护的工作表,对工作表中要进行保护(即无法更改)的数据单元格进行选择,如下图,我们选择A1:D11;
保护工作表步骤2:点击“工具”菜单,找到“选项”,在选项中进行相应的设置,在选项中找到“安全性”选项卡,如下图,我们可以在“打开权限”和“修改权限”中输入相应的密码,我们先输入修改权限密码,设置好后点击“确定”;
保护工作表步骤3:我们需要对选定的单元格进行保护设置,我们打开“格式”菜单,找到“单元格”,打开“单元格格式”对话框;如下图;
保护工作表步骤4:我们切换到“保护”选项卡, 在“锁定”复选框前勾选,完成设置之后,点击“确定”按钮,如下图;
保护工作表步骤5:我们再次找到“工具”菜单, 找到“保护”-“保护工作表”,如下图1;打开“保护工作表”对话框,在里面进行相应设置,如下图2;
保护工作表步骤6:我们只勾选“选定未锁定的单元格”,意思就是用户只有“选定未锁定的单元格”,锁定了的是不可以选定的,也就是被保护了。设置好后输入一个密码,以便有权限的用户可以进行更改;
保护工作表步骤7:输入密码后进行确定,将会提示再次输入一次密码,以防密码输入错误而自己记不清楚,如下图所示;
保护工作表步骤8:现在编辑这张工作表时将出现下面的对话框,说明没有权限进行编辑。说明工作表已经被保护了。
浏览量:2
下载量:0
时间:
在Excel中录入好重要的数据以后都需要进行工作表的密码保护,或许过了段时间后数据不再重要了就可以撤销工作表保护了,可能有的朋友还不会如何撤销工作表的保护。下面是读文网小编带来的关于如何撤销excel工作表保护的方法,希望阅读过后对你有所启发!
解除密码步骤1:先录入密码,确定打开要取消密码的excel文件。
解除密码步骤2:在文件菜单下点击另存为,取消密码的办法其实就是再把文件保存一次,在保存替换原文件或重命名时将密码取消掉。
解除密码步骤3:点击工具选择常规选项
解除密码步骤4:删除密码,点击确定并保存。
解除密码步骤5:提示文件已存在要替换它吗?如果想要覆盖原文件直接点击是就替换掉了。
解除密码步骤6:如果想保留原文件重新存一份,点击否再修改文件名保存为一份新的文件。
浏览量:3
下载量:0
时间:
在Excel中会经常录入一些重要的资料而不能被他人随意修改,这个时候就需要利用密码保护整个工作簿了。下面是由读文网小编分享的excel2010保护工作薄的教程,供大家阅读、学习。
保护工作簿步骤1:我们打开一个Excel文件,找到“审阅”,如下图所示。
保护工作簿步骤2:点击“审阅”后,就打开了审阅的工作区。在工作区后边很容易看到“保护共享工作簿”,如下图所示。
保护工作簿步骤3:点击“保护共享工作簿”,在弹出的对话框,对前面进行勾选,如下图所示。这里有一点的小遗憾,该程序的设置密码需要在文件下次打开的时候进行添加。如下图所示。
保护工作簿步骤4:经过如上操作的Excel工作簿,就已经完成了,共享时的保护功能。
保护工作簿步骤5:当我们再次打开该文件,或者其他审阅者需要修改该文件内容的时候,就必须添加密码才能对其进行编辑了。
浏览量:2
下载量:0
时间:
在Excel中经常录入重要数据的朋友都知道,如果想要数据不被篡改只能为表格添加密码保护,但有时候却忘记了密码,这个时候就需要用到破解密码的方法了,下面是读文网小编带来的关于excel破解表格保护密码的方法,欢迎阅读!
破解表格保护步骤1:这里有份加密的EXCEL文件
破解表格保护步骤2:选择工具栏——宏——录制新宏
破解表格保护步骤3:输入宏名,如aa
破解表格保护步骤4:点“停止录制”得到一个空宏
破解表格保护步骤5:删除窗口中的所有字符,把代码工具内的代码复制进来
破解表格保护步骤6:选工具——宏——选allinternalpasswords,运行,确定两次
破解表格保护步骤7:点完2次确定后,鼠标处于等待状态,这时代码已经在后台运行处理破解中销等2-3分钟
最后完成后,直接点确定(也是2次确定) 最后再保存,,,,一定要记得保佑,回头再来看看是否需要密码
浏览量:2
下载量:0
时间:
在Excel中录入一些重要的数据是大家的习惯,这些数据通常不能被他人轻易修改,这个时候就需要用到密码保护对工作表进行保护起来。下面是由读文网小编分享的excel2010保护工作表的教程,供大家阅读、学习。
保护工作表步骤1:打开一个要保护的工作表,切换至“审阅”选项卡,单击“更改”选项组中的“保护工作表”按钮,如图所示。
保护工作表步骤2:弹出“保护工作表”对话框,选中“保护工作表及锁定的单元格内容”复选框,然后在“取消工作表保护时使用的密码”文本框中输入密码,并选中“允许此工作表的所有用户进行”列表框中的“选定锁定单元格”和“选定未锁定的单元格”复选框,如图所示。
保护工作表步骤3:设置完毕单击“确定”按钮,弹出“确认密码”对话框,在“重新输入密码”文本框中输入刚刚设置的密码,如图所示,然后单击“确定”按钮
保护工作表步骤4:当用户需要编辑该工作表时,系统会弹出如图所示的提示对话框,单击“确定”按钮关闭该对话框
保护工作表步骤5:单击“更改”选项组中的“撤销工作表保护”按钮,弹出“撤销工作表保护”对话框,在“密码”文本框中输入保护的密码,单击“确定”按钮即可编辑该工作表。
浏览量:3
下载量:0
时间:
在Excel中录入好重要数据之后都有可能需要进行密码保护,如果还不懂如何设置的朋友不妨学习一下。下面是由读文网小编分享的excel表格中保护工作簿的设置方法,希望对你有用。
保护工作簿步骤1:点击“工具”,选择“保护”-“保护工作薄”。
保护工作簿步骤2:勾选“结构”、“窗口”,输入密码(可以不需要),按确认;再次输入密码,按确认。
保护工作簿步骤3:保护工作薄后,无法对工作表进行移动、添加、删除、隐藏、重命名等行为。
浏览量:2
下载量:0
时间:
在Excel中进行破解密码保护主要是为了拿会重要的数据,这个做法其实都很常用,如果不会的朋友可以学习一番,下面是读文网小编带来的关于如何破解excel密码保护的教程,欢迎阅读!
破解Excel密码步骤1:新建一个EXCEL文件“BOOK1”,在工具栏空白位置,任意右击,选择Visual Basic项,弹出Visual Basic工具栏:
破解Excel密码步骤2:在Visual Basic工具栏中,点击“录制”按钮,弹出“录制新宏”对话框,选择“个人宏工作簿”:
破解Excel密码步骤3:选择“个人宏工作簿”后按确定,弹出如下“暂停”按钮,点击停止:
破解Excel密码步骤4:在Visual Basic工具栏中,点击“编辑”按钮:
破解Excel密码步骤5:点击“编辑”按钮后,弹出如下图的编辑界面:
破解Excel密码步骤6:找到“VBAProject(PERSONAL.XLS)-模块-模块1(也可能是模块N-其他数字)”
破解Excel密码步骤7:双击模块1-将右边代码内容清空
破解Excel密码步骤8:复制“工作保护密码破解”代码到右边框中,点保存,然后关闭“BOOK1”
破解Excel密码步骤9:运行需要解密的“EXCEL文件”,在Visual Basic工具栏中,点击“运行”按钮
破解Excel密码步骤10:点击“运行”按钮后,弹出“宏”对话框,
破解Excel密码步骤11:点击运行“PERSONAL.XLS!工作保护密码破解”这个宏
破解Excel密码步骤12:运行“PERSONAL.XLS!工作保护密码破解”这个宏后,
破解Excel密码步骤13:如下图示意就可以 解除工作表的密码保护了
(这个图,如果工作表中有多组不同密码,
破解Excel密码步骤14:每解开一组,就会提示一次,也就说可能会出现几次)
工作表保护密码破解(代码)
=========请复制以下内容=============
Public Sub 工作表保护密码破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:McCormick JE McGimpsey "
Const HEADER As String = "工作表保护密码破解"
Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & " hfhzi3—戊冥 整理"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
& DBLSPACE & "注意:不要用在不当地方,要尊重他人的劳动成果!"
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String = "确保为唯一的?"
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
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 & ZHENGLI, vbInformation, HEADER
End Sub
<工作表保护密码破解放代码>是放在VBAProject(PERSONAL.XLS)[个人宏工作簿]——[模块]中的,如上图是放在红色标号2[模块1]中
浏览量:3
下载量:0
时间:
在Excel中设置表格保护是经常有的情况,但是如果万一忘记了表格保护的密码,数据就要不回来了,这个时候就需要动用一些技术把表格保护给破解了,接下来是读文网小编为大家带来的excel破解表格保护的方法,希望对你有用。
破解保护步骤1:新建宏 录制新宏随便输入个名字如hong 点击“确定”按钮
破解保护步骤2:点击“停止录制”按钮或从菜单“停止录制”宏
破解保护步骤3:选择刚才所建的宏然后点击“编辑”按钮,会弹出代码编写窗口
破解保护步骤4:填写代码将下面的代码全部复制必替换原来的字符,填写完毕后关闭该窗口
//这里十分感谢原作者,因为经实践,确实好用。
Public Sub 工作表保护密码破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:圣天"
Const HEADER As String = "工作表保护密码破解"
Const VERSION As String = DBLSPACE & "版本 Version1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE &" quduwen"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存"_
& DBLSPACE & "注意:不要用在不当地方,要尊重他人的劳动成果!"
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
Const MSGPWORDFOUND1 As String = "密码重新组合为:"& DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const MSGPWORDFOUND2 As String = "密码重新组合为:"& DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String = "确保为唯一的?"
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 InWorksheets
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
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 InWorksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 InWorksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 InWorksheets
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 InWorksheets
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 & ZHENGLI,vbInformation, HEADER
End Sub
破解保护步骤5:最后就来执行刚才所建的宏工具-宏-宏点击执行等带小段时间之后就可以看到效果了
浏览量:2
下载量:0
时间:
在Excel中因为一些特殊的原因需要进行对受保护的Excel文档进行破解,这个时候就需要破解的技术了。接下来是读文网小编为大家带来的如何破解受保护excel文档的方法,希望对你有用。
破解保护步骤1:首先,打开受保护的Excel表格,按“ALT”+“F11”键,弹出如下的界面。
破解保护步骤2:点击“插入”——“模块”,出现下图
破解保护步骤3:打上文中的代码
破解保护步骤4:点击“F5”运行宏模块,进行密码破解,出现如下图,密码为图中的圈圈
浏览量:4
下载量:0
时间: