为您找到与excel文档取消加密相关的共200个结果:
在用Excel办公的时候经常会需要把重要的数据录入到Excel但却不想让他人随意篡改,这时候就需要对文档进行加密了,下面是由读文网小编分享的excel 2010文档加密的方法,希望对你有用。
步骤1:打来一个工作簿,点击左上角的文件 “文件”选择“另存为”,在弹出的另存为面板的下方选择“工具”再点击“常规选项(G)”如下图示。
步骤2:选择常规选项
拉下来就进入设置密码啦,下这里我们有两个选项,一个是打开权限密码,一个是修改权限密,设置打开权限就是当打开这个工簿时要输入密码才能进入工作簿,设置修改就是可以打开这个工作簿想要修改就要输入密码。你可以打开与修改两个都设密,也可以按你的实际需要来加密。
Excel2010加密方法
步骤3:输入你的密码点“确定”弹出如下图确认你的密码,重复输入你的密码确认完后就可以保存完成对工作簿的加密了。
步骤4:确认Excel2010加密
保护工作表
步骤1:当设完密码后,想要对工作表做修改或输放内容就要选“撤消工作表的保护”才能修改。
步骤2:在审阅项中还有一个保护工作簿的选项,这个选项中有两个小选项,一个是结构,第二个是只对窗口的保护。
步骤3:我们进行结构保护,结果就如下图所做的对比。
结构保护
以上两张图很明显看出,保护了的许多工作表的选项不能进行操作。
第二个是窗口保护。保护的窗口如下图窗口是这样的,你想改变就必须要撤消对窗口的保护。
浏览量:2
下载量:0
时间:
在Excel中有太多的朋友都因为习惯而把重要的数据都录入进去,这个时候就需要对文档进行加密保护了,下面是由读文网小编分享的excel2013文档加密的教程,希望对你有用。
加密步骤1:打击表格左上角的“文件”按钮
加密步骤2:在“信息”选项中,点击“保护工作簿”的下拉菜单,选择菜单中的“用密码进行加密”
加密步骤3:输入密码,点击“确定”按钮
加密步骤4:重新输入密码以确认密码,点击“确定”,“保存”后设置完成
加密步骤5:再次打开文档的时候就会出现输入密码的界面
浏览量:3
下载量:0
时间:
现在貌似大多数公司里面使用的都还是Word2007,但公司有些文件是机密,你懂的,怎么样保护好这些机密的文件不外泄呢?有办法不外传当然是最好的,一般公司都会有相关规定。但不怕一万,就怕万一,如果真的不小心外传了又该怎么办?那么下面就由读文网小编为您分享下给文档加密和取消密的技巧,希望能帮助您。
步骤一:输入密码打开文档后,点击左上角的office。点击准备,点击加密文档,如图。
步骤二:把输入的密码取消后,点击确定,这时密码取消了,关闭文档,再重新打开时,不需要输入密码了。
浏览量:3
下载量:0
时间:
在EXCEL中录入过多的重要数据就需要进行数据保护,或许还有朋友对文档加密还不太懂的。接下来是读文网小编为大家带来的如何给excel文档加密的方法,供大家参考。
文档加密步骤1:启动Excel2010,打开需要进行加密的文件,然后单击菜单栏--文件--信息保护工作簿--用密码进行加密。
文档加密步骤2:弹出加密文档对话框,输入你要设定的密码,点击确定按钮。
文档加密步骤3:重新输入一遍密码,注意区分英文字母大小写,确保2次输入一致。
文档加密步骤4:按下确定按钮之后,密码就设定完成了,可以看到权限里面的文字说明更改了,需要密码才能打开文件。大家要牢记密码,避免不必要的麻烦。
浏览量:2
下载量:0
时间:
在Excel中录入重要的数据都是大家的习惯了,这个时候为了不让他人随意篡改就必须给Excel文档加密,具体要怎么做呢?接下来是读文网小编为大家带来的如何excel文档加密的方法,供大家参考。
文档加密步骤1:保护单元格即保护单元格内容,保护表格,防止编辑修改,仅用于查看。
文档加密步骤2:打开Excel——文件——信息——保护工作簿——保护当前工作表
文档加密步骤3:填写密码
文档加密步骤4:选择自己要保护的内容
文档加密步骤5:确认密码
文档加密步骤6:设置完成确认
文档加密步骤7:检验
文档加密步骤8:尝试输入或修改单元格内容,将显示提示信息,无法变动。
浏览量:3
下载量:0
时间:
在Excle中录入过多重要数据的时候经常需要进行加密处理,或许过了一段时间过后就忘记了密码,这个时候就需要进行解密方式了。或许有的朋友并不知道加密文档该如何解密,如果不懂的朋友欢迎一起来探讨研究一番吧。下面是读文网小编带来的关于excel怎么解密加密的文档方法,希望阅读过后对你有所启发!
解密加密步骤1:首先,打开受保护的Excel表格,按“ALT”+“F11”键,弹出如下的界面。
解密加密步骤2:点击“插入”——“模块”,出现下图
解密加密步骤3:打入文中的代码,粘贴到空白区域;
解密加密步骤4:点击“F5”运行宏模块,进行密码破解,出现如下图,密码为图中的圈圈
解密加密步骤5:经过以上的步骤,此Excel的表格的密码已经自动除去,好了,现在你可以插入你可爱的图片啦!
浏览量:4
下载量: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 " & _
#p#副标题#e#
"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:当以后打开已加密的文档时,输入所设的密码,确认,就可编辑内容了!
浏览量:2
下载量:0
时间:
Excel中如何为2003Excel文档加密处理呢?下面是由读文网小编分享的excel2003文档加密的教程,以供大家阅读和学习。
步骤1:选择“工具”菜单的“选项”命令,如图所示:
步骤2:在弹出的“选项”对话框中选择“安全性”选项卡,可以为当前工作簿设置“打开权限密码”及“修改权限密码”,设置完成后单击“确定”按钮,如图所示:
步骤3:当重新打开文件时就要求输入密码,如果密码不正确,文件将不能打开。
浏览量:2
下载量:0
时间:
Excel中经常需要对重要数据的文档进行加密,具体该如何为文档加密呢?下面是由读文网小编分享的excel2003文档加密的方法,以供大家阅读和学习。
文档加密步骤1:打开你要加密的excel2003文档
文档加密步骤2:点击【工具】选项,然后选择【选项】
文档加密步骤3:在【选项】下选择【安全性】,有个【此工作簿的文件加密设置】
文档加密步骤4:在【打开权限密码】后的输入框中输入密码
文档加密步骤5:然后【确定】加密成功,下一次再打开文档时就需要密码了
浏览量:2
下载量:0
时间:
Excel中加密功能具体该如何使用呢?接下来是读文网小编为大家带来的excel2003文档加密,供大家参考。
文档加密步骤1:下载安装office2003,网上有很多破解资源,office2003最新版的是SP3。
文档加密步骤2:依次点击工具->选项->安全性,如图所示。
文档加密步骤3:在打开文件时的密码框中输入密码,点击确定按钮后再次输入,最后确定,加密成功。
文档加密步骤4:再次打开刚刚加密的excel文件,就会提示你输入密码,如图
浏览量:3
下载量:0
时间:
Excel中的加密文档有时候需要进行解密处理,但是很多人不知道怎么操作,不要着急,小编告诉你excel表格加密文档的解密教程,希望阅读过后对你有所启发!
加密文档解密步骤1:打开您需要破解的Excel文件,如图所示:
加密文档解密步骤2:依次点击菜单栏上的工具---宏----录制新宏;
加密文档解密步骤3:输入宏名字(PS:打击积极性啊!)如:易尔拓,然后停止录制(这样得到一个空宏,为后面添加vb代码做准备);
加密文档解密步骤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:依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,执行,确定两次;
耐心等一会,再点击两次确定,就ok啦!
浏览量: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:依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
步骤9:等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):
步骤10:再点击确定。Excel的原始密码就被清除了!!
步骤11:最后记得关闭EXCEL文档时要保存,否则下回打开,文档仍旧处于只读状态而无法修改。
看了excel2007取消加密功能的教程还看了:
浏览量:2
下载量:0
时间:
Excel中经常需要使用到为表格取消加密的技巧,加了密码的表格具体该如何进行解密呢?下面是由读文网小编分享的excel表格取消加密的教程,以供大家阅读和学习。
取消加密步骤1:在excel里点击文件,另存为命令。
取消加密步骤2:为文件指定保存地址。
取消加密步骤3:指定好保存地址和文件名后,点击工具常规选项。
取消加密步骤4:将打开权限密码或者修改权限密码删除,确定,然后保存即可。
浏览量:3
下载量:0
时间:
Excel中经常需要使用到加密功能对重要的文档进行加密,文档加密具体该如何操作呢?接下来是读文网小编为大家带来的excel2007文档加密教程,供大家参考。
文档加密步骤1:打开你需要加密的excel文档,点击“文件”,选择“另存为”,如下图一
图一
文档加密步骤2:选择另存为“excel工作簿”;
文档加密步骤3:在“另存为”界面选择“工具(L)”,在工具菜单选择“常规选项(G)”,如下图二
图二
文档加密步骤4:“常规选项(G)”中输入密码,如下图三。其中打开权限密码和修改权限密码分别设置就可以了。
图三
文档加密步骤5:保存文件。
文档加密步骤6:打开刚刚保存的文件,出现,输入密码对话框,在对话框里输入对应密码就可以了。见下图四。
图四
浏览量:3
下载量:0
时间:
Excel中经常需要用到密码保护功能进行保护文档,文档加密码保护具体该如何操作呢?下面是由读文网小编分享的excel2007文档加密码保护的教程,以供大家阅读和学习。
文档加密码保护步骤1:打开文件,点击左上方的“office按钮”-“准备”-“加密文档”
文档加密码保护步骤2:在弹出的密码框中输入密码,点击确定,再次输入密码即可。
文档加密码保护步骤3:设置完成后,保存文件,然后再次打开的时候就会有输入密码的提示。
浏览量:3
下载量:0
时间:
Excel中已经加了密码的文档具体该如何操作才能把加了密码的文档给取消加密呢?下面是读文网小编带来的关于excel取消加密的方法,希望阅读过后对你有所启发!
步骤1:先录入密码,确定打开要取消密码的excel文件。
步骤2:在文件菜单下点击另存为,取消密码的办法其实就是再把文件保存一次,在保存替换原文件或重命名时将密码取消掉。
步骤3:点击工具选择常规选项
步骤4:删除密码,点击确定并保存。
步骤5:提示文件已存在要替换它吗?如果想要覆盖原文件直接点击是就替换掉了。
步骤6:如果想保留原文件重新存一份,点击否再修改文件名保存为一份新的文件。
浏览量:4
下载量:0
时间: