为您找到与excel中如何取消保护相关的共200个结果:
我们开始设置了共享工作簿保护,现在我们要取消共享工作簿的保护。那么如何操作呢?下面小编教你们excel如何取消共享工作簿的保护,希望对你有帮助!
例如:在单位的人事资料,在excel中输入后,由于上级要求在原来的职称证书的号码全部再加两位,即要在每个人的证书号码前再添上两位数13,如果一个一个改的话实在太麻烦了,那么我们可以用下面的办法,省时又省力:
1)假设证书号在A列,在A列后点击鼠标右键,插入一列,为B列;
2)在B2单元格写入: ="13" & A2 后回车;
3)看到结果为 13quduwenxxxxxx 了吗?鼠标放到B2位置,单元格的下方不是有一个小方点吗,按着鼠标左键往下拖动直到结束。当你放开鼠标左键时就全部都改好了。若是在原证书号后面加13 则在B2单元格中写入:=A2 & “13” 后回车。
浏览量:2
下载量:0
时间:
我们辛苦录入的Excel工作表数据,如果因为一不小心误改了数据,那就太可惜了。所以我们对重要数据最好保护起来。下面小编教你怎么在excel中保护和取消保护工作表。
打开我们需要保护的工作表,先选中不需要保护的部分数据,如图所示,右击鼠标,选择“设置单元格格式…”。
在“保护”选项卡中,我们把“锁定”前面的勾去掉,如图所示,单击“确定”按钮。如果你的所有数据都需要保护起来,那么这前2步可以忽略。
依次单击菜单栏的“工具”--“保护”--“保护工作表…”。
在弹出的窗口中,我们设置密码(也可以不设置密码哦),注意红框处一定是勾选状态。单击“确定”按钮。
会让你确认密码,即再次输入刚才的密码,单击“确定”按钮。
这时,保护工作表已经设置完成了,如果你试图修改被保护的数据,会弹出如图提示窗口,已经不能修改被保护的数据了。
如果你修改之前设置的取消保护的部分数据,还是正常可以修改的,如图所示。
如果自己要修改原数据,该怎么办呢?那只有先撤销工作表的保护了。依次单击“工具”--“保护”--“撤销工作表保护…”,输入你之前设置的密码即可撤销保护了。
浏览量:2
下载量:0
时间:
在Excel中有很多重要的数据前期需要加上密码保护,但到后期却已经不再重要需要取消加密保护,下面是读文网小编带来的关于excel 2007取消加密保护的教程的内容,欢迎阅读!
1、打开Excel表格中的Excel选项,选择自定义,得到如下画面:
excel2007撤销保护密码的方法图1
2、然后在左边侧框栏中选择“查看宏”
之后双击或者选择添加按钮,则可以看到右边栏中有了查看宏按钮,之后点击右下角的确定。
3、大家可以在下面这个窗口处看到箭头所指的按钮:
点击按钮,之后弹出窗口:
excel2007撤销保护密码的方法图2
excel2007撤销保护密码的方法图3
4、在宏名处填写一个名字(可随意),然后点击创建,弹出以下窗口:
excel2007撤销保护密码的方法图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
-----------------------------------------------------------------------------------------
复制到横线以上
得到情况如下图表示
excel2007撤销保护密码的方法图5
6、关闭编辑窗口;
7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):
再点击确定。Excel的原始密码就被清除了!!
excel2007撤销保护密码的方法图6
8、最后记得关闭EXCEL文档时要保存,否则下回打开,文档仍旧处于只读状态而无法修改。
浏览量:2
下载量:0
时间:
在Excel中经常需要用到密码保护进行保护重要的数据,但一段时间后觉得已经并不需要密码保护了,就可以取消密码保护了。下面是读文网小编带来的关于如何取消excel密码保护的教程的内容,欢迎阅读!
取消密码步骤1:先录入密码,确定打开要取消密码的excel文件。
取消密码步骤2:在文件菜单下点击另存为,取消密码的办法其实就是再把文件保存一次,在保存替换原文件或重命名时将密码取消掉。
取消密码步骤3:点击工具选择常规选项
取消密码步骤4:删除密码,点击确定并保存。
取消密码步骤5:提示文件已存在要替换它吗?如果想要覆盖原文件直接点击是就替换掉了。
取消密码步骤6:如果想保留原文件重新存一份,点击否再修改文件名保存为一份新的文件。
Excel中取消密码的操作步骤
打开已经设置密码的Excel2010文件。
在出现的密码对话框中,输入密码,单击确定后即打开文件。
单击文件-另存为。
在出现的另存为对话框中,单击左下角的工具按钮,在下拉列表中选择常规选项。
在常规选项对话框中,将打开权限密码删除,点击确定按钮。
点击另存为对话框中的保存按钮,在出现的对话框中选择“是”,替换现有文件。此时文件的密码已经删除。
关闭文件重新打开,之前设置的密码已经删除了。
浏览量:3
下载量:0
时间:
在Excel中输入过多的重要数据时大家的习惯,这个时候就需要利用密码进行保护,到了后面发现已经不太重要了,这个时候就可以取消密码保护了,下面是由读文网小编分享的如何取消excel保护的教程,希望对你有用。
取消步骤1:首先打开Excel2010,选中任意一个单元格,然后鼠标“右键”--“设置单元格格式”
取消步骤2:在跳出的“设置单元格窗口”中选择“保护”选项卡,在这里我们可以看到默认情况下“锁定”复选框是被勾上的,说明所有单元格都是默认被勾上的
取消步骤3:那么我们要把所有单元格“锁定”的复选框的勾都取消掉先。
取消步骤4:按Ctrl+A快捷键选中所有单元格,接着再鼠标“右键”--“设置单元格格式”,选择“保护”选项卡,把“锁定”前面的小方框去勾,单击“确定”按钮保存设置
取消步骤5:然后选择需要保护的单元格区域,按上面操作去把“锁定”复选框勾上
取消步骤6:接下来选择“审阅”选项卡,在“更改”组中单击“保护工作表”
取消步骤7:在跳出来的“保护工作表”窗口中,输入密码“取消工作表保护时所需要的”,并且第一二项选勾(默认是选勾上的),确认提交
取消步骤8:下一步再次输入密码(跟上一步一样密码),确认提交
取消步骤9:完成上面步骤后,随便选一个保护的单元格双击进行编辑,就会跳出一个提示框编辑不了。
取消步骤10:保护工作表后如果自己要重新编辑了怎么办呢?这个时候要先“撤销工作表保护”
选择“审阅”选项卡,在“更改”组中单击“撤销工作表保护”,在跳出的窗口中输入“密码”,确认提交就可以取消。
我们又可以自由编辑了。
浏览量:3
下载量:0
时间:
在Excel中录入一些重要数据是很多人的习惯,但重要的数据是不能随意删除改变的,这个时候就需要用到密码保护,但过了一段时间就发现已经不需要密码了,所以需要取消密码,接下来是读文网小编为大家带来的excel2010 取消密码保护的方法,希望对你有用。
取消密码步骤1:打开已经设置密码的Excel2010文件。
取消密码步骤2:在出现的密码对话框中,输入密码,单击确定后即打开文件。
取消密码步骤3:单击文件-另存为。
取消密码步骤4:在出现的另存为对话框中,单击左下角的工具按钮,在下拉列表中选择常规选项。
取消密码步骤5:在常规选项对话框中,将打开权限密码删除,点击确定按钮。
取消密码步骤6:点击另存为对话框中的保存按钮,在出现的对话框中选择“是”,替换现有文件。此时文件的密码已经删除。
取消密码步骤7:关闭文件重新打开,之前设置的密码已经删除了。
浏览量:2
下载量:0
时间:
在Excel中有些设置了密码保护的Excel文档不再需要被密码所保护了,这个时候就需要取消密码的保护了,具体该如何取消密码保护呢?接下来是读文网小编为大家带来的excel2007 取消密码保护教程,供大家参考。
取消密码保护步骤1:点击0ffice按钮-准备-加密文档
取消密码保护步骤2:删除密码-确定
取消密码保护步骤3:取消工作表保护
取消密码保护步骤4:如果Excel2007工作表已保护起来,“保护工作表”按钮将自动变化为“取消工作表保护”,我们可以单击该按钮,再输入前面的密码即可取消保护工作表。
浏览量:3
下载量:0
时间:
在Excel中可能有很多以前重要的文档设置了密码保护,而现在却觉得不再需要密码保护了,这个时候就可以取消密码保护了,具体该如何取消呢?接下来是读文网小编为大家带来的excel2010取消保护的方法,供大家参考。
取消保护步骤1:在上面的步骤中,我们已经保护了工作表。现在我们来撤销上面的保护。
取消保护步骤2:首先,我们依次点击菜单栏上面的“审阅-撤销工作表保护”。
取消保护步骤3:然后会弹出一个“撤销工作表保护”对话框,我们输入密码,按下确定即可解除保护。
浏览量:3
下载量:0
时间:
Excel中经常需要把保护功能给取消掉,取消保护具体该如何操作呢?接下来是读文网小编为大家带来的excel2007取消保护的教程,供大家参考。
取消保护步骤1:单元格保护 默认地,所有单元格都有锁定属性,一旦将Excel2007工作表保护起来,则不能在这些单元格里输入任何数据,为此,我们得取消部分单元格的锁定属性。 首先,右键单击工作表的行、列交界处,这一操作将产生两个结果:选中所有单元格和弹出快捷菜单;然后单击“设置单元格格式”,如图13所示。
图13 准备设置单元格格式
接着,在弹出的对话框中单击“保护”以切换到该标签页,如图14所示。 图14 自定义设置 然后,勾选“锁定”和“隐藏”后单击“确定”,退出设置状态并返回Excel编辑界面。
取消保护步骤2:取消部分单元格的保护状态 选中对象单元格区域,右键单击,选择“设置单元格格式”,如图15所示;
图15 设置准备
然后按照前面的操作,清除“锁定”和“隐藏”前的钩,如图16所示。
图16 清除单元格的保护状态
取消保护步骤3:保护工作表 首先,单击“审阅”切换到该工具面板;接着,单击“保护工作表”;然后两次输入密码(两次的密码必须相同);最后单击“确定”即可,如图17所示。
图17 输入密码
取消保护步骤4:检验保护效果 在这些单元格里输入数据,会得到图18所示的拒绝对话框。这样,我们就只能在没有保护的单元格中输入数据,这样既不影响成绩统计表的正常使用,又有效地保护了工作表不被误操作破坏。 图18 部分单元格保护起来了
取消保护步骤5:取消工作表保护 如果Excel2007工作表已保护起来,“保护工作表”按钮将自动变化为“取消工作表保护”,我们可以单击该按钮,再输入前面的密码即可取消保护工作表,如图19所示。
浏览量:2
下载量:0
时间:
Excel中经常需要使用到保护功能进行保护数据,但需要取消保护的时候具体该如何操作呢?接下来是读文网小编为大家带来的excel表格取消保护的方法,供大家参考。
取消保护步骤1:视图—宏—录制新宏—输入宏名如:aa(aa是可随意输入)
取消保护步骤2:停止录制,这样得到一个空宏
取消保护步骤3:同样视图—宏—查看宏—选aa(aa为之前新建的宏)—点击编辑按钮
取消保护步骤4:删除窗口中的所有字符,复制下面的内容粘贴。一个字母、标点符号都不能少。
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
取消保护步骤5:关闭编辑窗口
取消保护步骤6:视图—宏—查看宏,选AllInternalPasswords,点击执行,确定两次,等2分钟,再确定。密码撤销完毕。
浏览量:4
下载量: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:选择“审阅”选项,可以在该页面的工具栏上看到有一个“保护工作表”的工具栏
撤销写保护步骤3:点击该按钮,打开“保护工作表”对话框。在该对话框中,需要设定一个取消保护工作表时的密码,以及保护工作表后,允许进行的操作,将允许的操作前面的复选框选中,即点击打上“√”
撤销写保护步骤4:点击“确定”按钮,弹出确定密码的对话框,输入“保护工作表”页面中设定的密码,然后点击确定
撤销写保护步骤5:此时,如果再在工作表页面中输入数据或修改数据时,会弹出该工作表被保护的提示信息。
撤销写保护步骤6:当想编辑该文档的时候,执行取消保护工作表操作就可以了。和设定保护工作表时的操作类似,打开要编辑的excel文档,选择审阅,可以看到原来“保护工作表”的工具变为“撤销保护工作表”的工具
撤销写保护步骤7:点击“撤销保护工作表”按钮,会弹出“撤销保护工作表”对话框,在编辑框中输入设定“保护工作表”时的密码,然后点击“确定”按钮
撤销写保护步骤8:回到excel工作表编辑区,发现可以编辑文档了
浏览量:2
下载量:0
时间:
excel中经常需要使用到设置密码的功能进行保护数据表,设置密码进行保护数据具体该如何进行操作呢?下面是读文网小编带来的关于excel2007设置密码保护教程,希望阅读过后对你有所启发!
步骤1:点击“Office按钮”——“准备”——“加密文档”。
步骤2:设置密码,密码分大小写。
步骤3:确认密码,保存文档,点击确定。
步骤4:再次打开文档时,提示需要输入密码才能打开。
浏览量:2
下载量:0
时间:
Excel中的重要文档需要进行加密处理,设置密码具体该如何进行操作呢?下面是由读文网小编分享的excel2007设置密码保护处理的教程,以供大家阅读和学习。
步骤1:点击“Office按钮”——“准备”——“加密文档”。
步骤2:设置密码,密码分大小写。
步骤3:确认密码,保存文档,点击确定。
步骤4:再次打开文档时,提示需要输入密码才能打开。
浏览量:2
下载量:0
时间:
在使用excel的时候会需要用到设置数据保护的技巧,设置保护可以免除病毒的侵害,如果不懂得如何使用设置数据保护技巧的朋友不妨一起来研究学习一番,下面是由读文网小编分享的excel2007设置数据保护的教程,以供大家阅读和学习。
设置数据保护步骤1:打开我们需要对单元格数据进行锁定保护的excel表格
设置数据保护步骤2:单击“审阅”栏,在点击下面的“保护工作表”
设置数据保护步骤3:在出现的“保护工作表”窗口中输入保护密码,然后根据自己需要选择要锁定保护的数据,单击确认
设置数据保护步骤4:再次输入确认密码,单击确认后单元格数据被锁定
设置数据保护步骤5:当我们想再删除这些锁定后的单元格数据时系统会提示“更改的单元格数据或图表受保护”,我们就删除不了这些受保护的数据了
设置数据保护步骤6:当我们再需要删除或修改之前的数据时就需要进行“撤销工作表保护”设置。如图,在“撤销工作表保护”窗口中输入密码,单击确认后工作表单元格数据锁定保护撤销
设置数据保护步骤7:我们就可以删除之前的数据或者再次更改需要修改的数据了
浏览量:3
下载量:0
时间:
从数据库到出.xls格式的Excel表格后,有时打开表格有时会有红色的提示表格处于保护状态,在这个状态下我们是没有办法对表格进行任何修改的,为了修改表格的内容,需要先解除表格的保护,使Excel退出“受保护的视图”接下来是读文网小编为大家带来的excel表格退出受保护视图的方法,供大家参考。
1、用数据有效性定义数据长度。
用鼠标选定你要输入的数据范围,点"数据"->"有效性"->"设置","有效性条件"设成"允许""文本长度""等于""5"(具体条件可根据你的需要改变)。
还可以定义一些提示信息、出错警告信息和是否打开中文输入法等,定义好后点"确定"。
2、用条件格式避免重复。
选定A列,点"格式"->"条件格式",将条件设成“公式=COUNTIF($A:$A,$A1)>1”,点"格式"->"字体"->"颜色",选定红色后点两次"确定"。
这样设定好后你输入数据如果长度不对会有提示,如果数据重复字体将会变成红色。
浏览量:85
下载量:0
时间:
如果我们希望做好的Excel表格中的数据不被外人修改,或者不希望别人对Excel工作簿进行新增工作表的操作,如何利用Excel本身的功能实现上述效果呢?下面是由读文网小编分享的excel表格数据保护的方法,以供大家阅读和学习。
数据保护步骤1:打开Microsoft Office Excel 2013,点击左上角的“文件”菜单;
数据保护步骤2:在左侧弹出的的菜单中点击“打开”菜单,选择需要进行保护数据操作的Excel文件;
数据保护步骤3:如上图所示的示例文件,现在里面的所有信息都可以随便更改;
数据保护步骤4:比如需要保护Sheet1中的数据不被修改,则在底部Sheet1名称上点击鼠标右键,在弹出的快捷菜单中点击“保护工作表”菜单,则弹出保护工作表窗口,输入保护工作表的密码(也是今后取消工作表保护需要输入的密码),也就是如果别人想要修改工作表必须要知道这个密码才可以,另外设置工作表保护后其他用户对该工作表有哪些权限,最后点击“确定”按钮完成工作表保护;
数据保护步骤5:再次尝试修改Sheet1中的数据,会弹出提示信息“试图更改的单元格或图表在受保护的工作表中。”如果需要更改工作表数据,则必须撤销工作表保护;
数据保护步骤6:点击顶部菜单栏中的“审阅”,然后点击下方工具栏上的“撤销工作表保护”,会弹出撤销工作表保护窗口,在文本框中输入步骤4中设置的密码即可取消保护,再次回到表格会发现里面的数据又可以任意修改了;
数据保护步骤7:如果需要对整个工作簿进行保护,不允许用户新增工作表,则点击顶部菜单栏中的“审阅”,然后点击下方工具栏上的“保护工作簿”,同样输入密码,点击“确定”;
数据保护步骤8:点击下方的+号图标,你会发现无法添加新的工作表了;
浏览量:7
下载量:0
时间: