一、如何撤销保护
EXCEL表格不能修改是因为开启了保护工作薄的功能，只要将保护取消即可，取消步骤如下：
工具：电脑，win10系统。
1.打开EXCEL要进行编辑的时候，发现不能编辑，而且弹出警告框，如下图红框所示。
2.关闭警告框之后，点击上次菜单栏的“审阅”，如下图红框所示。
3.在审阅菜单里面的保护菜单点击“撤销工作表保护”，如下图红框所示。
4.输入撤销工作表保护的密码，就是当时建立保护设置的密码，然后点击“确定”按钮，如下图红框所示。
5.可以看到刚刚点击的“撤销工作表保护”按钮也产生了相应的变化，变为“保护工作表”，如下图红框所示。
6.这个时候再试试编辑工作表，就可以对工作表进行编辑了，如下图红框所示。
基本简介
Microsoft Office Excel 2003 是微软公司推出的办公自动化系列套装软件Microsoft Office 2003下的一个独立产品。利用它可制作各种复杂的电子表格，完成繁琐的数据计算，将枯燥的数据转换Excel工作界面为彩色的图形形象地显示出来，大大增强了数据的可视性，并且可以将各种统计报告和统计图打印出来，还可提供对于 XML 的支持以及可使分析和共享信息更加方便的新功能。
可以将电子表格的一部分定义为列表并将其导出到 Microsoft Windows® SharePoint™ Services 网站。Excel 2003 中的智能标记相对于 Microsoft Office XP 中更加灵活，并且对统计函数的改进允许您更加有效地分析信息。掌握了Excel可以成倍地提高工作效率。
二、如何取消保护Excel工作表
目录方法1：使用Excel软件1、在Excel中打开一个包含受保护工作表的工作簿。2、右击受保护工作表的选项卡。3、点击取消保护工作表4、输入密码并点击确定方法2：上传到谷歌工作表1、在浏览器中打开 https://drive.google.com2、点击+ 新建3、点击文件上传4、选中要编辑的Excel文件并点击打开5、在谷歌云端硬盘中双击Excel文件。6、点击打开方式7、点击谷歌工作表8、将文件重新下载到电脑。方法3：在Excel 2010及更早版本中使用VBA代码1、在Excel中打开一个包含受保护工作表的工作簿。2、将文件重新保存为xls格式。3、按下Alt+F114、在"工程-VBA工程"面板中右击工作簿的文件名。5、点击菜单中的插入6、点击模块7、复制代码。8、右击新模块并选择粘贴9、按下F510、在密码的弹出窗口中点击确定本文将教你如何在Windows或macOS系统中取消保护Excel工作表。如果工作表设有密码，你可以用谷歌工作表或VBA脚本（在Excel早期版本中可用）来取消保护。
方法1：使用Excel软件
1、在Excel中打开一个包含受保护工作表的工作簿。在电脑上双击文件名即可打开。
2、右击受保护工作表的选项卡。工作表的标签都位于Excel底部。在某些Excel版本中，受保护的工作表通常会有一个挂锁图标。右击该表标签（或挂锁图标）打开右键菜单。如果有多张工作表受保护，需要分别移除保护。
3、点击取消保护工作表。如果工作表没有密码保护，应该会立即解锁；否则会提示你在弹出窗口输入密码。
4、输入密码并点击确定。如果密码正确，工作表将取消保护。如果你不知道密码，可以查看使用谷歌工作表的方法。这个方法需要将文件上传到谷歌工作表中，同时移除在Excel中的所有保护。
如果你使用的是Excel 2010或更早的版本，又不想上传到谷歌工作表，可以试试在Excel 2010及更早版本中使用VBA代码。
方法2：上传到谷歌工作表
1、在浏览器中打开 https://drive.google.com 。如果你有谷歌帐户，可以用谷歌工作表（一款类似Excel的免费在线应用程序）移除工作簿中所有工作表的保护，即使不知道密码也可以。如果还没有登录谷歌帐户，按照屏幕上的指引登录。
如果你还没有谷歌帐户，可以参看如何创建Google帐户。
2、点击+ 新建。该项位于页面左上角。
3、点击文件上传。点击后会打开电脑的"打开"面板。
4、选中要编辑的Excel文件并点击打开。点击后会将文件上传至谷歌云端硬盘（Google Drive）。
5、在谷歌云端硬盘中双击Excel文件。可能需要下滑才能找到该文件。点击后会打开文件的预览。
6、点击打开方式菜单。该项位于预览页面的顶部，点击后会展开一个菜单。
7、点击谷歌工作表。现在该文件可以在谷歌工作表中进行编辑，之前在Excel中添加的所有保护都会被移除。
8、将文件重新下载到电脑。如果你想在Excel而不是谷歌工作表中继续编辑该文件，可以下载这个没有保护的工作簿，步骤如下：点击工作表左上角的文件菜单。
点击下载为。
点击Microsoft Excel (.xlsx) 。
选择一个文件夹保存文件。如果你不想破坏源文件（即包含受保护工作表的文件）的完整性，可以重命名这个新文件。
点击保存下载文件。
方法3：在Excel 2010及更早版本中使用VBA代码
1、在Excel中打开一个包含受保护工作表的工作簿。可以在电脑中双击文件名打开。Excel文件的扩展名通常以.xls或.xlsx结尾。如果你已经试过用Excel取消保护工作表，但是工作表有密码保护，而你又不知道密码，可以使用这个方法。
该方法不适用于Excel 2013及之后的版本。
2、将文件重新保存为xls格式。如果你编辑的文件扩展名为".xlsx"（如果是在更新版本的Excel中创建或编辑的文件通常是这个格式），需要先将文件转换成Excel 97-2003（.xls）格式，才能使用这个方法。以下是格式转换的步骤：点击右上角的文件菜单。
点击另存为。
前往要保存文件的文件夹。
从"另存为格式"或"文件格式"菜单中选择Excel 97-2003 (.xls)。
点击保存。
按照屏幕上的提示进行必要的转换。
3、按下Alt+F11打开Visual Basic编辑器。
4、在"工程-VBA工程"面板中右击工作簿的文件名。该项位于左边面板的顶部。一定要右击包含文件名（以".xls结尾"）的选项，该项应该位于顶部。点击后会展开一个菜单。
5、点击菜单中的插入。点击后会展开另一个菜单。
6、点击模块。点击后会插入一个新模块，用于粘贴代码。
7、复制代码。选中该文本后面的代码，然后按下Ctrl+C（PC）或者? Command+C进行复制：
Sub PasswordBreaker()Breaks worksheet password protection. Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As IntegerOn Error Resume Next 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 126ActiveSheet.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 ActiveSheet.ProtectContents = False ThenMsgBox "Password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)Exit SubEnd If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: NextEnd Sub
8、右击新模块并选择粘贴。复制好的代码会出现在模块窗口中。
9、按下F5运行代码。Excel将会运行该代码，可能需要几分钟时间。代码完成运行后，会在弹出窗口显示一个新密码。新密码会是一个随机数字，而不是原密码。
10、在密码的弹出窗口中点击确定。此时会出现一个新密码，但无需记下。点击确定会自动移除工作表的保护。如果之前需要将文件转换成更早的格式，现在可以重新将工作簿保存为 .xlsx格式。
三、在excel中如何取消工作表的保护命令
在excel中取消工作表的保护命令的方法：
1.打开excel，运行视图—宏—录制新宏—输入宏名如:aa（aa是可随意输入）。
2.停止录制，这样得到一个空宏。
3.同样视图—宏—查看宏—选aa（aa为之前新建的宏）—点击编辑按钮。
4.删除窗口中的所有字符，复制下面的内容粘贴。
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.关闭编辑窗口。
6.视图—宏—查看宏,选AllInternalPasswords，点击执行，确定两次，等2分钟，再确定。密码撤销完毕。
