为您找到与excel中撤销工作表保护成灰色怎么恢复相关的共200个结果:
在Excel中录入好重要的数据以后都需要进行工作表的密码保护,或许过了段时间后数据不再重要了就可以撤销工作表保护了,可能有的朋友还不会如何撤销工作表的保护。下面是读文网小编带来的关于如何撤销excel工作表保护的方法,希望阅读过后对你有所启发!
解除密码步骤1:先录入密码,确定打开要取消密码的excel文件。
解除密码步骤2:在文件菜单下点击另存为,取消密码的办法其实就是再把文件保存一次,在保存替换原文件或重命名时将密码取消掉。
解除密码步骤3:点击工具选择常规选项
解除密码步骤4:删除密码,点击确定并保存。
解除密码步骤5:提示文件已存在要替换它吗?如果想要覆盖原文件直接点击是就替换掉了。
解除密码步骤6:如果想保留原文件重新存一份,点击否再修改文件名保存为一份新的文件。
浏览量:3
下载量:0
时间:
Excel常常用来存储很重要的数据,为了不让他人篡改,就得设置密码保护,在密码保护下的工作表,保护工作表的按钮是灰色的,接下来请欣赏读文网小编给大家网络收集整理的excel 2007保护工作表变灰色了的解决办法以及保护工作表的措施。
excel 2007保护工作表变灰色了的解决办法1:首先启动Excel2007,打开工作表,选中需要保护的区域,可以是部分也可以是整张表,点击审阅标签里面的保护工作表选项。
excel 2007保护工作表变灰色了的解决办法2:设置密码以及可执行的命令,这个根据自身要求进行选择。
excel 2007保护工作表变灰色了的解决办法3:重新输入密码,确认一遍。
excel 2007保护工作表变灰色了的解决办法4:确定之后,保护功能就生效了,我企图修改单元格的内容,弹出提示框。
excel 2007保护工作表变灰色了的解决办法5:那么我们怎么取消保护呢?很简单,单击撤销工作表保护即可。
浏览量:2
下载量:0
时间:
Excel中经常需要使用到撤销写保护的技巧,撤销些保护的技巧具体该如何操作呢?接下来是读文网小编为大家带来的excel撤销写保护的教程,供大家参考。
撤销写保护步骤1:打开要保护的excel
撤销写保护步骤2:选择“审阅”选项,可以在该页面的工具栏上看到有一个“保护工作表”的工具栏
撤销写保护步骤3:点击该按钮,打开“保护工作表”对话框。在该对话框中,需要设定一个取消保护工作表时的密码,以及保护工作表后,允许进行的操作,将允许的操作前面的复选框选中,即点击打上“√”
撤销写保护步骤4:点击“确定”按钮,弹出确定密码的对话框,输入“保护工作表”页面中设定的密码,然后点击确定
撤销写保护步骤5:此时,如果再在工作表页面中输入数据或修改数据时,会弹出该工作表被保护的提示信息。
撤销写保护步骤6:当想编辑该文档的时候,执行取消保护工作表操作就可以了。和设定保护工作表时的操作类似,打开要编辑的excel文档,选择审阅,可以看到原来“保护工作表”的工具变为“撤销保护工作表”的工具
撤销写保护步骤7:点击“撤销保护工作表”按钮,会弹出“撤销保护工作表”对话框,在编辑框中输入设定“保护工作表”时的密码,然后点击“确定”按钮
撤销写保护步骤8:回到excel工作表编辑区,发现可以编辑文档了
浏览量: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:打开已经设置密码的Excel2010文件。
撤销密码保护步骤2:在出现的密码对话框中,输入密码,单击确定后即打开文件。
撤销密码保护步骤3:单击文件-另存为。
撤销密码保护步骤4:在出现的另存为对话框中,单击左下角的工具按钮,在下拉列表中选择常规选项。
撤销密码保护步骤5:在常规选项对话框中,将打开权限密码删除,点击确定按钮。
撤销密码保护步骤6:点击另存为对话框中的保存按钮,在出现的对话框中选择“是”,替换现有文件。此时文件的密码已经删除。
撤销密码保护步骤7:关闭文件重新打开,之前设置的密码已经删除了。
浏览量:2
下载量: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
时间:
Excel中工作表区域如何设置才会被保护呢?下面是读文网小编带来的关于excel2003保护工作表区域的教程,希望阅读过后对你有所启发!
保护工作表区域步骤1:打开Excel表格将选择框点到A8位置,然后单击“工具”→“保护”→“允许用户编辑区域”
保护工作表区域步骤2:此时弹出“允许用户编辑区域”点“新建”,不要随便变动A8选项框。
保护工作表区域步骤3:在“新区域”内“标题”和“引用单元格”默认的设置不用修改,再在“区域密码”输入密码。
保护工作表区域步骤4:再次确认区域保护密码,按确定即可。
保护工作表区域步骤5:接下来在点击“保护工作表”。
保护工作表区域步骤6:在“保护工作表”当中设置“取消工作表保护时使用的密码”以便撤消保护的时候使用。
保护工作表区域步骤7:确认“取消工作表保护时使用的密码”。按确定设置完毕。
保护工作表区域步骤8:最后试图修改其中一个单元格中的内容,这时出现提示框表示区域保护成功。
保护工作表区域步骤9:如果要修改此单元格内容,必须撤消区域保护,接下来再次点击“工具”→“保护”→“撤消工作表保护”输入先前设置的保护密码即可解除。
浏览量:2
下载量: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表格中的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:依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):
再点击确定。Excel的原始密码就被清除了!!
撤销保护步骤8:最后记得关闭EXCEL文档时要保存,否则下回打开,文档仍旧处于只读状态而无法修改。
浏览量:9
下载量:0
时间:
在Excel中会经常录入一些重要的资料而不能被他人随意修改,这个时候就需要利用密码保护整个工作簿了。下面是由读文网小编分享的excel2010保护工作薄的教程,供大家阅读、学习。
保护工作簿步骤1:我们打开一个Excel文件,找到“审阅”,如下图所示。
保护工作簿步骤2:点击“审阅”后,就打开了审阅的工作区。在工作区后边很容易看到“保护共享工作簿”,如下图所示。
保护工作簿步骤3:点击“保护共享工作簿”,在弹出的对话框,对前面进行勾选,如下图所示。这里有一点的小遗憾,该程序的设置密码需要在文件下次打开的时候进行添加。如下图所示。
保护工作簿步骤4:经过如上操作的Excel工作簿,就已经完成了,共享时的保护功能。
保护工作簿步骤5:当我们再次打开该文件,或者其他审阅者需要修改该文件内容的时候,就必须添加密码才能对其进行编辑了。
浏览量:2
下载量:0
时间:
在Excel中录入一些重要的数据是大家的习惯,这些数据通常不能被他人轻易修改,这个时候就需要用到密码保护对工作表进行保护起来。下面是由读文网小编分享的excel2010保护工作表的教程,供大家阅读、学习。
保护工作表步骤1:打开一个要保护的工作表,切换至“审阅”选项卡,单击“更改”选项组中的“保护工作表”按钮,如图所示。
保护工作表步骤2:弹出“保护工作表”对话框,选中“保护工作表及锁定的单元格内容”复选框,然后在“取消工作表保护时使用的密码”文本框中输入密码,并选中“允许此工作表的所有用户进行”列表框中的“选定锁定单元格”和“选定未锁定的单元格”复选框,如图所示。
保护工作表步骤3:设置完毕单击“确定”按钮,弹出“确认密码”对话框,在“重新输入密码”文本框中输入刚刚设置的密码,如图所示,然后单击“确定”按钮
保护工作表步骤4:当用户需要编辑该工作表时,系统会弹出如图所示的提示对话框,单击“确定”按钮关闭该对话框
保护工作表步骤5:单击“更改”选项组中的“撤销工作表保护”按钮,弹出“撤销工作表保护”对话框,在“密码”文本框中输入保护的密码,单击“确定”按钮即可编辑该工作表。
浏览量:3
下载量:0
时间: