为您找到与excel带密码的表格打不开相关的共200个结果:
在网络上下载的数据文档或许有一些是需要进行密码验证的,这个时候如果没有密码不能打开文档,因此需要密码破解来完成打开文档。接下来是读文网小编为大家带来的excel表格打不开需要密码的解决方法,供大家参考。
打不开有密码解决步骤1:建一个EXCEL文件“BOOK1”,在工具栏空白位置,任意右击,选择Visual Basic项,弹出Visual Basic工具栏:
打不开有密码解决步骤2:在Visual Basic工具栏中,点击“录制”按钮,弹出“录制新宏”对话框,选择“个人宏工作簿”:
打不开有密码解决步骤3:选择“个人宏工作簿”后按确定,弹出如下“暂停”按钮,点击停止:
打不开有密码解决步骤4:在Visual Basic工具栏中,点击“编辑”按钮:
打不开有密码解决步骤5:点击“编辑”按钮后,弹出如下图的编辑界面:
找到“VBAProject(PERSONAL.XLS)-模块-模块1(也可能是模块N-其他数字)”
双击模块1-将右边代码内容清空
打不开有密码解决步骤6:复制“工作保护密码破解”代码到右边框中,点保存,然后关闭“BOOK1”
打不开有密码解决步骤7:运行需要解密的“EXCEL文件”,在Visual Basic工具栏中,点击“运行”按钮
打不开有密码解决步骤8:点击“运行”按钮后,弹出“宏”对话框,
点击运行“PERSONAL.XLS!工作保护密码破解”这个宏
打不开有密码解决步骤9:运行“PERSONAL.XLS!工作保护密码破解”这个宏后,
如下图示意就可以 解除工作表的密码保护了
(这个图,如果工作表中有多组不同密码,
每解开一组,就会提示一次,也就说可能会出现几次)
工作表保护密码破解(代码)
=========请复制以下内容=============
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表格设置密码的操作教程,希望阅读过后对你有所启发!
设置密码步骤1:打开Excel软件,点击软件右上角的【文件】按钮,点击【打开】,打开需要加密的表格;
设置密码步骤2:打开需要加密的表格后,点击:【文件】,在弹出的页面中选择【权限】;
设置密码步骤3:在【权限】下拉菜单中选择【使用密码进行加密】(大家可以根据自己的需要选择加密方式);
设置密码步骤4:点击【使用密码进行加密】后,会出现一个对话框,在对话中输入打开表格是需要输入的密码(一定输入自己常用的密码或者用记事本记录下来,密码忘记了自己也打不开了哦);
设置密码步骤5:两次密码输入完成后点击【确定】按钮,这时【权限】后面就会变成需要密码才能打开此工作薄;
设置密码步骤6:【权限】变过来后点击【保存】按钮,选择保存位置,保存完成后,打开刚刚保存的表格,这时候我们发现打开时就需要密码了。
浏览量:4
下载量:0
时间:
办公中经常会用到excel中的设置密码功能,设置密码功能可以帮助用户保护重要的数据不被破坏,如果不懂得如何使用的朋友不妨一起来探究学习一番吧,下面是读文网小编带来的关于excel表格中设置密码的教程,希望阅读过后对你有所启发!
步骤1:如果你想让别人只可以看见内容而不能更改,这样不必把密码告诉别人,那么就用第二种方法。
步骤2:打开表格后点击左上角然后选择另存为。
步骤3:选择工具-常规选项
步骤4:这时会让你输入打开权限密码和修改权限密码。
步骤5:输入密码确定后同样会提示你重新输入确定,最后保存就可以了。
步骤6:这里解释一下,打开权限密码和方法一中是一样的,就是你打开时就必须输入密码才能看到内容;而设置修改权限密码后你可以不用密码选择用只读的方式打开查看内容,想要修改就必须输入密码。
步骤7:只读方式打开后修改内容,在保存时就会提示你只能保存副本,原有的数据不会被改动。
浏览量:2
下载量:0
时间:
Excel中经常需要使用到为表格设置保护的技巧,为表格设置保护具体该如何进行操作呢?下面是读文网小编带来的关于excel表格设置密码保护的教程,希望阅读过后对你有所启发!
步骤1:在菜单栏找到工具,点击打开,然后找到保护,保护后面有4个选项,点击保护工作表;
步骤2:点击保护工作表后,弹出的窗口中下面的选项全部不用选,然后在输入密码栏输入密码,例如456,点击确定;
步骤3:在弹出窗口中重新输入密码并点击确定;
步骤4:现在在工作表内点击任何一个位置试图更改,就会出现下图所示的提示,不能够更改工作表了。
浏览量:2
下载量:0
时间:
Excel中的重要表格需要设置密码进行保护,表格具体该如何设置密码呢?下面是由读文网小编分享的excel表格设置密码的方法,以供大家阅读和学习。
设置密码步骤1:首先自然是打开excel文件,找到要操作的数据表,点击工具选项,在下拉框中选择保护,然后点击保护工作表即可(具体的操作位置可以参看下图所示)。
设置密码步骤2:然后便来到了保护加密操作界面,默认的选择项是选择锁定和未锁定单元格,即是对整个表进行保护操作,需要根据自己的情况选择需要加密的对象,然后填写密码点击确定即可完成保护数据表操作。
设置密码步骤3:再次点击数据表中的表格进行数据输入的时候,会弹出来对话框,大概意思就是你所操作的表格被保护,取消保护才能进行操作。
设置密码步骤4:如果你设置了取消保护的密码,那么取消保护的时候就需要输入你刚才设置的密码。保护表操作只会针对当前操作表,其他的表进行操作不受限制。
设置密码步骤5:这样不但可以保护表,还可以保护工作簿。
设置密码步骤6:跟保护表操作一样,只不过在它保护表的下面,具体位置不在截图,可以参看保护工作表。找到保护工作簿,点击进入,来到密码设置界面,其中有两个选择项,一个是结构,一个是窗口,根据情况进行选择。然后输入密码点击确定即可。
浏览量:2
下载量:0
时间:
Excel中经常需要使用到设置密码的功能,密码具体该如何进行设置密码呢?接下来是读文网小编为大家带来的excel表格密码设置的教程,供大家参考。
设置密码步骤1:顾名思义就是对整个excel文件进行加密处理,里面的所有表都在加密之列。首先我们需要打开我们需要加密的excel文件,再打开之前需要确认你的电脑中是否安Microsoft Excel,如果没有是不能正常打开的,一般装操作系统的时候都会装上,但是不排除有些系统并没有集成此功能,如果不能正常打开,安装excel软件即可。
设置密码步骤2:打开之后找到文件选项,点击出现下拉框,找到另存为选项(这应该都能找的到吧,小编就不在截图做说明了),点击工具选项,找到常规选项,点击进入操作界面(这里小编截图以作说明,方便大家找到具体位置)。
设置密码步骤3:接着就是我们的重头戏了,设置密码。我们需要设置的密码有两个,一个是打开excel文件的时候所需要的密码,一个是修改excel表中的数据所需要的密码,填写之后点击确定,会弹出一个再次确认密码框,再次输入密码即可,至此密码的添加已经完成,是不是很简单呀。
设置密码步骤4:完成密码设置之后我们就来看看成果吧。打开我们刚才加密过的文件,此时我们并不能直接进入文件,需要我们输入密码,输入刚才设置的密码即可,如果你也设置了修改数据密码,接着便会弹出输入修改密码对话框,我们可以输入密码进入,也可以以只读模式进入,当然只读的话不能修改表数据。
浏览量:6
下载量:0
时间:
Excel中加了密码的表格需要进行解密操作,解密具体该如何进行操作呢?下面是由读文网小编分享的excel表格取消密码保护的教程,以供大家阅读和学习。
取消密码保护步骤1:双击打开需要去掉密码的Excel表格。
取消密码保护步骤2:输入密码,打开Excel表格。
取消密码保护步骤3:点击图标,选择准备,点击加密文件
取消密码保护步骤4:删掉密码信息,然后点击确定。
取消密码保护步骤5:点击保存,保存好后。关闭再打开就不需要再输入密码。
浏览量:2
下载量:0
时间:
Excel中有密码保护的文档具体该如何进行操作才能达到取消密码保护的效果呢?接下来是读文网小编为大家带来的excel表格取消密码保护教程,供大家参考。
步骤1:在excel里点击文件,另存为命令。
步骤2:为文件指定保存地址。
步骤3:指定好保存地址和文件名后,点击工具常规选项。
步骤4:将打开权限密码或者修改权限密码删除,确定,然后保存即可。
浏览量:2
下载量:0
时间:
Excel中经常需要使用到密码解密的技术,密码具体该如何进行破解呢?下面是由读文网小编分享的excel表格内进行密码解密的教程,以供大家阅读和学习。
密码解密步骤1:这里有份加密的EXCEL文件
密码解密步骤2:接下来开始破解这个被加密保护的EXCEL文件:
密码解密步骤3:选择工具栏——宏——录制新宏
密码解密步骤4:输入宏名,如aa
密码解密步骤5:点“停止录制”得到一个空宏
密码解密步骤6:删除窗口中的所有字符,把代码工具内的代码复制进来
密码解密步骤7:选工具——宏——选allinternalpasswords,运行,确定两次
密码解密步骤8:点完2次确定后,鼠标处于等待状态,这时代码已经在后台运行处理破解中销等2-3分钟
密码解密步骤9:最后完成后,直接点确定(也是2次确定) 最后再保存,,,,一定要记得保佑,回头再来看看是否需要密码
浏览量:3
下载量:0
时间:
Excel中的表格需要用密码功能进行保护,具体该如何设置表格密码呢?接下来是读文网小编为大家带来的excel表格密码的设置教程,供大家参考。
表格密码设置步骤1:点击“工具”“选项”
表格密码设置步骤2:打开“选项”出现如下窗口点击“安全”
表格密码设置步骤3:在“打开权限密码”那里输入密码,这个密码设置后可以用唯读的方式进去查看资料,但是无法修改资料,在“修改权限密码”输入密码,这个密码设置后,一定要输入正确的密码后才可以查看与修改资料
表格密码设置步骤4:点击确定后,出现如下窗口,输入前面设置的密码后点击“确定”在保存,密码就设置OK了,不防按我所说的步骤试试
浏览量:4
下载量:0
时间:
Excel中经常需要设置密码保护表格,设置密码具体该如何操作呢?下面是由读文网小编分享的excel表格内设置密码保护的教程,以供大家阅读和学习。
设置密码保护步骤1:打开Excel2007
设置密码保护步骤2:打开一个.xls文件(或者随意创建一个文件)
设置密码保护步骤3:找到: 工具栏——审阅——更改——保护工作表
设置密码保护步骤4:在弹出的保护工作表窗口中,只需要设置密码即可。(最好是自己不会忘记或者常用的密码),然后确定
设置密码保护步骤5:确定之后会弹出一个确定密码的窗口,然后将刚刚设置的密码再次输入,然后确定。
设置密码保护步骤6:被保护的工作表,你会发现工具栏中的很多命令都是灰色,即不可使用的意思。
设置密码保护步骤7:如果在被保护的工作表中进行填写或者修改,窗口会自动跳出警告,提示无法操作。
浏览量:4
下载量:0
时间:
Excel中的表格具体该如何设置密码呢?下面是读文网小编带来的关于excel表格设置密码的教程,希望阅读过后对你有所启发!
设置密码步骤1:如果想给文档加密,使他人只能通过输入密码才能编辑、修改文档。可以考虑以下操作。好处是可以给文档分别设置打开文档密码和编辑密码,若不知道编辑密码,只能以“只读”方式看文档。
设置密码步骤2:点击“Office按钮”——“另存为”(点击)。
设置密码步骤3:“工具”——“常规设置”
设置密码步骤4:设置打开权限密码和修改权限密码,再次确认密码。
设置密码步骤5:保存文件。
设置密码步骤6:再次打开文档的时候,首先要输入打开权限密码,编辑时会提示输入密码,否则只能“只读”。
浏览量:2
下载量:0
时间:
Excel中经常需要使用到添加密码的功能,密码具体该如何添加呢?下面是读文网小编带来的关于excel给表格添加密码保护的方法,希望阅读过后对你有所启发!
添加密码保护步骤1:打开需要保护的Excel文档,单击“文件”按钮
添加密码保护步骤2:单击左边对话框中的“另存为”按钮,打开“另存为”对话框
添加密码保护步骤3:点击“工具”按钮,打开下拉工具条
添加密码保护步骤4:选择“常规选项”
添加密码保护步骤5:在常规选项框中,打开权限密码和修改权限密码中填写密码
添加密码保护步骤6:确认密码,再次输入一次刚才的密码,点击确定按钮,密码添加成功。这样密码就添加成功了。
添加密码保护步骤7:再次打开文档,弹出打开权限及修改权限的密码输入框,如果没有修改权限的密码,文档也可以按只读方式打开哦。
浏览量:6
下载量:0
时间:
Excel中的密码具体该如何进行破解呢?下面是读文网小编带来的关于excel表格密码的破解教程,希望阅读过后对你有所启发!
破解密码步骤1:新建一个EXCEL文件“BOOK1”,在工具栏空白位置,任意右击,选择Visual Basic项,弹出Visual Basic工具栏:
破解密码步骤2:在Visual Basic工具栏中,点击“录制”按钮,弹出“录制新宏”对话框,选择“个人宏工作簿”:
破解密码步骤3:选择“个人宏工作簿”后按确定,弹出如下“暂停”按钮,点击停止:
破解密码步骤4:在Visual Basic工具栏中,点击“编辑”按钮:
破解密码步骤5:点击“编辑”按钮后,弹出如下图的编辑界面:
找到“VBAProject(PERSONAL.XLS)-模块-模块1(也可能是模块N-其他数字)”
双击模块1-将右边代码内容清空
破解密码步骤6:复制“工作保护密码破解”代码到右边框中,点保存,然后关闭“BOOK1”
破解密码步骤7:运行需要解密的“EXCEL文件”,在Visual Basic工具栏中,点击“运行”按钮
破解密码步骤8:点击“运行”按钮后,弹出“宏”对话框,
点击运行“PERSONAL.XLS!工作保护密码破解”这个宏
破解密码步骤9:运行“PERSONAL.XLS!工作保护密码破解”这个宏后,
如下图示意就可以 解除工作表的密码保护了
(这个图,如果工作表中有多组不同密码,
每解开一组,就会提示一次,也就说可能会出现几次)
工作表保护密码破解(代码)
=========请复制以下内容=============
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
破解密码步骤10:End Sub
破解密码步骤11:<工作表保护密码破解放代码>是放在VBAProject(PERSONAL.XLS)[个人宏工作簿]——[模块]中的,如上图是放在红色标号2[模块1]中
浏览量:40
下载量:0
时间:
Excel中经常需要使用到取消密码的功能,密码具体该如何取消呢?下面是由读文网小编分享的excel表格取消密码的教程,以供大家阅读和学习。
取消密码步骤1:如下图所示,在打开这个Excel表格文件时提示要输入密码,下面我们来分享怎么取消这个密码
取消密码步骤2:输入文件的密码,打开这个Excel表格文件,然后点击菜单栏中的“文件”
取消密码步骤3:点击文件后就打开如下图所示的excel设置页面,在“保护工作薄”的位置可以看到加密的说明
取消密码步骤4:点击“保护工作薄”,之后在打开的菜单中选择“用密码进行加密”,如下图所示
取消密码步骤5:点击“用密码进行加密”后,打开“加密文档”的对话框,如下图所示
取消密码步骤6:删除密码下面输入框中的密码,然后点击下面的确定,这样就删除了Excel表格文件的打开密码
取消密码步骤7:回到Excel表格设置页面中,可以看到在“保护工作薄”下面的加密提示信息已经没有了,表示取消密码成功
浏览量:2
下载量:0
时间:
Excel中打不开表格具体该如何解决呢?下面是由读文网小编分享的excel2007打不开表格的教程,以供大家阅读和学习。
打不开表格解决步骤1:选择"开始"-->"打开"文件,如图:
打不开表格解决步骤2:在弹出的对话框中,选择有问题的excel文件,然后点击右下角“打开”旁边的下拉箭头,选择“打开并修复”即可。如图:
浏览量:2
下载量:0
时间:
Excel中经常需要用到密码保护的功能,具体该如何设置密码呢?下面是由读文网小编分享的excel2007表格设置密码的方法,以供大家阅读和学习。
设置密码步骤1:启动Excel表格,单击左上角office按钮,然后点击另存为按钮。
设置密码步骤2:弹出另存为对话框,设置好保存路径之后,单击工具--常规选项。
设置密码步骤3:在常规选项界面,我们可以设置权限密码了。
设置密码步骤4:为了方便众多新手,我就详细的介绍一下各个选项的作用:
勾选“生成备份文件”在设置密码同时会备份当前设置密码的文件。
设置“打开权限密码”,可以用设置的密码阅读Excel文件。
设置“修改权限密码”,可以打开和修改Excel文件。
浏览量:2
下载量:0
时间: