为您找到与excel如何撤销密码保护相关的共200个结果:
Excel中的密码具体该如何撤销保护呢?下面是读文网小编带来的关于excel2010撤销密码保护的教程,希望阅读过后对你有所启发!
撤销密码保护步骤1:打开已经设置密码的Excel2010文件。
撤销密码保护步骤2:在出现的密码对话框中,输入密码,单击确定后即打开文件。
撤销密码保护步骤3:单击文件-另存为。
撤销密码保护步骤4:在出现的另存为对话框中,单击左下角的工具按钮,在下拉列表中选择常规选项。
撤销密码保护步骤5:在常规选项对话框中,将打开权限密码删除,点击确定按钮。
撤销密码保护步骤6:点击另存为对话框中的保存按钮,在出现的对话框中选择“是”,替换现有文件。此时文件的密码已经删除。
撤销密码保护步骤7:关闭文件重新打开,之前设置的密码已经删除了。
浏览量:2
下载量:0
时间:
Excel中的重要文档需要进行加密处理,设置密码具体该如何进行操作呢?下面是由读文网小编分享的excel2007设置密码保护处理的教程,以供大家阅读和学习。
步骤1:点击“Office按钮”——“准备”——“加密文档”。
步骤2:设置密码,密码分大小写。
步骤3:确认密码,保存文档,点击确定。
步骤4:再次打开文档时,提示需要输入密码才能打开。
浏览量:2
下载量:0
时间:
excel中经常需要使用到设置密码的功能进行保护数据表,设置密码进行保护数据具体该如何进行操作呢?下面是读文网小编带来的关于excel2007设置密码保护教程,希望阅读过后对你有所启发!
步骤1:点击“Office按钮”——“准备”——“加密文档”。
步骤2:设置密码,密码分大小写。
步骤3:确认密码,保存文档,点击确定。
步骤4:再次打开文档时,提示需要输入密码才能打开。
浏览量:2
下载量:0
时间:
Excel中经常需要使用到撤销写保护的技巧,撤销些保护的技巧具体该如何操作呢?接下来是读文网小编为大家带来的excel撤销写保护的教程,供大家参考。
撤销写保护步骤1:打开要保护的excel
撤销写保护步骤2:选择“审阅”选项,可以在该页面的工具栏上看到有一个“保护工作表”的工具栏
撤销写保护步骤3:点击该按钮,打开“保护工作表”对话框。在该对话框中,需要设定一个取消保护工作表时的密码,以及保护工作表后,允许进行的操作,将允许的操作前面的复选框选中,即点击打上“√”
撤销写保护步骤4:点击“确定”按钮,弹出确定密码的对话框,输入“保护工作表”页面中设定的密码,然后点击确定
撤销写保护步骤5:此时,如果再在工作表页面中输入数据或修改数据时,会弹出该工作表被保护的提示信息。
撤销写保护步骤6:当想编辑该文档的时候,执行取消保护工作表操作就可以了。和设定保护工作表时的操作类似,打开要编辑的excel文档,选择审阅,可以看到原来“保护工作表”的工具变为“撤销保护工作表”的工具
撤销写保护步骤7:点击“撤销保护工作表”按钮,会弹出“撤销保护工作表”对话框,在编辑框中输入设定“保护工作表”时的密码,然后点击“确定”按钮
撤销写保护步骤8:回到excel工作表编辑区,发现可以编辑文档了
浏览量:2
下载量:0
时间:
Excel中经常需要使用到为表格设置保护的技巧,为表格设置保护具体该如何进行操作呢?下面是读文网小编带来的关于excel表格设置密码保护的教程,希望阅读过后对你有所启发!
步骤1:在菜单栏找到工具,点击打开,然后找到保护,保护后面有4个选项,点击保护工作表;
步骤2:点击保护工作表后,弹出的窗口中下面的选项全部不用选,然后在输入密码栏输入密码,例如456,点击确定;
步骤3:在弹出窗口中重新输入密码并点击确定;
步骤4:现在在工作表内点击任何一个位置试图更改,就会出现下图所示的提示,不能够更改工作表了。
浏览量:3
下载量:0
时间:
Excel中经常要把不需要的函数给撤销了,撤销函数具体该如何操作呢?下面是由读文网小编分享的excel撤销函数的方法,以供大家阅读和学习。
步骤:将原有的数据全选,然后在原来的位置,选择性粘贴,粘贴为数值,这样就可以随便复制粘贴了。
浏览量:4
下载量:0
时间:
Excel中经常需要使用到密码保护功能,密码保护具体该如何进行设置呢?接下来是读文网小编为大家带来的excel设置密码保护的方法,供大家参考。
设置密码保护步骤1:首先鼠标点击Excel2003软件快捷方式打开软件,然后打开需要被加密的Excel文档
设置密码保护步骤2:Excel文档打开以后,在Excel2003窗口上面的菜单栏点击工具,然后工具下拉菜单的最下面鼠标点击选项
设置密码保护步骤3:点击选项以后会自动弹出选项窗口,在选项窗口的右上角有一个安全性按钮,用鼠标点击安全性按钮
设置密码保护步骤4:点击安全性按钮以后,选项窗口进入安全性设置窗口,在安全性设置窗口上面的次工作本的文件加密设置选项下设置好打开权限密码,然后点击窗口左下角的确定按钮
设置密码保护步骤5:点击确定以后会自动弹出确认密码窗口,然后再确认密码窗口下面的重新输入密码栏下面输入设置的密码,然后点击确定按钮,这样密码就设置好了。
设置密码保护步骤6:密码设置好以后点击Excel的菜单栏上面点击文件,然后再文件下拉菜单下面点击打开按钮
设置密码保护步骤7:点击打开按钮出现打开窗口,找到设定好密码的Excel文档,然后选择该文档,在点击窗口右下角的打开
设置密码保护步骤8:点击打开以后就会出现密码窗口,只要输入之前设定好的密码然后点击确定就可以打开了。
浏览量:3
下载量:0
时间:
Excel中的重要数据经常需要设置密码保护,密码保护具体该如何设置呢?下面是由读文网小编分享的excel2007设置密码保护的教程,以供大家阅读和学习。
步骤1:点击“Office按钮”——“准备”——“加密文档”。
步骤2:设置密码,密码分大小写。
步骤3:确认密码,保存文档,点击确定。
步骤4:再次打开文档时,提示需要输入密码才能打开。
浏览量:8
下载量:0
时间:
Excel中加了密码的表格需要进行解密操作,解密具体该如何进行操作呢?下面是由读文网小编分享的excel表格取消密码保护的教程,以供大家阅读和学习。
取消密码保护步骤1:双击打开需要去掉密码的Excel表格。
取消密码保护步骤2:输入密码,打开Excel表格。
取消密码保护步骤3:点击图标,选择准备,点击加密文件
取消密码保护步骤4:删掉密码信息,然后点击确定。
取消密码保护步骤5:点击保存,保存好后。关闭再打开就不需要再输入密码。
浏览量:2
下载量:0
时间:
Excel中有密码保护的文档具体该如何进行操作才能达到取消密码保护的效果呢?接下来是读文网小编为大家带来的excel表格取消密码保护教程,供大家参考。
步骤1:在excel里点击文件,另存为命令。
步骤2:为文件指定保存地址。
步骤3:指定好保存地址和文件名后,点击工具常规选项。
步骤4:将打开权限密码或者修改权限密码删除,确定,然后保存即可。
浏览量:2
下载量:0
时间:
Excel中经常需要用到密码保护功能进行保护文档,文档加密码保护具体该如何操作呢?下面是由读文网小编分享的excel2007文档加密码保护的教程,以供大家阅读和学习。
文档加密码保护步骤1:打开文件,点击左上方的“office按钮”-“准备”-“加密文档”
文档加密码保护步骤2:在弹出的密码框中输入密码,点击确定,再次输入密码即可。
文档加密码保护步骤3:设置完成后,保存文件,然后再次打开的时候就会有输入密码的提示。
浏览量:3
下载量:0
时间:
Excel中经常需要使用到密码保护功能进行保护数据,Excel文档具体该如何设置密码保护呢?下面是由读文网小编分享的excel设密码保护的教程,以供大家阅读和学习。
设置密码保护步骤1:保护工作簿即设置打开Excel的打开密码,通过给工作簿设置密码可以保证信息的安全性,给指定的人进行分享,而没有密码权限的人即使获得Excel也无法查看。
设置密码保护步骤2:打开Excel——文件——信息——保护工作簿
设置密码保护步骤3:用密码进行加密
设置密码保护步骤4:加密文档
设置密码保护步骤5:确认密码
设置密码保护步骤6:设置完成确认
设置密码保护步骤7:检验
设置密码保护步骤8:重新打开Excel,设置完成后,重新启动会提示输入密码
浏览量:3
下载量:0
时间:
Excel中经常需要使用到密码保护的功能对文档进行保护,密码保护功能具体该如何设置呢?下面是读文网小编带来的关于excel2007设置密码保护的方法,希望阅读过后对你有所启发!
步骤1:如果想让别人打开Excel表格时就需要密码,那么点击左上角的图标,然后选择准备-加密文档。
步骤2:输入密码之后确定。
步骤3:此时会让你重新输入密码确认。
步骤4:点击保存,由于小编默认保存成Excel 97-2003版本,这里会提示是否保存成2007格式的文件来获得更高的安全性,这里选择是或者否对于一般用户来说都可以。
步骤5:关闭表格之后再次打开,这时就必须先输入密码才可以打开了。这时小编说一下,大家切记要记住自己设置的密码,否则忘了之后很难再打开。
步骤6:如果想要取消或者更换密码,那么输入密码打开文件后重复前两步,取消密码就是把原有密码删掉后确定,改密码的话直接改就可以了。
浏览量:3
下载量:0
时间:
Excel中经常需要设置密码保护表格,设置密码具体该如何操作呢?下面是由读文网小编分享的excel表格内设置密码保护的教程,以供大家阅读和学习。
设置密码保护步骤1:打开Excel2007
设置密码保护步骤2:打开一个.xls文件(或者随意创建一个文件)
设置密码保护步骤3:找到: 工具栏——审阅——更改——保护工作表
设置密码保护步骤4:在弹出的保护工作表窗口中,只需要设置密码即可。(最好是自己不会忘记或者常用的密码),然后确定
设置密码保护步骤5:确定之后会弹出一个确定密码的窗口,然后将刚刚设置的密码再次输入,然后确定。
设置密码保护步骤6:被保护的工作表,你会发现工具栏中的很多命令都是灰色,即不可使用的意思。
设置密码保护步骤7:如果在被保护的工作表中进行填写或者修改,窗口会自动跳出警告,提示无法操作。
浏览量:4
下载量:0
时间:
Excel中经常需要使用到添加密码的功能,密码具体该如何添加呢?下面是读文网小编带来的关于excel给表格添加密码保护的方法,希望阅读过后对你有所启发!
添加密码保护步骤1:打开需要保护的Excel文档,单击“文件”按钮
添加密码保护步骤2:单击左边对话框中的“另存为”按钮,打开“另存为”对话框
添加密码保护步骤3:点击“工具”按钮,打开下拉工具条
添加密码保护步骤4:选择“常规选项”
添加密码保护步骤5:在常规选项框中,打开权限密码和修改权限密码中填写密码
添加密码保护步骤6:确认密码,再次输入一次刚才的密码,点击确定按钮,密码添加成功。这样密码就添加成功了。
添加密码保护步骤7:再次打开文档,弹出打开权限及修改权限的密码输入框,如果没有修改权限的密码,文档也可以按只读方式打开哦。
浏览量:6
下载量:0
时间:
Excel中的密码保护具体该如何设置呢?下面是由读文网小编分享的excel2003设置密码保护的方法,以供大家阅读和学习。
设置密码保护步骤1:新建一个excel表格文档,在这个表格文档中你可以建多张表,因为在设置密码后其它表格也是有效的。
设置密码保护步骤2:点击顶部菜单栏中的“工具”然后展开有个“选项”子菜单,点击子菜单。
设置密码保护步骤3:进入该对话框中,可以看到有个“安全性”,点击安全性可以看到有个“打开权限密码”这时候输入密码。
设置密码保护步骤4:输入密码后,点击“确认”会弹出一个密码确认框,再次输入密码后即可。
设置密码保护步骤5:关闭Excel表格,并且保存,再打开Excel文档的时候就会出现输入密码的对话框,这时候密码设置就成功了。
浏览量:3
下载量:0
时间:
Excel中经常需要把保护给取消掉,具体该如何把保护取消呢?下面是由读文网小编分享的excel2007撤销保护的教程,以供大家阅读和学习。
撤销保护步骤1:2007版Excel表格中可以按照以下方式建宏:
撤销保护步骤2:打开Excel表格中的Excel选项,选择自定义,得到如下画面:
撤销保护步骤3:然后在左边侧框栏中选择“查看宏”
之后双击或者选择添加按钮,则可以看到右边栏中有了查看宏按钮,之后点击右下角的确定。
撤销保护步骤4:大家可以在下面这个窗口处看到箭头所指的按钮:
点击按钮,之后弹出窗口:
撤销保护步骤5:在宏名处填写一个名字(可随意),然后点击创建,弹出以下窗口:
撤销保护步骤6:将窗口内的内容全选后删除,然后将下面分割线以内的内容开始复制粘贴在上面的窗口内:
从横线下开始复制
------------------------------------------------------------------------------------------
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
.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 Sub
-----------------------------------------------------------------------------------------
撤销保护步骤7:复制到横线以上
得到情况如下图表示
撤销保护步骤8:关闭编辑窗口;
撤销保护步骤9:依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
撤销保护步骤10:等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):
撤销保护步骤11:再点击确定。Excel的原始密码就被清除了!!
撤销保护步骤12:最后记得关闭EXCEL文档时要保存,否则下回打开,文档仍旧处于只读状态而无法修改。
浏览量:2
下载量:0
时间:
Excel中的保护设置具体该如何撤销呢?下面是读文网小编带来的关于excel2007撤销保护教程,希望阅读过后对你有所启发!
撤销保护步骤1:打开Excel表格中的Excel选项,选择自定义,得到如下画面:
撤销保护步骤2:然后在左边侧框栏中选择“查看宏”
之后双击或者选择添加按钮,则可以看到右边栏中有了查看宏按钮,之后点击右下角的确定。
撤销保护步骤3:大家可以在下面这个窗口处看到箭头所指的按钮:
点击按钮,之后弹出窗口:
撤销保护步骤4:在宏名处填写一个名字(可随意),然后点击创建,弹出以下窗口:
撤销保护步骤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
.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 Sub
-----------------------------------------------------------------------------------------
撤销保护步骤6:复制到横线以上
撤销保护步骤7:得到情况如下图表示
撤销保护步骤8:关闭编辑窗口;
撤销保护步骤9:依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
撤销保护步骤10:等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):
撤销保护步骤11:再点击确定。Excel的原始密码就被清除了!!
撤销保护步骤12:最后记得关闭EXCEL文档时要保存,否则下回打开,文档仍旧处于只读状态而无法修改。
浏览量:2
下载量:0
时间: