怎么保护excel工作表以及取消保护

03版excel的设置方法为：工具——保护——保护工作表——设置——确定07版的设置方法为审阅——更改——保护工作薄——设置密码——确定要取消的话，照着设定的办法操作，把密码设置为空即可，以excel2016为例，如果没设置密码，点击文件/保护工作簿 点击取消保护，选择不需要保护的工作表即可。如果有密码，则需要输入密码。如果忘记密码，这事咱们再私下讨论，菜单 评审（review）->解锁保护（保护） 相同的按钮如果有密码，则需要键入密码解锁，原发布者:yangbin3151Excel工作表保护密码清除www.51dongshi.com防采集。

Excel工作表是最常见办公工具,那么如何保护Excel工作表呢,如何取消保护呢?今天小编就和大家一起看看怎么做,希望对大家有帮助

材料/工具

电脑

方法

首先我们打开Excel

1、首先在excel表格中输入一组数据并点击“审阅”选项卡中的“允许编辑区域”。2、然后在打开的

然后点击"审阅"

1、在电脑上安装好excel软件，双击这个excel软件的图标打开它。2、去下载一个被文件保护了

接着点击"保护工作表"

第一步、首先，打开Excel二次，打开被保护的Excel表格。在主界面界面上方选择“审阅”，点击打开

然后在保护工作表单元打钩

工具：excel20111、先打开保护密码的Excel工作表格，如图所示，修改后缀名称为.rar。

然后我们输入密码,

03版excel的设置方法为：工具——保护——保护工作表——设置——确定07版的设置方法为审

然后点击确定,工作表就被保护了

　　*篇一：如何撤销Excel工作表保护　　EXCEL工作表编辑资料，设置了工作表保护后，不能对表格

取消保护的话,就点击"撤销工作表保护"

第一步，先找到一个带有有工作表保护密码的Excel工作表，然后把后缀名称改为.rar。第二步，用

然后我们输入密码就好了

在excel中取消工作表的保护命令的方法：1.打开excel，运行视图—宏—录制新宏—输入宏名如:

撤销是不能撤销的，只能通过破解密码来实现，可以用修改后缀名称zhidao的方法。工具：华硕电脑1、首先找到Excel表格，修改后缀名称xlsx改为演示操作表格rar，如下图所示2、然后用压缩文件打开，然后打开xl，如下图所示3、然后把压缩文件里面找到的sheet1．xml文件，然后拖拽出来，然后要进行修改，如下图所示4、然后sheet1.xml文件打开用记事本打开，然后搜索protection，把图中的这一段代码版，全部删除掉，如下图所示。5、再把修改后的sheet1．xml文件，选择权拖拽到压缩的工作蒲中，选择替换掉就可以，如下图所示。6、把文件名称．rar重新更改．xlsx，然后再打开工作表保护就撤销了，如下图所示。本回答被网友采纳，原发布者:飞莲无解666如何破解EXCEL工作表保护密码忘记密码怎么办1.新建一个EXCEL工作表，而后点击另存为，讲表格保存为启用宏的工作表2.一次点击开发工具---录制7a64e78988e69d8331333433623763新宏，在弹出的对话框内修改宏名称而后确定3.依次点击开发工具----停止录制宏，宏录制完成4.依次点击开发工具，---宏----在弹出的对话框找到我们刚才录制的宏名称而后进入VBA界面5.在VBA界面，全选里面的代码，而后删除，讲里面的代码全部删除完6.代码复制到VBA编辑窗口内PublicSubAllInternalPasswords() 'Breaksworksheetandworkbookstructurepasswords.BobMcCormick 'probablyoriginatorofbasecodealgorithmmodifiedforcoverage 'ofworkbookstructure/windowspasswordsandformultiplepasswords ' 'NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1) 'Modified2003-Apr-04byJEM:Allmsgstoconstants,and 'eliminateoneExitSub(Version1.1.1) 'RevealshashedpasswordsNOToriginalpasswords ConstDBLSPACEAsString=vbNewLine&vbNewLine ConstAUTHORSAsString=DBLSPACE&vbNewLine&_ "AdaptedfromBobMcCormickbasecodeby"&_ "NormanHarkerandJEMcGimpsey" ConstHEADERAsString="AllInternalPasswordsUserMessage" ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04" ConstREPBACKAsString=DBLS，按下面步骤操作，如果不会发邮件给我吧 SOUP5257@126.COM1\打开文件 2\工具---宏----录制新宏---输入名字如:aa 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选aa,点编e799bee5baa6e59b9ee7ad9431333262383635辑按钮 5\删除窗口中的所有字符(只有几个),替换为下面的内容:(你复制吧) 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 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 BooleanApplication.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 Sub6\关闭编辑窗口 7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!本回答被提问者采纳，原发布者:三一作文　　7a64e78988e69d8331333433626563*篇一：如何撤销Excel工作表保护　　EXCEL工作表编辑资料，设置了工作表保护后，不能对表格进行操作。如果没有密码，很简单:工具-选项—工作表保护——撤消工作表保护就可以了。如果忘记密码或者不知道密码，执行如下操作：　　1、打开文件　　2、工具---宏----录制新宏---输入名字如:a　　3、停止录制(这样得到一个空宏)　　4、工具---宏----宏,选a,点编辑按钮　　5、删除窗口中的所有字符(只有几个),替换为下面的内容:(复制下来)　　OptionExplicit　　PublicSubAllInternalPasswords()　　Breaksworksheetandworkbookstructurepasswords.BobMcCormick　　probablyoriginatorofbasecodealgorithmmodifiedforcoverage　　ofworkbookstructure/windowspasswordsandformultiplepasswords　　　　NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)　　Modified2003-Apr-04byJEM:Allmsgstoconstants,and　　eliminateoneExitSub(Version1.1.1)　　RevealshashedpasswordsNOToriginalpasswords　　ConstDBLSPACEAsString=vbNewLinevbNewLine　　ConstAUTHORSAsString=DBLSPACEvbNewLine_　　"AdaptedfromBobMcCormickbasecodeby"_　　"NormanHarkerandJEMcGimpsey"　　ConstHEADERAsString="AllInternalPasswordsUserMessage"　　ConstVERSIONAsString=DBLSPACE"Version1.1.12003-Apr-04"　　ConstREPBACKAsString=DBLSPACE"Pleasereportfailure"_　　"tothemicrosoft.public.excel.progra，我有一种方法可以不知道密码也可以.就是把内容复制到一个抄新的表格中就可以了,我就经常这样做,因为别的公袭司给我们的价格表老是保护,我就复制到一百个新的文件里就能编辑了.这个方法只对度EXCEL有效,因为他虽然保护了不能修改但可以看到内容,可以复制.对WORD就不行了知.WORD有了密码就看不到内容了.看不到内容不应该啊,EXCEL应该能看到内容啊,照楼主这么道说一打文件就让输密码了.EXCEL没有这功能啊本回答被提问者采纳，我设了密码，也是忘记了，打不开，谁能帮我呀？一打开工作表就要输密码的那种，不一定要用到软件，你只要把被保护的EXCEL工作表的内容复制到一个新建的EXCEL工作表当中，保护就去掉了。就是稍微麻烦一些，得重新排一下版。我的方法最原始、但也最有效，你试试？，我的的我的王文档 文档内容来自www.51dongshi.com请勿采集。

声明：本网页内容旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。TEL:0731-84117792 E-MAIL:11247931@qq.com