为您找到与excel撤销命令相关的共200个结果:
快速访问工具栏中按钮的使用频率各不相同,如果能将经常使用的按钮放在前面,用户操作起来也会更加方便。下面小编就教你怎么调整Excel2013访问工具栏中命令的顺序。
打开任意一个工作簿,单击“文件”标签
选择“选项”命令
在弹出的“excel选项”对话框中,单击“快速访问工具栏”。
选择右侧列表框中需要调整的命令,比如我们选择“撤销”。然后单击“上移”或“下移”按钮,比如我们选择“上移”。单击确定按钮。
返回工作表后,可以看到快速访问工具栏中已经调整了“撤销”的顺序。
浏览量:2
下载量:0
时间:
有时候会忽然间不知道什么原因,在打开Excel时提示“向程序发送命令时出现问题”,导致无法正常打开Excel文件,虽然可以通过多种途径,曲线解决,但都不是长久之计。下面下编教你怎么根治这个问题。
打开Excel,弹出出现问题的对话框,不必理会,关闭,然后选择左上角的Office按钮,再选择右下角的“Excel选项”,在新弹出的对话框中选择“高级”,然后往下拖,在“常规”选项中,将“忽略使用动态交换(DDE)的其他应用程序“选项取消勾选。确定返回Excel,并关闭。
重新打开Excel,看是否可正常打开。一般情况下,执行完这两步,就可以解决问题了。如果还是不行,就接着看下一步的终究步骤。
依旧是Office按钮,”Excel选项“,这次选择”加载项“,然后点击下面的下拉菜单,选择”COM加载项“,然后点击后面的”转到“。
在弹出的新对话框中,将已勾选的取消一个,确定返回Excel,然后关闭,重新打开Excel文件,看是否正常,如果还是不正常,重复3.4步,直到可以正常打开为止。
实际这一步可以简单处理,直接将全部的取消勾选,返回Excel,再打开即可正常打开。一般来说,这些COM加载项对于正常的使用是没有啥影响的。
浏览量:2
下载量:0
时间:
Excel作为办公人员常用的软件之一,获得了世界范围的推广和使用。Excel软件依靠其强大的功能,成为一款快速、有效处理函数和公式的优秀软件。,Excel2003菜单栏就这么几个选项:文件、编辑、视图、插入、格式、工具、数据、窗口、帮助。有些常用的操作必须在很深的菜单里面才能选到,下面小编就教你怎么在excel的菜单栏中添加命令。
①启动Excel,单击菜单栏--工具--自定义。
②在自定义界面,我们单击命令标签,在类别中选择新菜单,鼠标左键按住新菜单,拖放到菜单栏中。
③拖进去之后,单击更改所选内容,重新定义选项名称。
④与上述步骤相似,我们下面把一些常用的操作拖放到新菜单的子菜单中去,这样就实现了我们的目的。
浏览量:2
下载量:0
时间:
Excel作为办公软件中常用软件,其快捷键较多,如果在办公中熟悉了快捷键,你的操作就会变得很快哦,下面由小编我将其快捷键介绍给大家啦!
【F1】 显示“帮助”任务窗格。
按【Ctrl】+【F1】可关闭并重新打开当前任务窗格。
按【Alt】+【F1】可创建当前范围中数据的图表。
按【Alt】+【Shift】+【F1】可插入新的工作表。
【F2】 编辑活动单元格并将插入点放在单元格内容的结尾。如果禁止在单元格中进行编辑,它也会将插入点移到编辑栏中。
按【Shift】+【F2】可编辑单元格批注。
【F3】 将定义的名称粘贴到公式中。
按【Shift】+【F3】将显示【插入函数】对话框。
【F4】 重复上一个命令或操作(如有可能)。
按【Ctrl】+【F4】可关闭选定的工作簿窗口。
【F5】 显示【定位】对话框。
按【Ctrl】+【F5】可恢复选定工作簿窗口的窗口大小。
【F6】 切换到已拆分(【窗口】菜单,【拆分】命令)的工作表中的下一个窗格。
按【Shift】+【F6】可切换到已拆分的工作表中的上一个窗格。
如果打开了多个工作簿窗口,则按【Ctrl】+【F6】可切换到下一个工作簿窗口。
【F7】 显示“拼写检查”对话框,以检查活动工作表或选定范围中的拼写。
如果工作簿窗口未最大化,则按【Ctrl】+【F7】可对该窗口执行【移动】命令。
使用箭头键移 动窗口,并在完成时按【Esc】。
【F8】 打开或关闭扩展模式。在扩展模式中,【EXT】将出现在状态行中,并且按箭头键可扩展选定范围。
通过按Shift+F8,您可以使用箭头键将非邻近单元格或范围添加到单元格的选定范围。
当工作簿未最大化时,按【Ctrl】+【F8】可执行大小命令(在工作簿窗口的【控制】菜单上。 按【Alt】+【F8】可显示用于运行、编辑或删除宏的【宏】对话框。
【F9】 计算所有打开的工作簿中的所有工作表。
如果先按【F9】,再按【Enter】(对于数组公式则按【Ctrl】+【Shift】+【Enter】),则会计算选定的公式部分,并将选定部分替换为计算出的值。
按【Shift】+【F9】可计算活动工作表。
浏览量:2
下载量:0
时间:
在Excel中有很多时候需要撤销上一步的操作,这个时候就需要按快捷键了,因为这样比较快,但有时候快捷键不见了,这个就需要我们自己去设置了。下面是读文网小编带来的关于excel2003添加撤销键的方法的内容,欢迎阅读!
1.打开Excel表格,选择要查找的范围。
2.选择菜单栏中的"编辑"--"替换"命令。
3.在弹出的"查找和替换"对话框中填写"查找内容"及"替换"的内容。这里我们在"查找内容"条形框中输入"男",在"替换为"的条形框中输入"女"。
4.点击"全部替换"按钮,接着会弹出已完成替换的对话框,点击"确定"按钮,并关闭"查找和替换"对话框即可。
看了excel2003添加撤销键的方法还看了:
浏览量:2
下载量:0
时间:
在Excel中经常需要用到撤销这个功能,因为有些时候下一步录入错了,只要直接撤销就快了很多可以大大提高办公效率。下面是由读文网小编分享的excel2010 撤销的方法,希望对你有用。
撤销步骤1:要重复上一项操作,请单击“快速访问”工具栏上的 “重复”。
撤销步骤2:键盘快捷方式 也可以按 Ctrl+Y。
浏览量:2
下载量:0
时间:
在Excel中录入数据的时候以后都需要用到撤销功能,因为这个功能能够快速帮助用户返回上一层操作步骤,有的时候需要撤销的太多了已经超出了Excel的限定次数,这个时候就需要我们更改一下撤销次数了。下面是由读文网小编分享的excel2013更改撤销次数的方法,以供大家阅读和学习。
更改撤销次数步骤1:单击Windows“开始”按钮,再单击“运行”,或者使用快捷键win+r,在“打开”框中键入“regedit”,单击“确定”按钮,打开“注册表编辑器”窗口。
更改撤销次数步骤2:在左边窗格中,展开 “HKEY_CURRENT_USERSoftwareMicrosoftOffice12.0ExcelOptions”分支。“12.0”是 Excel 2007对应的注册表项,如果你用的是Excel97/2000/2002/2003,那么对应的注册表项应为“8.0”、“9.0”、“10.0”或 “11.0”。最新的office10版的注册表项是14.
更改撤销次数步骤3:在右边窗格中,于空白处,单击右键,指向“新建”,单击“DWORD”,将新DWORD值命名为“UndoHistory”。
更改撤销次数步骤4:双击“UndoHistory”,打开“编辑DWORD值”对话框,单击“十进制”,然后在“数值数据”框中键入一个你希望Excel能够撤消次数的数值,比如可以键入“50”,单击“确定”按钮。
更改撤销次数步骤5:关闭“注册表编辑器”窗口。
更改撤销次数步骤6:重新启动电脑后,上述设置生效,以后你的Excel就能够还原最近的88次操作了。
浏览量: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文档时要保存,否则下回打开,文档仍旧处于只读状态而无法修改。
浏览量:8
下载量:0
时间:
在Excel中录入好重要的数据以后都需要进行工作表的密码保护,或许过了段时间后数据不再重要了就可以撤销工作表保护了,可能有的朋友还不会如何撤销工作表的保护。下面是读文网小编带来的关于如何撤销excel工作表保护的方法,希望阅读过后对你有所启发!
解除密码步骤1:先录入密码,确定打开要取消密码的excel文件。
解除密码步骤2:在文件菜单下点击另存为,取消密码的办法其实就是再把文件保存一次,在保存替换原文件或重命名时将密码取消掉。
解除密码步骤3:点击工具选择常规选项
解除密码步骤4:删除密码,点击确定并保存。
解除密码步骤5:提示文件已存在要替换它吗?如果想要覆盖原文件直接点击是就替换掉了。
解除密码步骤6:如果想保留原文件重新存一份,点击否再修改文件名保存为一份新的文件。
浏览量:2
下载量:0
时间:
在Excel中录入数据的手经常需要用到宏命令,而且宏因为在Excel中存在着安全因素,因此Excel是默认关闭的,如果想利用宏命令进行辅助录入数据,就必须要我们自行启用。下面是读文网小编带来的关于excel2010宏命令启用的方法,希望阅读过后对你有所启发!
启用宏命令步骤1:打开excel文件,就看到黄色的提示,是一个安全警告。提示宏已经被禁用,这样这个文件使用就有限制了。
启用宏命令步骤2:如果直接点击启用宏,以后就会被直接启用,如果不希望打开其他的文件时被启用,可以点击宏已被启用的链接,也可以点文件,就会看到信息里有提示【启用内容】。
启用宏命令步骤3:因为此文件不是常用,所以不想长期启用,这时只要在启动内容里点高级选项,在这里设置就可以了。选中启用此会话的内容,点确定。以后再使用此文件时便启用此宏。
启用宏命令步骤4:再看效果,此文件里的下拉菜单可以使用了。使用完成后,关闭时,记得要保存。
启用宏命令步骤5:那么其他启用宏的设置在哪里呢?点击文件菜单,在下面找到选项,点击进入。
启用宏命令步骤6:有excel选项卡里点最下面的信任中心,然后在右侧找到信任中心设置。左侧栏中有一项是宏设置。
启用宏命令步骤7:一般情况为了安全着想,应该是禁用所有宏,并发出通知,就是开始看到的那个黄色的警告。如果遇到上面那种情况也可以点击启用所有宏。但使用过后,记得把宏设置回禁用。
浏览量:2
下载量:0
时间:
在Excel中经常因为录入错误而需要进行撤销步骤的,或许有的朋友并不知道撤销功能该如何使用,如果不懂的朋友欢迎一起来学习钻研一下吧。下面是读文网小编带来的关于excel表格的撤销步骤的方法,希望阅读过后对你有所启发!
撤销步骤1:在Excel2003菜单栏依次单击“编辑”→“撤销”菜单命令,如图所示。选择“撤销”菜单命令
撤销步骤2:在Excel2003常用工具栏单击“撤销”按钮,或者单击“撤销”按钮右侧的下拉三角按钮,在打开的步骤列表中直接选择要撤销的步骤,如图所示。单击“撤销”按钮
浏览量:2
下载量:0
时间:
Excel中的表格或许有的时候需要撤销插入,表格具体该如何进行撤销插入操作呢?下面是读文网小编带来的关于excel2007撤销插入的表格方法,希望阅读过后对你有所启发!
撤销插入表格步骤1:首先用鼠标选中已经插入表格的区域。
撤销插入表格步骤2:在该区域上右击,找到“表格”选项。
撤销插入表格步骤3:在“表格”选项的子选项里,选择“转换为区域”。
撤销插入表格步骤4:这时弹出来一个“Excel”的对话框,“是否将表转换为普通区域”,点击“是”。
撤销插入表格步骤5:设置完成后,可以看到之前插入表的区域已经变成普通的区域了。
浏览量: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:首先用鼠标选中已经插入表格的区域。
撤销插入表格步骤2:在该区域上右击,找到“表格”选项。
撤销插入表格步骤3:在“表格”选项的子选项里,选择“转换为区域”。
撤销插入表格步骤4:这时弹出来一个“Excel”的对话框,“是否将表转换为普通区域”,点击“是”。
撤销插入表格步骤5:设置完成后,可以看到之前插入表的区域已经变成普通的区域了。
浏览量:2
下载量:0
时间:
Excel中的密码具体该如何撤销保护呢?下面是读文网小编带来的关于excel2010撤销密码保护的教程,希望阅读过后对你有所启发!
撤销密码保护步骤1:打开已经设置密码的Excel2010文件。
撤销密码保护步骤2:在出现的密码对话框中,输入密码,单击确定后即打开文件。
撤销密码保护步骤3:单击文件-另存为。
撤销密码保护步骤4:在出现的另存为对话框中,单击左下角的工具按钮,在下拉列表中选择常规选项。
撤销密码保护步骤5:在常规选项对话框中,将打开权限密码删除,点击确定按钮。
撤销密码保护步骤6:点击另存为对话框中的保存按钮,在出现的对话框中选择“是”,替换现有文件。此时文件的密码已经删除。
撤销密码保护步骤7:关闭文件重新打开,之前设置的密码已经删除了。
浏览量: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中经常要把不需要的函数给撤销了,撤销函数具体该如何操作呢?下面是由读文网小编分享的excel撤销函数的方法,以供大家阅读和学习。
步骤:将原有的数据全选,然后在原来的位置,选择性粘贴,粘贴为数值,这样就可以随便复制粘贴了。
浏览量:3
下载量:0
时间:
Excel中经常需要使用到撤销写保护的技巧,撤销些保护的技巧具体该如何操作呢?接下来是读文网小编为大家带来的excel撤销写保护的教程,供大家参考。
撤销写保护步骤1:打开要保护的excel
撤销写保护步骤2:选择“审阅”选项,可以在该页面的工具栏上看到有一个“保护工作表”的工具栏
撤销写保护步骤3:点击该按钮,打开“保护工作表”对话框。在该对话框中,需要设定一个取消保护工作表时的密码,以及保护工作表后,允许进行的操作,将允许的操作前面的复选框选中,即点击打上“√”
撤销写保护步骤4:点击“确定”按钮,弹出确定密码的对话框,输入“保护工作表”页面中设定的密码,然后点击确定
撤销写保护步骤5:此时,如果再在工作表页面中输入数据或修改数据时,会弹出该工作表被保护的提示信息。
撤销写保护步骤6:当想编辑该文档的时候,执行取消保护工作表操作就可以了。和设定保护工作表时的操作类似,打开要编辑的excel文档,选择审阅,可以看到原来“保护工作表”的工具变为“撤销保护工作表”的工具
撤销写保护步骤7:点击“撤销保护工作表”按钮,会弹出“撤销保护工作表”对话框,在编辑框中输入设定“保护工作表”时的密码,然后点击“确定”按钮
撤销写保护步骤8:回到excel工作表编辑区,发现可以编辑文档了
浏览量:2
下载量:0
时间: