为您找到与excel文档怎么撤销保护相关的共200个结果:
Excel中经常需要使用到撤销写保护的技巧,撤销些保护的技巧具体该如何操作呢?接下来是读文网小编为大家带来的excel撤销写保护的教程,供大家参考。
撤销写保护步骤1:打开要保护的excel
撤销写保护步骤2:选择“审阅”选项,可以在该页面的工具栏上看到有一个“保护工作表”的工具栏
撤销写保护步骤3:点击该按钮,打开“保护工作表”对话框。在该对话框中,需要设定一个取消保护工作表时的密码,以及保护工作表后,允许进行的操作,将允许的操作前面的复选框选中,即点击打上“√”
撤销写保护步骤4:点击“确定”按钮,弹出确定密码的对话框,输入“保护工作表”页面中设定的密码,然后点击确定
撤销写保护步骤5:此时,如果再在工作表页面中输入数据或修改数据时,会弹出该工作表被保护的提示信息。
撤销写保护步骤6:当想编辑该文档的时候,执行取消保护工作表操作就可以了。和设定保护工作表时的操作类似,打开要编辑的excel文档,选择审阅,可以看到原来“保护工作表”的工具变为“撤销保护工作表”的工具
撤销写保护步骤7:点击“撤销保护工作表”按钮,会弹出“撤销保护工作表”对话框,在编辑框中输入设定“保护工作表”时的密码,然后点击“确定”按钮
撤销写保护步骤8:回到excel工作表编辑区,发现可以编辑文档了
浏览量:2
下载量:0
时间:
Excel中经常需要用到密码保护功能进行保护文档,文档加密码保护具体该如何操作呢?下面是由读文网小编分享的excel2007文档加密码保护的教程,以供大家阅读和学习。
文档加密码保护步骤1:打开文件,点击左上方的“office按钮”-“准备”-“加密文档”
文档加密码保护步骤2:在弹出的密码框中输入密码,点击确定,再次输入密码即可。
文档加密码保护步骤3:设置完成后,保存文件,然后再次打开的时候就会有输入密码的提示。
浏览量:3
下载量: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中经常需要为有重要数据的文档进行保护处理,写保护具体该如何操作呢?下面是读文网小编带来的关于excel2010文档写保护的教程,希望阅读过后对你有所启发!
文档写保护步骤1:打开一个要保护的工作表,切换至“审阅”选项卡,单击“更改”选项组中的“保护工作表”按钮,如图所示。
文档写保护步骤2:弹出“保护工作表”对话框,选中“保护工作表及锁定的单元格内容”复选框,然后在“取消工作表保护时使用的密码”文本框中输入密码,并选中“允许此工作表的所有用户进行”列表框中的“选定锁定单元格”和“选定未锁定的单元格”复选框,如图所示。
文档写保护步骤3:设置完毕单击“确定”按钮,弹出“确认密码”对话框,在“重新输入密码”文本框中输入刚刚设置的密码,如图所示,然后单击“确定”按钮
文档写保护步骤4:当用户需要编辑该工作表时,系统会弹出如图所示的提示对话框,单击“确定”按钮关闭该对话框
文档写保护步骤5:单击“更改”选项组中的“撤销工作表保护”按钮,弹出“撤销工作表保护”对话框,在“密码”文本框中输入保护的密码,单击“确定”按钮即可编辑该工作表。
浏览量:3
下载量:0
时间:
在Excel中录入好重要的数据以后都需要进行工作表的密码保护,或许过了段时间后数据不再重要了就可以撤销工作表保护了,可能有的朋友还不会如何撤销工作表的保护。下面是读文网小编带来的关于如何撤销excel工作表保护的方法,希望阅读过后对你有所启发!
解除密码步骤1:先录入密码,确定打开要取消密码的excel文件。
解除密码步骤2:在文件菜单下点击另存为,取消密码的办法其实就是再把文件保存一次,在保存替换原文件或重命名时将密码取消掉。
解除密码步骤3:点击工具选择常规选项
解除密码步骤4:删除密码,点击确定并保存。
解除密码步骤5:提示文件已存在要替换它吗?如果想要覆盖原文件直接点击是就替换掉了。
解除密码步骤6:如果想保留原文件重新存一份,点击否再修改文件名保存为一份新的文件。
浏览量:3
下载量: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中因为一些特殊的原因需要进行对受保护的Excel文档进行破解,这个时候就需要破解的技术了。接下来是读文网小编为大家带来的如何破解受保护excel文档的方法,希望对你有用。
破解保护步骤1:首先,打开受保护的Excel表格,按“ALT”+“F11”键,弹出如下的界面。
破解保护步骤2:点击“插入”——“模块”,出现下图
破解保护步骤3:打上文中的代码
破解保护步骤4:点击“F5”运行宏模块,进行密码破解,出现如下图,密码为图中的圈圈
浏览量:4
下载量:0
时间:
为了防止别人修改我们的Excel文档,我们通常都会给我们的文档设置一个保护密码,那么具体该怎么设置呢?下面读文网小编就为大家介绍一下具体的设置方法吧,欢迎大家参考和学习。
在Excel中,若要防止他人偶然或恶意更改、移动或删除Excel2003的重要数据,可以采用Excel2003保护工作表,既可使用也可不使用excel密码。
单击“工具”菜单-“保护”-“保护工作表”,打开“保护工作表”对话框,如上图所示。在“取消工作表时使用的密码”文本框中输入密码(如果不输入密码,可保持密码为空)。根据保护的类别勾选“允许此工作表的所有用户进行”列表框中的相应选项。
单击“确定”按钮,打开“确认密码”对话框,如上图所示,在“重新输入密码”文本框中再次输入密码,单击“确定”按钮,最后保存Excel 2003文件即可完成Excel2003保护工作表的设置。
浏览量:2
下载量:0
时间:
工作中,有时会出现这样的情况:用Excel编制的报表、表格、程序等,在单元格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,您可能会使用Excel的工作表保护功能,现在读文网小编给你推荐excel2007撤销保护密码的方法步骤。希望对你有帮助!
打开excel,然后打开具有自己需要加密的数据的文档。
点击右上角的图标,然后在出现的下拉菜单中选择“另存为”,然后继续选择“其他格式”。
在下一个保存的窗口中,选择保存旁边的“工具”,点击,然后在出现的下拉菜单中选择“常规选项”。
然后就在常规选项的窗口中输入打开权限的密码,然后点击确定,就加密成功了。
然后在打开刚刚的excel文档,就需要输入密码才能打开了。
浏览量:2
下载量:0
时间:
录入数据,或者打开数据,如图将两个数据放在两列中
在右上角fx处输入“=A1+B1”点击回车键
将鼠标放在C1的右下角处,
并点击鼠标左键,向下拖
放开手后,就有结果啦
浏览量:8
下载量:0
时间:
办公中经常需要把Excel文档转换成JPG的格式,或许有的朋友并不知道excel文档该如何转换成jpg格式,接下来是读文网小编为大家带来的excel文档转换成jpg格式的教程,供大家参考。
excel转换jpg步骤1:首先我们先打开excel2007工作表,打开之后我们将需要转换成图片的表格选上,选上之后单击右键,在下拉的选项里单击”复制“按钮。
excel转换jpg步骤2:单击复制按钮之后,我们将鼠标移到工作上上角的”黏贴“那里,单击黏贴按钮。
excel转换jpg步骤3:单击黏贴按钮会下拉选项,我们将鼠标移动到”以图片形式“处又会下拉选项,这时候我们单击下拉选项里的”复制为图片“按钮。
excel转换jpg步骤4:单击复制为图片按钮之后会弹出如图对话框,这时候我们单击下方的”确定“按钮即可。
excel转换jpg步骤5:单击之后我们再单击”黏贴“按钮,然后在下拉的选项里我们单击”黏贴为图片“按钮。
excel转换jpg步骤6:单击之后我们会发现,刚刚是表格形式的单元格现在已经变成图片形式了,说明我们已经操作成功了。
excel转换jpg步骤7:我们刚刚选择为”黏贴为图片“按钮之后不仅可以将这个图片黏贴到excel表格里面,还可以黏贴到word或者ppt里面,我们可以打开一个ppt试试,打开之后我们单击右键,在下拉的选项里单击”黏贴“按钮。
excel转换jpg步骤8:黏贴之后我们会发现也还是黏贴为图片,说明我们已经成功件表格转换成图片了。
浏览量:3
下载量:0
时间:
Excel中经常需要用excel文档转换为word格式的技巧,excel文档转换为word格式可以让excel直接变成word显示,如果不懂的朋友不妨一起来学习,下面是由读文网小编分享的excel文档转换为word格式的教程,以供大家阅读和学习。
excel转word步骤1:用Excel编辑好一个表格
excel转word步骤2:点击“文件”→“另存为web页”。web页就是网页文件,在“保存选项”处把“保存整个工作簿”调整成“选择:工作表”,把默认文件名"Page.mht ”根据实际情况改成你所需要的名字,再点击“保存”。注意,在改名时绝对不可以把后面的.mht去掉,只要改“.”前面的部分就可以了。
excel转word步骤3:此时在桌面上便有一个文档,如下图所示:
excel转word步骤4:右键单击该文档,选择“打开方式”,在下拉列表中选择“Microsoft Office Word”,打开该文档,如下图所示,一个完美的word文档就呈现在你面前啦!
浏览量:2
下载量:0
时间:
如果我们希望做好的Excel表格中的数据不被外人修改,或者不希望别人对Excel工作簿进行新增工作表的操作,如何利用Excel本身的功能实现上述效果呢?下面是由读文网小编分享的excel表格数据保护的方法,以供大家阅读和学习。
数据保护步骤1:打开Microsoft Office Excel 2013,点击左上角的“文件”菜单;
数据保护步骤2:在左侧弹出的的菜单中点击“打开”菜单,选择需要进行保护数据操作的Excel文件;
数据保护步骤3:如上图所示的示例文件,现在里面的所有信息都可以随便更改;
数据保护步骤4:比如需要保护Sheet1中的数据不被修改,则在底部Sheet1名称上点击鼠标右键,在弹出的快捷菜单中点击“保护工作表”菜单,则弹出保护工作表窗口,输入保护工作表的密码(也是今后取消工作表保护需要输入的密码),也就是如果别人想要修改工作表必须要知道这个密码才可以,另外设置工作表保护后其他用户对该工作表有哪些权限,最后点击“确定”按钮完成工作表保护;
数据保护步骤5:再次尝试修改Sheet1中的数据,会弹出提示信息“试图更改的单元格或图表在受保护的工作表中。”如果需要更改工作表数据,则必须撤销工作表保护;
数据保护步骤6:点击顶部菜单栏中的“审阅”,然后点击下方工具栏上的“撤销工作表保护”,会弹出撤销工作表保护窗口,在文本框中输入步骤4中设置的密码即可取消保护,再次回到表格会发现里面的数据又可以任意修改了;
数据保护步骤7:如果需要对整个工作簿进行保护,不允许用户新增工作表,则点击顶部菜单栏中的“审阅”,然后点击下方工具栏上的“保护工作簿”,同样输入密码,点击“确定”;
数据保护步骤8:点击下方的+号图标,你会发现无法添加新的工作表了;
浏览量:6
下载量:0
时间:
excel编辑好的数据表经常需要转换成word文档进行阅读,或许有很多朋友并不知道该如何转换成word文档,接下来是读文网小编为大家带来的excel转换成word文档形式的方法,供大家参考。
excel转换word步骤1:首先我们先打开需要将格式转换成word的excel文档,下图就是我们需要转换成word的文档,这时我们可以看到在表格的左上角有一个“microsoft office”图标,单击该图标会下拉选项。
excel转换word步骤2:在下拉的选项里我们将鼠标移到“另存为”处又会下拉如图所示,这时我们单击“其他格式”按钮。
excel转换word步骤3:单击之后会弹出如图对话框,这时我们单击“保存类型”后面的小倒三角形,单击之后会下拉如图所示选项,这时我们在下拉的选项里单击“单个文件网页(*mht:*mhtml)”。
excel转换word步骤4:单击之后会出现如图所示,这时我们选择后方的“选择(E)工作表”选项,选择好之后单击下方的“保存”按钮。
excel转换word步骤5:点击“保存”按钮之后我们推出excel工作表,然后去找到刚刚我们另存为“单个文件网页(*mht:*mhtml)”的文档,找到之后选上该文件,然后单击右键就会出现如图所示情况。
excel转换word步骤6:单击右键之后我们将鼠标移到“打开方式”处,然后会下拉选项,在下拉的选项里我们选择“microsoft office word”。
excel转换word步骤7:单击之后就会打开如图所示工作表,这时我们已经单击工作表左上角的“microsoft office”图标,将鼠标移到“另存为”处,在下拉的选项里选择“word文档”。
excel转换word步骤8:单击之后会弹出如图对话框,这时我们如果要改文件名的话,可以直接在“文件名”后方的输入框里面输入自己想要修改成的文件名,但是要记得,后方的“docx”不能删除哦!修改完成后,直接单击下方的“保存”按钮。
excel转换word步骤9:点击“保存”按钮之后,我们就会发现它的保存方式已经变成word的类型了,打开该文档,可以看到格式什么都没变,还是跟excel里面的一样。同理,如果word要转换成excel文档格式,用这个方法也是可以的!
浏览量:8
下载量:0
时间:
我们在平时办公时,用Excel作的工作表需要传给客户,但又不想让客户随意改动,我们就经常的把Excel工作表文件转换成PDF文档,下面是读文网小编带来的关于excel文档转换成pdf文件的教程,希望阅读过后对你有所启发!
excel转换pdf步骤1:在点击Office按钮后,选择打印,然后进行打印
excel转换pdf步骤2:弹出打印页面,找到打印机,用虚拟的ADOBE PDF打印,选好打印机后,页面范围选择全部,或者某一页,打印内容选择活动工作表,以及打印份数等
excel转换pdf步骤3:接下来的步骤基本同上面的4和5,最终也能转换成PDF文件,这两种方法可以随意选择,然后在这个页面保存就可以了
浏览量:3
下载量:0
时间: