作者：乔山办公网日期：
返回目录：excel表格制作
'可能只有用VB代码百了
Sub 保护所有工作表()
M = MsgBox("以前已保护的工作表密码不变，若要统度一密码请先撒消已保护的工作表。" & Chr(10) & "确认所有工作表都处于未保护状态，则问选答[是]进行工作表保护，否则选[否]。", vbYesNo)
If M = vbYes Then
a = InputBox("请输入工作表保护密码：")
For N = 1 To Worksheets.Count
Worksheets(N).Protect Password:=a, DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End If
End Sub
具体操作：1、 ALT+F11进入VB，菜单中版选“插入”—>“模块”，然复制上述代码 粘入 窗口中，关闭VB回到EXCEL。
2、 EXCEL中 ALT+F8 选“保护所有工作表”宏权 执行
sub Protect()
dim i as integer
for i=1 to thisworkbook.sheets.count
sheets(i).protect password:="$$$",drawingobjects:=true,contents:=true
next
end sub
运行抄上面的宏代码即可，"$$$"是你想要添加的工作表保袭护密码，后面drawingobjects和contents参数可省zhidao。
1、在进行编辑的excel地表的情况下中，那么就出现提示了无法进行编辑excel。
zhidao查看大图" class="ikqb_img_alink">
2、然后需要进行撤销的excel工作，进行点击菜单中审阅的菜单。
3、进入到了审阅的菜单之后，进入到了审阅的界面内中，进行点击菜单中的撤销工作表保护。
4、弹出了撤销工作表保护的界面中，进行进行点击输入密码。
5、密码进行输入完成之后，进行点击确定按钮即可。
6、然后再次进行对excel表中进行编辑，可以看到的是显示为保护工作表的按容钮。说明已解除了。
打开需要保护的知EXCEL文件，按住CTRL不放，点击你要保护的工作表名称（可以连续选择多个，或其中几个），选好后松开CTRL，回到当前工作表进行保道护等操作，操作完成后，其他工作表视同当前工作表的操作自动完成。此方法专亦适合批量属修改工作表内容（前提是所有工作表格式相同或相拟，否则提示不要匹配
wps和excel兼容方法相同