被保护的excel怎么修改 被保护的excel怎么编辑
EXCEL工作表保护密码忘记了，如何撤消工作表保护？
Dim m As Integer, n As Integer, i1 As Integer, i2 As IntegerExcel工作表密码去除，
被保护的excel怎么修改 被保护的excel怎么编辑
被保护的excel怎么修改 被保护的excel怎么编辑
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
按下面步骤作，
如果不会发邮件给我吧 SOUP5257@126.COM
1打开文件
3停止录制(这样得到一个空宏)
4工具---宏----宏,选aa,点编辑按钮
5删除窗口中的所有字符(只有几个),替换为下面的内容:(你吧)
Option Explicit
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Rals 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 " & _
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 p.Unprotect Chr(i) & Chr(j) & Chr(k) & _asswords 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 comr's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
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 " & _
Const MSGONLYONE As String = "Only structure / windows " & _
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 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
If Not ShTag And Not WinTag Then
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag 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
With ActiveWorkbook
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
On Error GoTo 0
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
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
If ShTag Then
For Each w1 In Worksheets
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
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'lrage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
On Error GoTo 0
End With
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
6关闭编辑窗口
7工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!
excel表格被保护该怎么取消不知道密码
excel密码 打开文档后，通过文件菜单中“另存为”，将文档存为rtf格式。保存好文件后，先关掉文档再打开另存的文件，选择工具栏中的“解除文档保护”命令，不用填写密码就可以解除此文件的“文档保护功能”，而且任何信息都不会丢失。用Off Password Remover这个软件可以打开。
使用方法：
首先运行解压好的OPRemove.exe 这个程式，打开程式后能看到中间文本框后面有个类似目录的按钮。
选择后出现下图的画面，点击移除密码。
呆几秒钟后便出现“该文件已被成功”，点确定即可，这时候就大功告成了。 在这里要注意的是，后的文章名字会有点变化，加了“DEMO”这四个字母，翻译过来就是的意思，不必在意，重命名去掉就能了。
做个宏
代码如下
全部过去
运行宏即可
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Rals 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 " & _
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 comr's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
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 " & _
Const MSGONLYONE As String = "Only structure / windows " & _
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 PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End WitDim i4 As Integer, i5 As Integer, i6 As Integerh
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
If Not ShTag And Not WinTag Then
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
On Error Exit SubResume 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
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr("other passwords." & AUTHORS & VERSIONi4) & Chr(i5) & Chr(i6) & Chr(n)
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
On Error GoTo 0
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
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
If ShTag Then
For Each w1 In Worksheets
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
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'lrage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
On Error GoTo 0
End With
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
Excel工作表密码去除，
将excel另存为PDF格式。
用adobe acrobat打开PDF文件，再另存为XML电子表格（.xml).
打开xml文件即可。
这种方法的缺点是，如果原来excel中有公式的将会消失。
可帮解密，不过是有偿的。
如何把excel中的数值锁住不让修改？
MsgBox MSGNOPWORDS1, vbInformation, HEADER1. 如何把EXCEL中的数值锁定
具体步骤如下所示：将EXCEL中的数值锁定的方法如下：
实在不行就采用笨办法：先用只读方式打开表格，然后全选，再新建表格粘贴。1、在Excel表格中选中需要保护的单元格区域，右击设置单元格格式。
2、将锁定前面的勾勾选，点击确定。
3、继续选定单元格，选择菜单中“工具”-“保护”-“保护工作表”。
4、设定数据保护密码，点击确定，再次确认密码，即可完成了xcel数据保护密码设置，EXCEL中的数值锁定完成。
2. 如何让excel的表格锁定,而可以输入数据
锁定部分部分单元格即可。
1.首先打开要编辑的excel文档，然后按下键盘上的ctrl键，选定可编辑修改的单元格。
2.然后右键点击选定的单元格，在弹出菜单中选择“设置单元格格式”菜单。
3.在弹出的单元格格式窗口中，点击“保护”标签，去掉“锁定”前复选框的勾选，点击确定保存退出。
4.然后右键点击下面的工作表标签，在弹出菜单中选择“保护工作表”菜单项。
5.在弹出的保护工作表文本框中输入保护工作表的密码，点击确定按钮。
7.退回到excel编辑表格界面，在刚才选定的单元格内可以输入相关信息，而双击要保护的单元格，就会弹出试图更改受保护的单元格的提示窗口。
3. excel怎么隐藏和锁定数据
excel怎么隐藏和锁定数据的方法：
要隐藏数据列，只需要右击要隐藏的数据列序，点击“隐藏”即可。本例子以要隐藏A列为例，右击“A”-“隐藏”即可，
此外，EXCEL表内的网格线也可以隐藏，方法是依次点击“视图”-“显示/隐藏”，取消“网格线”
锁定数据：
有时EXCEL表格当中有些单元格是通过公式生成的，不小心错录内容进去就会覆盖掉公式，影响正常使用；另外有时不希望使用者看到单元格内的公式内容也可以使用隐藏和锁定单元格的功能，方法是：选中要保护的单元格，右击，然后依次点击“设置单元格式”。如下图示：
在弹出窗口点击“保护”选项卡，然后勾选“锁定”和“隐藏”前面的复选框，“确定”即可，
4. 如何让excel表格的单元格一输入就锁定
锁定单个或多个单元格方法
①首先，利用Excel快捷键 Ctrl + A 全选所以的单元格，然后，右键选择“设置单元格格式”；
②在弹出的“单元格格式”中选择“保护”，取消“锁定”前面的钩去掉；
③选中你所想要锁定的单个或多个单元格，再次右键选择“设置单元格格式”；
④同样，在弹出的“单元格格式”窗口中选择“保护”，再将“锁定”前面的钩打上，确定；
⑤继续选中需要锁定的单元格，然后单击菜单栏的“工具”-->；保护-->；保护工作表，在弹出的“保护工作表”窗口中我们输入锁定该单元格的密码（千万别把密码忘记了哟）；
到这里锁定单元格就已经设置完毕了！现在你可以回到Excel表格中看看，刚才被我们锁定的单元格貌似不可以编辑和修改了，每次编辑它都会提示：“正在视图更改被保护的只读单元格或图标”。
如果想重新对锁定的单元格进行编辑或修改，单击菜单栏的“工具”中的“保护”下的“撤销工作表保护”，在窗口中重新输入设置的密码，即可撤销工作表的锁定。
你好,在吗.excel撤销工作表保护,怎么作的啊
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _用宏代码密码：
以off2007为例说明，（2003也是一样的，只是菜单命令的位置不同）
步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Off安全选项”窗口，选择其中的“启用此内容”，“确定”退出；
再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PassWordBreaker，点击“确定”退出；
第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码：
Sub PasswordBreaker()
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
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 6PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _6
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
ActiveSheet.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 Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & ChrElse(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了。
点执行后要等一份钟后，密码就出来了。
以Off2003为例，工具，保护，取消保护（当然估计要输入密码）。
excel表格怎么调整受保护的单元格
Exit Sub现在我们有一个Excel表格，想要设置B2、B3、B4单元格为允许修改的部分，其余部分不可修改。
1、选择允许修改的区域(B2、B3、B4单元格)，点击右键，从右键菜单中选择“设置单元格格式”。
在“保护”选项卡中，去掉“锁定”前面的钩。
2、再击菜单栏上的“工具” →“保护”→“保护工作表”。
勾选“选定未锁定的单元格”，并两次输入密码。
现在我们来试验一下。
修MsgBox MSGNOPWORDS2, vbInformation, HEADER改B2、B3、B4单元格，没有问题。
修改C2单元格，Excel弹出下图提示，提醒正在修End If改被保护的单元格。
如果想要解除C2单元格的修改限制，我们可以从菜单栏中选择“工具”-“保护-“撤销工作表保护”。
在弹出的对话框中输入刚才设定的密码。
现在，C2单元格数据修改成功。
Excel2003 数据被保护无法编辑
是设置了数据有效性的原因"to th四、打开该目录后，把被保护工作表拖至桌面。e microsoft.public.excel.programming newsgroup."。 把数据有效性，有效性条件，改为任何值就OK了。
东南长平。宜福德
右键单击该文件名，属性
看看是不是勾选了“只读”，是的话2工具---宏----录制新宏---输入名字如:aa，直接去掉勾选即可
excel表格被保护该怎么取消不知道密码
.Unprotect Chr(i) & Chr(j) & Chr(k) & _使用以下步骤进行被保护的工作表：
End IfDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer所需材料：记事本、Excel。
一、首先点击被保存的工作薄，按F2重命名，格式改为RAR。
二、这时表格会变为一个压缩包，打开该压缩包，打开后双击打开XL文件夹。
三、然后再双击打开Worksheets文件夹。
五、接着使用记事本打开该文件。
六、打开该文件后，Ctrl+F键打开查找窗口，输入Protection，点击查找下一个。
七、找到后，选中其所在尖括号内的全部内容（包括前后两个尖括号），按Del键删除这串字符，按Ctrl+S保存，保存后关闭记事本。
九、弹出的替换文件窗口内点击替换。
十、再次点击压缩包，按F2键重命名，格式改为XLSX表格格式。
十一、这时打开该工作薄，进入审阅选项卡下，撤消工作薄保护按钮消失，完成。
我想问一下excel受保护的视图怎么解除
隐藏“行”和“工作表”的方法也一样，不过右击的地方要改为行序和工作表名就可以了。excel受保护的视图解除方法：
' of workbook structure / windows passwords and for multiple passwords1、点击“启用编辑”开始对文档进行作；
2、单击其中的“查看详细信息”按钮来进行查看相关的错误；
3、打开之后就会出现设置按钮了，单击进入“受保护视图设置”按钮即可；
4、当然使用下面的按钮也可以对这个提示进行更加详细的查看；
5、还可以使用鼠标右键单击这个文档，然后打开它的属性界面；
6、将下方的解除锁定安With w1全模式，完成以后使用“确定”按钮来使设置生效即可。
出现受保护的视图是由于我们的某些文件是从internet的位置中运行的，或是从某些不安全的文件夹中找到的。这类文件一旦在excel中运行就会出现这个提示。
更多关于excel受保护的视图怎么解除，进入：
EXCEL表格被写入保护密码如何解开？
可以用VBA来强行选择：
一、按ALT+F11 打开VB编辑器
二、双击左边靠上的【工程资源管理器】中的【Microsoft Excel 对象】中的ThisWorkbook(如果找不到【工程资源管理器】请按CTRL+R)，在右边的代码窗口贴入下面的代码：（根据实际情况按代码说明修改a、b的值，""中的内容）
Sub 强行()
'修改以下两行""中的工作表名字
Dim a As String: a = "Sheet1" '修改成你需要的表名
Dim b As String: b = "Sheet2" '修改成粘贴的空白表名
'以下不需要修改
Sheets(a).Cells.Copy
ActiveShe.ProtectWindows = False Thenet.Paste
End Sub
三、回到EXCEL表，运行菜单 【工具】－【宏】－【宏】，选择 强行 这条宏，然后按执行。
四、如有提示说宏的安全性被限制此类的信息，请在工具栏－【宏】－【安全性】里面把【安全级】设置为【中】。
用offiece pas如果CTRL+A用不了，那么就是单元格保护里面限制了选择。sword 6.在打开的确认密码窗口中重复输入刚才的密码，点击确定按钮保存退出。remover，速度很快
excel表格取消保护怎么弄
"Now to check and clear other passwords." & AUTHORS & VERSION方法：
八、接着把已经修改完的文件再次拖入压缩包当前目录内。1、打开要保护的excel。
2、选择“审阅”选项，可以在该页面的工具栏上"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _看到有一个“保护工作表”的工具栏。
3、点击该按钮，打开“保护工作表”对话框。在该对话框中，需要设定一个取消保护工作表时的密码，以及保护工作表后，允许进行的作，将允许的作前面的复选框选中，即点击打上“√”。
4、点击“确定”按钮，弹出确定密码的对话框，输入“保护工作表”页面中设定的密码，然后点击确定。
5、此时，如果再在工作表页面中输入数据或修改数据时，会弹出该工作表被保护的提示信息。
6、当想编辑该文档的时候，执行取消保护工作表作就可以了。和设定保护工作表时的作类似，打开要编辑的excel文档，选择审阅，可以看到原来“保护工作表”的工具变为“撤销保护工作表”的工具。
7、点击“撤销保护工作表”按钮，会弹出“撤销保护工作表”对话框，在编辑框中输入设定“保护工作表”时的密码，然后点击“确定”按钮。
8、回到excel工作表编辑区，就可以编辑文档了。
工具菜单，保护，撤销工作表保护，输入保护密码，确定
反键点击属性→常规→只读取消钩钩即可。
表格上部菜单-保护-撤销工作表（##）保护
用软件“Off Password Recovery Toolbox”
正在试图更改被保护的只读单元格或图表，怎么才能取消，每次打开excel之前都显示这个。。
Sheets(b).Range("A1").Select出现这种情"protected with the password that was just found." & _况是因为该表格被锁定了。
1、打开电脑，进入软件中，就会看到以下画面，点击上方菜单栏中的审阅选项。
2、点击之后，就会看到以下画面，点击下方的保护工作表选项，在出现的页面中选择取消勾选上方的保护工作表锁定的选项，之后点击下方的确定选"Structure or Windows Password set." & DBLSPACE & _项。
3、点击之后，重新启动Excel就不会有那个提示出现了。
声明：本站所有文章资源内容，如无特殊说明或标注，均为采集网络资源。如若本站内容侵犯了原著者的合法权益，可联系 836084111@qq.com 删除。