批量保护Excel工作表

批量保护 Excel 工作表 如果 Excel 工作簿里有很多工作表，要是分别设置保护工作表，工作量太大，可以用Excelvba 代码，一键保护，不论有多少个工作表都可以实现一键保护，具体步骤如下：（以Excel2010 为例，2007 基本一样）1、打开 Excel，按 alt+f11 键打开 Excel“工程源管理器”窗口，（图 1）2、右键点该区域，点插入-模块。工程资源管理器窗口多了个模块。（图 2）并且出现了一个代码编写的窗口。（图 3）3、在代码编辑窗口输入如下代码：（图 4），至此简单的模块代码已经编写完成。4、关闭工程资源管理器器窗口。5、在工作表上添加 2 个命令按钮。图 5）6、双击批量保护按钮，在光标处输入：call plbh,同样方法在撤销保护里输入：call qbcx 代码编写工作全部完成。7、把宏级别设置成启用所有宏，工作簿另存为启用宏的工作簿。所有工作全部 ok.8、点击批量保护命令按钮，不论工作簿里有多少工作表，在秒内全部保护。图一 工程资源管理器窗口 图 2 插入模块后的工程资源管理器窗口 图 3 代码编写窗口 图 4 编写代码后的窗口 图 5 命令按钮