excel2019工作表如何撤销保护

合集下载

取消excel保护的方法图解步骤

取消excel保护的方法图解步骤

取消excel保护的方法图解步骤推荐文章excel中取消宏的方法步骤热度: Excel提示由于本机的限制该操作已被取消如何解决热度: excel取消只读模式的详细图解教程热度:取消excel密码保护的方法教程热度:excel取消共享的方法步骤详解热度:在Excel中输入过多的重要数据时大家的习惯,这个时候就需要利用密码进行保护,到了后面发现已经不太重要了,这个时候就可以取消密码保护了,下面是由店铺分享的如何取消excel保护的教程,希望对你有用。

取消excel保护的教程取消步骤1:首先打开Excel2010,选中任意一个单元格,然后鼠标“右键”--“设置单元格格式”取消步骤2:在跳出的“设置单元格窗口”中选择“保护”选项卡,在这里我们可以看到默认情况下“锁定”复选框是被勾上的,说明所有单元格都是默认被勾上的取消excel保护的教程步骤图2取消步骤3:那么我们要把所有单元格“锁定”的复选框的勾都取消掉先。

取消步骤4:按Ctrl+A快捷键选中所有单元格,接着再鼠标“右键”--“设置单元格格式”,选择“保护”选项卡,把“锁定”前面的小方框去勾,单击“确定”按钮保存设置取消excel保护的教程步骤图3取消步骤5:然后选择需要保护的单元格区域,按上面操作去把“锁定”复选框勾上取消excel保护的教程步骤图4取消步骤6:接下来选择“审阅”选项卡,在“更改”组中单击“保护工作表”取消excel保护的教程步骤图5取消步骤7:在跳出来的“保护工作表”窗口中,输入密码“取消工作表保护时所需要的”,并且第一二项选勾(默认是选勾上的),确认提交取消excel保护的教程步骤图6取消步骤8:下一步再次输入密码(跟上一步一样密码),确认提交取消excel保护的教程步骤图7取消步骤9:完成上面步骤后,随便选一个保护的单元格双击进行编辑,就会跳出一个提示框编辑不了。

取消excel保护的教程步骤图8取消步骤10:保护工作表后如果自己要重新编辑了怎么办呢?这个时候要先“撤销工作表保护”选择“审阅”选项卡,在“更改”组中单击“撤销工作表保护”,在跳出的窗口中输入“密码”,确认提交就可以取消。

excel表格如何解除保护密码

excel表格如何解除保护密码

excel表格如何解除保护密码
在Excel中录入过多的重要数据是人们的习惯,因此这些文件都需要利用密码进行保护。

但过了段时间以后却觉得不需要进行保护。

就需要解除密码保护了。

接下来店铺举例简单的例子告诉大家解除excel 表格密码保护的方法。

解除excel表格密码保护的方法
解除密码步骤1:先录入密码,确定打开要取消密码的excel文件。

解除密码步骤2:在文件菜单下点击另存为,取消密码的办法其实就是再把文件保存一次,在保存替换原文件或重命名时将密码取消掉。

解除密码步骤3:点击工具选择常规选项
解除密码步骤4:删除密码,点击确定并保存。

解除密码步骤5:提示文件已存在要替换它吗?如果想要覆盖原文件直接点击是就替换掉了。

解除密码步骤6:如果想保留原文件重新存一份,点击否再修改文件名保存为一份新的文件。

excel取消工作表保护的方法

excel取消工作表保护的方法

excel取消工作表保护的方法
要取消Excel工作表的保护,您可以按照以下步骤进行操作:
1. 打开您想要取消保护的工作表。

2. 在Excel菜单栏中选择“审阅”选项卡。

3. 在“审阅”选项卡中,找到并点击“取消工作表保护”按钮。

4. 如果工作表受密码保护,系统将提示您输入密码。

5. 输入正确的密码,然后点击“确定”。

6. 如果密码正确,工作表的保护将被取消,您现在可以对工作
表进行编辑和修改。

另外,如果您忘记了工作表的密码,可以尝试使用一些第三方
工具来解除密码保护。

但请注意,使用第三方工具可能存在安全风险,因此请谨慎使用。

总之,取消Excel工作表的保护非常简单,只需要按照上述步骤进行操作即可。

希望这些信息能够帮助到您。

excel 考勤表 撤销保护密码 的方法

excel 考勤表 撤销保护密码  的方法

excel表--考勤表“撤销保护密码”的方法2019新工作中,有时会出现这样的情况:用Excel编制的报表、表格、程序等,在单元格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,可能会使用Excel的工作表保护功能,但时间久了保护密码容易忘记,有时从网上下载的Excel格式的小程序,想修改,但是作者加了工作表保护密码,也有时候,公司下载考勤表的时候,考勤机自带根据时间自由变换的密码,下载的考勤也会有密码,下面就拉看看office中excel“撤销保护密码”的方法吧!方法:●1、双击打开需要破解保护密码的Excel文件●2、依次点击菜单栏上的视图----宏----录制宏●3、输入宏名字如: 宏1(名字可随意起,起错了有提示)点击确定●4、依次点击菜单栏上的视图---宏----停止录制●5、依次点击菜单栏上的视图---宏----查看宏●6、选择“考勤1”点击编辑●7、将窗口内的内容全选后删除●8、然后将下面分割线以内的内容开始复制粘贴在上面的窗口内:从横线下开始复制--------------------复----------------制----------------横-------------线----------------------------------------------------以------------------------------------下-----------------------------------------Option ExplicitPublic 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 passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 & VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " & _"workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _"protected with the password that was just found." & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim 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 StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For 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 ThenPWord1 = 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, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For 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 ThenPWord1 = 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 sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADEREnd Sub--------------------复----------------制----------------横-------------线----------------------------------------------------以------------------------------------上-----------------------------------------得到情况如下:●9、保存以下,关闭编辑窗口●10、依次点击菜单栏上的视图-----宏-----查看宏●11、选AllInternalPasswords,执行●12、点击“确定”三次,这是第三次的确定图●13、最后记得要保存一下,否则下次开还是保护状态,撤销成功了,可以随意改动了。

Excel撤销工作表保护密码图文教程介绍

Excel撤销工作表保护密码图文教程介绍

r workbooks by same person who " & _"set this password." & DBLSPACE &
"Now to check and clear " & _"other passwords." & AUTHORS & VERSIONCo
nst MSGonLYONE As String="only structure / windows " & _"protected wit
rotection, 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.
or i1=65 To 66For i2=65 To 66: For i3=65 To 66: For i4=65 To 66For i5=
65 To 66: For i6=65 To 66: For n=32 To 126With ActiveWorkbook.Unprotec
t Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _C

Excel表的保护与撤销

Excel表的保护与撤销

1、固定资产折旧表由于公式比较复杂,我已对表格公式进行保护,下面将如何撤销与增加
保护简要说明。

2、表的保护的撤销:
2.1在工具选项,工具—保护—撤销工作表保护,点击“撤销工作表保护(P)”。

2.2 输入密码000(三个零),点击确定。

这时,可以看到原本隐藏的公式已经重新显现,行隐藏功能等也可以使用了(此功能用于打印折旧表时隐藏多余的行),说明已经撤销了表的保护。

3、表的保护的增加:
3.1在编辑选项,编辑—定位,单击“定位(G)”。

3.2 在弹出的定位框中,单击“定位条件(S)”按钮。

3.3 在弹出的定位条件选项框中,点击“公式(F)”选项,点击确定。

3.4 这时可以看到原本有公式的单元格已经自动选中,点击工具选项,工具—保护—保护工作表,点击“保护工作表(P)”。

3.5 在弹出的保护工作表中,输入密码000(三个零)【密码可以自己设置】,点击“确定”按钮。

3.6 在弹出的确认密码框中,再次输入000(三个零),点击“确定”按钮。

3.7 这时可以看到,原本已经显现的含有公式的单元格已被锁定,另外行隐藏功能也不能使用,说明表的保护已经设置成功。

4、需要时表的保护与撤销功能请大家自行切换。

如何解除excel保护的方法

如何解除excel保护的方法

如何解除excel保护的方法
在Excel中经常需要用到密码保护对重要数据的文档进行保护,但时间久了觉得不重要就需要解除保护。

下面是店铺带来的关于如何解除excel保护的方法,欢迎阅读!
如何解除excel保护的方法:
解除保护步骤1:如果再在工作表页面中输入数据或修改数据时,会弹出该工作表被保护的提示信息。

解除保护步骤2:当想编辑该文档的时候,执行取消保护工作表操作就可以了。

和设定保护工作表时的操作类似,打开要编辑的excel文档,选择审阅,可以看到原来“保护工作表”的工具变为“撤销保护工作表”的工具
解除保护步骤3:点击“撤销保护工作表”按钮,会弹出“撤销保护工作表”对话框,在编辑框中输入设定“保护工作表”时的密码,然后点击“确定”按钮。

取消保护工作簿的方法

取消保护工作簿的方法

取消保护工作簿的方法Excel 是微软 Office 办公套件中的一员,是一款专业的优质的表格处理软件,它的安全性也很高。

大部分人都在使用它,有时候也会用于保护文档内容,防止他人篡改。

其实,取消保护Excel 工作簿也是很简单的,接下来就给大家介绍几种方法。

首先,要取消保护 Excel 工作簿,需要知道它被保护的密码。

只有输入正确的密码,才能够取消工作簿的保护。

如果无法记起密码,则需要使用 Excel 的密码恢复功能,可以使用多种破解工具来穷举出可能的密码。

其次,如果你用的是 Excel 2013 或者更高的版本,还可以使用工作表的“评论”功能取消保护。

这个功能可以帮助你标记对单元格有很大影响的变动,但是也可以用来绕过保护工作簿。

表格一旦发生变化,你就可以把它改回来,从而取消保护。

第三种方法是使用 VBA(Visual Basic for Applications)代码取消保护。

在Excel 中可以创建一个新的 VBA 宏,然后输入代码清除工作表保护,只要运行就可以将Excel 工作簿取消保护。

这也是一种高级的方法,只要你对 VBA 语言有一些了解,就可以成功清除保护。

最后,也可以使用 Excel 加密软件来帮助你取消保护 Excel 工作簿。

有很多种类的加密软件可以使用,比如 ExcelPassword Unlocker、Excel Key 等,只要把加密的Excel 工作簿拖放到软件中,就可以一键破解,即可取消保护。

以上就是 Excel 工作簿取消保护的几种方法,如果不想复杂,可以尝试评论功能;如果对 VBA 语言有一定了解,且工作簿保护密码丢失,可以使用 VBA 代码;如果更想要快捷,可以下载 Excel 加密软件,轻松破解 Excel 加密工作簿。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

excel2019工作表如何撤销保护
篇一:如何撤销Excel工作表保护
EXCEL工作表编辑资料,设置了工作表保护后,不能对表格进行操作。

如果没有密码,很简单:工具-选项—工作表保护——撤消工作表保护就可以了。

如果忘记密码或者不知道密码,执行如下操作:
1、打开文件
2、工具---宏----录制新宏---输入名字如:a
3、停止录制(这样得到一个空宏)
4、工具---宏----宏,选a,点编辑按钮
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-2019 (Version 1.1)
' Modified 2019-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 2019-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 " & _。

相关文档
最新文档