Question

excel表中，一个工作薄有500多个工作表，如何一次性撤消工作表保护！

Answer 1

1、在进行编辑的excel地表的情况下中，那么就出现提示了无法进行编辑excel。

2、然后需要进行撤销的excel工作，进行点击菜单中审阅的菜单。

3、进入到了审阅的菜单之后，进入到了审阅的界面中，进行点击菜单中的撤销工作表保护。

4、弹出了撤销工作表保护的界面中，进行进行点击输入密码。

5、密码进行输入完成之后，进行点击确定按钮即可。

6、然后再次进行对excel表中进行编辑，可以看到的是显示为保护工作表的按钮。说明已解除了。

Answer 2

按ALT+F11，点击“插入”-“模块”，在右侧窗口输入如下代码：
Sub UnProtect()
    Dim sht As Worksheet
    For Each sht In Worksheets
    sht.UnProtect
    Next
End Sub
运行即可！
前提是我假设你没有设置保护密码。如果有密码，假设密码是abc，那么
sht.UnProtect改成sht.UnProtect Password:="abc"

追问

那我要一次保护工作表呢？

追答

很简单，只要去掉两个字母即可，把UnProtect改为Protect
按ALT+F11，点击“插入”-“模块”，在右侧窗口输入如下代码：
Sub Protect()
    Dim sht As Worksheet
    For Each sht In Worksheets
    sht.Protect
    Next
End Sub
运行即可！
如果要设置密码，比如abc，那么
sht.Protect改成sht.Protect Password:="abc"

追问

撤消后，工作表中的超连接不能使用，“宏”也出现问题

Answer 3

使用CTRL（shift)一次选择多个删除即可

Excel版本参考：2010
1、按住CTRL,依次点击需要删除的
（注：shift连续选择多表;点击第一个工作表，按住shift,点击要连续选择表的最后一张表，即可快速选择连续的多张表）
2、右击工作表标签-删除，确定

追问

你的方法按键都变灰了！不能操作！

Answer 4

按alt+F11没反应