win10如何撤销工作表保护

1.如何取消10版excel工作表保

取消Excel 2007工作表密码保护作者：网络 | 来源：网络转摘 | 时间：2009-09-26 | 阅读权限：游客 | 会员币：0 | 【大 中 小】Microsoft发布Excel 2007时，引入了新的文件类型，即xlsx、xlsm、xltx，等等，称之为Open XML。

因为这种新文件类型实质上是包含XML文件的包。如果将一个xlsx文件的扩展名修改为zip，那么能够看到组成该Excel文件的所有xml文档。

新的Open XML文件类型带来了许多好处。其主要的好处之一是可以通过操作组成文件的XML文档来简单地修改Excel 2007文件的内容和属性。

是的，当处理Open XML文件时，发现可以通过简单地编辑Excel文件里的xml文件，从而简单地移除工作表保护。 假设有一个工作簿，其工作表Sheet1被保护。

现在，我希望取消该工作表的保护，但是不知道密码。怎么办呢？幸好这是Excel 2007，我们可以利用XML来移除工作表保护。

步骤1 首先备份工作簿，以防万一。 步骤2 修改工作簿文件的扩展名为zip。

步骤3 解压该压缩文件。 步骤4 找到代表目标工作表的XML文件（在xl\worksheets文件夹中）。

步骤5 使用任一XML编辑器打开代表目标工作表的xml文档。 步骤6 找到“sheetProtection”标签并移除该标签所在的行。

步骤7 保存已编辑的XML文档，用其取代原Zip文件中相应的XML文档。 步骤8 将文件的扩展名修改回xlsx。

至此，工作表保护已解除。

2.如何撤销工作表保护

EXCEL密码保护破解2010-01-22 09:56方法：1\打开文件2\工具---宏----录制新宏---输入名字如：aa3\停止录制（这样得到一个空宏）4\工具---宏----宏，选aa，点编辑按钮5\删除窗口中的所有字符（只有几个），替换为下面的内容：（复制吧）6\关闭编辑窗口7\工具---宏-----宏，选AllInternalPasswords，运行，确定两次，等2分钟，再确定.OK，没有密码了！！代码如下：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) & 。

3.EXCEL表格自动受保护,怎样撤消工作表保护

1、打开要保护的excel。

2、选择“审阅”选项，可以在该页面的工具栏上看到有一个“保护工作表”的工具栏。

3、点击该按钮，打开“保护工作表”对话框。在该对话框中，需要设定一个取消保护工作表时的密码，以及保护工作表后，允许进行的操作，将允许的操作前面的复选框选中，即点击打上“√。

4、点击“确定”按钮，弹出确定密码的对话框，输入“保护工作表”页面中设定的密码，然后点击确定。

5、此时，如果再在工作表页面中输入数据或修改数据时，会弹出该工作表被保护的提示信息。

6、当想编辑该文档的时候，执行取消保护工作表操作就可以了。和设定保护工作表时的操作类似，打开要编辑的excel文档，选择审阅，可以看到原来“保护工作表”的工具变为“撤销保护工作表”的工具。

7、点击“撤销保护工作表”按钮，会弹出“撤销保护工作表”对话框，在编辑框中输入设定“保护工作表”时的密码，然后点击“确定”按钮。

8、回到excel工作表编辑区，发现可以编辑文档了

转载请注明出处windows之家 » win10如何撤销工作表保护