批量保护Excel工作表格.docxVIP

精品文档 精品文档 PAGE PAGE5 精品文档 PAGE 批量保护 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命令按钮