为您找到与保护硬盘数据的最佳方法相关的共200个结果:
如果我们希望做好的Excel表格中的数据不被外人修改,或者不希望别人对Excel工作簿进行新增工作表的操作,如何利用Excel本身的功能实现上述效果呢?下面是由读文网小编分享的excel表格数据保护的方法,以供大家阅读和学习。
数据保护步骤1:打开Microsoft Office Excel 2013,点击左上角的“文件”菜单;
数据保护步骤2:在左侧弹出的的菜单中点击“打开”菜单,选择需要进行保护数据操作的Excel文件;
数据保护步骤3:如上图所示的示例文件,现在里面的所有信息都可以随便更改;
数据保护步骤4:比如需要保护Sheet1中的数据不被修改,则在底部Sheet1名称上点击鼠标右键,在弹出的快捷菜单中点击“保护工作表”菜单,则弹出保护工作表窗口,输入保护工作表的密码(也是今后取消工作表保护需要输入的密码),也就是如果别人想要修改工作表必须要知道这个密码才可以,另外设置工作表保护后其他用户对该工作表有哪些权限,最后点击“确定”按钮完成工作表保护;
数据保护步骤5:再次尝试修改Sheet1中的数据,会弹出提示信息“试图更改的单元格或图表在受保护的工作表中。”如果需要更改工作表数据,则必须撤销工作表保护;
数据保护步骤6:点击顶部菜单栏中的“审阅”,然后点击下方工具栏上的“撤销工作表保护”,会弹出撤销工作表保护窗口,在文本框中输入步骤4中设置的密码即可取消保护,再次回到表格会发现里面的数据又可以任意修改了;
数据保护步骤7:如果需要对整个工作簿进行保护,不允许用户新增工作表,则点击顶部菜单栏中的“审阅”,然后点击下方工具栏上的“保护工作簿”,同样输入密码,点击“确定”;
数据保护步骤8:点击下方的+号图标,你会发现无法添加新的工作表了;
浏览量:6
下载量:0
时间:
从数据库到出.xls格式的Excel表格后,有时打开表格有时会有红色的提示表格处于保护状态,在这个状态下我们是没有办法对表格进行任何修改的,为了修改表格的内容,需要先解除表格的保护,使Excel退出“受保护的视图”接下来是读文网小编为大家带来的excel表格退出受保护视图的方法,供大家参考。
1、用数据有效性定义数据长度。
用鼠标选定你要输入的数据范围,点"数据"->"有效性"->"设置","有效性条件"设成"允许""文本长度""等于""5"(具体条件可根据你的需要改变)。
还可以定义一些提示信息、出错警告信息和是否打开中文输入法等,定义好后点"确定"。
2、用条件格式避免重复。
选定A列,点"格式"->"条件格式",将条件设成“公式=COUNTIF($A:$A,$A1)>1”,点"格式"->"字体"->"颜色",选定红色后点两次"确定"。
这样设定好后你输入数据如果长度不对会有提示,如果数据重复字体将会变成红色。
浏览量:70
下载量:0
时间:
Excel中经常需要使用到密码保护功能,密码保护具体该如何进行设置呢?接下来是读文网小编为大家带来的excel设置密码保护的方法,供大家参考。
设置密码保护步骤1:首先鼠标点击Excel2003软件快捷方式打开软件,然后打开需要被加密的Excel文档
设置密码保护步骤2:Excel文档打开以后,在Excel2003窗口上面的菜单栏点击工具,然后工具下拉菜单的最下面鼠标点击选项
设置密码保护步骤3:点击选项以后会自动弹出选项窗口,在选项窗口的右上角有一个安全性按钮,用鼠标点击安全性按钮
设置密码保护步骤4:点击安全性按钮以后,选项窗口进入安全性设置窗口,在安全性设置窗口上面的次工作本的文件加密设置选项下设置好打开权限密码,然后点击窗口左下角的确定按钮
设置密码保护步骤5:点击确定以后会自动弹出确认密码窗口,然后再确认密码窗口下面的重新输入密码栏下面输入设置的密码,然后点击确定按钮,这样密码就设置好了。
设置密码保护步骤6:密码设置好以后点击Excel的菜单栏上面点击文件,然后再文件下拉菜单下面点击打开按钮
设置密码保护步骤7:点击打开按钮出现打开窗口,找到设定好密码的Excel文档,然后选择该文档,在点击窗口右下角的打开
设置密码保护步骤8:点击打开以后就会出现密码窗口,只要输入之前设定好的密码然后点击确定就可以打开了。
浏览量:3
下载量:0
时间:
Excel中经常需要为表格设置一些保护措施保护数据,表格数据具体该如何设置保护呢?下面是读文网小编带来的关于excel表格设置保护措施的方法,希望阅读过后对你有所启发!
设置保护步骤1:首先我们打开我们要进行设置工作表保护的工作表,如图所示:
设置保护步骤2:在上面的工具栏中找到工具菜单按钮,点击工具菜单按钮,如图所示:
设置保护步骤3:在工具菜单中找到保护功能,选择它,如图所示:
设置保护步骤4:在保护功能中有一个功能是保护工作表,找到它,如图所示:
设置保护步骤5:我们点击工作表保护功能,可以看到弹出了一个对话框,首先我们可以设置保护密码,也可以不设置,如图所示:
设置保护步骤6:在设置密码的下面我们可以看到很多的功能,系统默认勾选了前两个,如图所示:
设置保护步骤7:勾选上我们要进行限制的功能,小编勾选了如图的一些功能,点击确定;
设置保护步骤8:回到工作表中我们试一试刚刚进行限制的功能,如:删除行,如图所示,现在这个功能变成灰色并点击不了了。
浏览量:2
下载量:0
时间:
有的时候,我们从网上下载文档,被作者加了文档保护只能够浏览,却不能够修改。怎么取消文档保护呢?那么下面就由读文网小编给大家分享下解除word文档保护的技巧,希望能帮助到您。
步骤一:我们自己加密一篇word文档来破解,首先打开一篇文档。
步骤二:点工具-保护文档进行加密,设置如图。
步骤三:这时文档已经是不能复制和编辑了。
步骤四:点文件,另存为纯文本。
步骤五:编码方式选择默认
步骤六:打开保存的文档,将里面的文字复制到word就完成了
看了“怎么解除word文档保护的两种方法”此文
浏览量:5
下载量: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分钟,再确定。密码撤销完毕。
浏览量:3
下载量:0
时间:
长时间使用Word编辑和查看文档的人会觉得眼睛干涩疼痛。为了保护眼睛可以设置文档背景为柔和的豆沙绿色来代替刺眼的白底黑字。那么下面就由读文网小编给大家分享下word设置保护色的技巧,希望能帮助到您。
步骤一:右击“桌面”,从弹出的右键菜单中选择“个性化”项。
步骤二:在打开的窗口中点击下方的“窗口颜色”链接进入。
步骤三:接着点击“高级外观设置”按钮。如图所示:
步骤四:在打开的“颜色和外观”窗口中,将“项目”设置为“窗口”,点击“颜色”下拉列表,从中选择“其它”。
步骤五:在打开的“颜色”窗口中,将色调改为:85。饱和度:123。亮度:205,点击“添加到自定义颜色”,然后点击“确定”按钮即可。
步骤六:最后效果图如下:
看了“word怎么设置保护色的两种方法”此文
浏览量:4
下载量:0
时间:
有些时候为了保护我们的文档内容,我们需要为我们的文档设置密码保护功能,那么下面就由读文网小编给大家分享下word2010设置密码保护的技巧,希望能帮助到您。
步骤一:打开需要加密的文档,点击文件菜单进入信息一栏的界面。
步骤二:文件按钮的位置这里不需要多说,第一个就是,在打开的文件菜单中有一个信息的选项,点击即可显示里面相应的内容。
步骤三:进入信息界面后,点击权限一栏点击保护文档,就会进入加密文件的输入密码的界面,这时只需要输入密码即可对文件进行加密。密码需要输入两次。
步骤四:这一步并非必须,但是为了保险起见我们还是要进行相应的操作,检查一下我们的文档是否加密成功。
步骤五:如果你想要把加密的文档还原,去掉密码的话也很简单。重复上面的步骤,将密码直接清除掉,这时你会发现权限一栏又恢复到原来的样子。
浏览量:4
下载量:0
时间:
Excel中的已经录入好的公式具体该如何设置保护起来呢?接下来是读文网小编为大家带来的excel保护公式设置的方法,供大家参考。
步骤1:点击数据表的左上角,选中整个数据表,使其呈现出浅蓝色
步骤2:右键单击数据表,然后在右键菜单中,选择【设置单元格格式】
步骤3:在菜单栏上执行:开始--查找和选择--公式,选中所有的公式
步骤4:右键单击选中的单元格,然后在右键菜单中选择【设置单元格格式】
步骤5:在弹出的对话框中,切换到【保护】选项,然后勾选【锁定】,点击确定按钮
步骤6:接着在菜单栏上执行:审阅--保护工作表
步骤7:在打开的对话框中,我们设置参数如图所示,然后输入密码,点击确定
步骤8:弹出确认密码对话框,输入刚才输入的密码,然后点击确定。这样单元格内的公式就无法修改了。
步骤9:当你试图修改公式的时候,你就会看到这样的提示消息。
浏览量:3
下载量:0
时间:
Excel中经常需要使用到保护公式的功能,公式具体该如何设置才被保护起来呢?下面是读文网小编带来的关于excel设置保护公式的方法,希望阅读过后对你有所启发!
设置保护公式步骤1:首先选中表格所有数据,点击鼠标右键,点击设置单元格格式
设置保护公式步骤2:在弹出的对话框中,依次点击保护,取消选中保护和隐藏,最后点击确定
设置保护公式步骤3:依次点击右上角查找和选择,点击定位条件
设置保护公式步骤4:在弹出的的对话框中,点击公式,然后确定,自动选中了带公式的一列数据
设置保护公式步骤5:图示,点击鼠标右键,选择设置单元格格式,
设置保护公式步骤6:在弹出的的对话框中,点击保护按钮,选中锁定和隐藏,单击确定
设置保护公式步骤7:依次单击1审阅,2保护工作表,3输入密码,4重新输入密码,5确定。到此结束,大功告成了。大家可以看一下,别人没有密码是看不到也无法修改公式的,有效的保护了关键数据。
浏览量:8
下载量:0
时间:
Excel中带有公式的单元格具体该如何设置才能保护起来呢?接下来是读文网小编为大家带来的excel保护公式单元格的方法,供大家参考。
保护公式单元格步骤1:选定数据区域A’ I:M28(或任.意一个单元格)单击菜单编辑——定位(或者按组合键或功能键F5>)弹出’定位”对话框’如图
保护公式单元格步骤2:单击定位条件”按钮在弹’的定位条件对话框中选中于公式、单选按钮:如图
保护公式单元格步骤3:单击“确定”按钮关闭“定位条件”对话框再单击确定.按钮关闭“定位”对话框.这样当前所有的.含有公式.的单元格就全部被选中了
保护公式单元格步骤4:击单击菜单‘数据”有效性”打一开“数据有效性”.对话框在“设置.”选项卡中的“允许”下拉列表中选择叫自定义选项、在公式”文本框中输入0如图
保护公式单元格步骤5:切换到“出错警告”’选项卡在“样式”下拉列表一中选择.'停止选项’在“标题”文本框中输入"警告”在错误信息文本框中输入单元格含有公式.请不要修改。如图
保护公式单元格步骤6:单击:确定织.按钮关闭.数据有效性对话框
保护公式单元格步骤7:总结:通过以上步骤设置好数据有效性后,如果用户修改了公式单元格
Excel将自动弹出“警告’对话框.阻止用户输入.如图‘
浏览量:3
下载量:0
时间:
Excel中经常需要使用到密码保护的功能对文档进行保护,密码保护功能具体该如何设置呢?下面是读文网小编带来的关于excel2007设置密码保护的方法,希望阅读过后对你有所启发!
步骤1:如果想让别人打开Excel表格时就需要密码,那么点击左上角的图标,然后选择准备-加密文档。
步骤2:输入密码之后确定。
步骤3:此时会让你重新输入密码确认。
步骤4:点击保存,由于小编默认保存成Excel 97-2003版本,这里会提示是否保存成2007格式的文件来获得更高的安全性,这里选择是或者否对于一般用户来说都可以。
步骤5:关闭表格之后再次打开,这时就必须先输入密码才可以打开了。这时小编说一下,大家切记要记住自己设置的密码,否则忘了之后很难再打开。
步骤6:如果想要取消或者更换密码,那么输入密码打开文件后重复前两步,取消密码就是把原有密码删掉后确定,改密码的话直接改就可以了。
浏览量:3
下载量:0
时间:
Excel中的公式具体该如何操作才可以使得公式被保护起来呢?下面是读文网小编带来的关于excel2007保护公式的方法,希望阅读过后对你有所启发!
保护公式步骤1:首先,看一下原始数据。下表中棕色区域的数据是需要其他人填写的,紫色区域,包括抬头和下面的合计行公式都不允许修改。
保护公式步骤2:首先,查看一下紫色需要保护区域在【设置单元格格式】对话框中的【保护】选项卡下【锁定】属性是否已勾选,默认工作表都是勾选的。
保护公式步骤3:如果要保护区域的【锁定】属性已经被勾选,那么选定允许他人编辑的棕色区域,鼠标右键,选择【设置单元格格式】,将【保护】选项卡下的【锁定】属性去除。
注意:
保护公式步骤4:工作表保护状态下,只有单元格的【锁定】属性选中保护才起作用。
保护公式步骤5:点击【审阅】选项卡下的【保护工作表】按钮。
保护公式步骤6:输入适当的密码,其他默认设置不动,然后点击【确定】按钮并确认密码。
注意:
保护公式步骤7:这里列表选择的是“允许”他人执行的操作,如果勾选就是允许他人执行该操作。例如默认的选项允许他人选中保护的单元格,允许他人选中未保护的单元格。
保护公式步骤8:上述操作完毕后,再双击公式所在单元格,将弹出已被保护的对话框,不能修改。
保护公式步骤9:根据上面的操作方法,选中公式所在的单元格在编辑栏还是会出现公式,如果想连公式也隐藏起来,将【保护】选项卡下的【隐藏】也勾选即可。
保护公式步骤10:选择【隐藏】以后,在工作表保护状态公式将不可见。
保护公式步骤11:如果压根不想让对方选中公式所在的被保护单元格,可以在保护时将【选定锁定单元格】的复选框去掉,这样就无法选中被保护的公式所在单元格了。
浏览量:2
下载量:0
时间:
Excel中的数据具体该如何设置才能被保护起来呢?下面是由读文网小编分享的excel中保护数据的方法,以供大家阅读和学习。
保护数据步骤1:不同版本的Excel使用的方法大体相同。首先我们要在工具栏中找到保护工作表选项。我们需要的功能在这里可以找到。
保护数据步骤2:进入保护工作表的设置中,可以设置解除保护的密码,可以不设置,但是如果不设置密码谁都可以解除保护后修改数据了,这里我们设置密码为1,下边是数据受保护后,用户所能有的权限设置。可根据需要进行选择。设置好后,点击确定退出。
保护数据步骤3:到数据编辑界面后,当我们打算修改某个单元格的时候,就会发现弹出下图中的提示框!
保护数据步骤4:当某个拥有解除密码的用户想要修改数据时,只要点击撤销工作保护然后,收入解除密码即可。So easy!
浏览量:4
下载量:0
时间:
Excel中的公式具体该如何设置才能保护起来呢?下面是由读文网小编分享的excel保护公式的设置方法,以供大家阅读和学习。
保护公式步骤1:点击数据表的左上角,选中整个数据表,使其呈现出浅蓝色
保护公式步骤2:右键单击数据表,然后在右键菜单中,选择【设置单元格格式】
保护公式步骤3:在菜单栏上执行:开始--查找和选择--公式,选中所有的公式
保护公式步骤4:右键单击选中的单元格,然后在右键菜单中选择【设置单元格格式】
保护公式步骤5:在弹出的对话框中,切换到【保护】选项,然后勾选【锁定】,点击确定按钮
保护公式步骤6:接着在菜单栏上执行:审阅--保护工作表
保护公式步骤7:在打开的对话框中,我们设置参数如图所示,然后输入密码,点击确定
保护公式步骤8:弹出确认密码对话框,输入刚才输入的密码,然后点击确定。这样单元格内的公式就无法修改了。
保护公式步骤9:当你试图修改公式的时候,你就会看到这样的提示消息。
浏览量: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分钟,再确定。密码撤销完毕。
浏览量:3
下载量:0
时间:
Excel中的公式具体该如何操作才能够让公式保护起来呢?下面是由读文网小编分享的excel公式保护的方法,以供大家阅读和学习。
公式保护步骤1:以下图所示的简单工作表为例,首先选定公示区域
公式保护步骤2:右键设置单元格格式,点击保护菜单,发现单元格已被锁定
公式保护步骤3:在“审阅”选项卡里点击“保护工作表”,输入密码保护工作表
公式保护步骤4:然后发生什么了呢?公式区域的确被保护了,但是其它区域也编辑不了,这就郁闷了,本人刚工作做表格时就没搞清楚这是怎么回事儿,上网看各位网友说的技巧也是不太清楚为什么?后来看帮助文件什么的才算搞清楚怎么回事儿,请看下文
浏览量:10
下载量:0
时间: