批量保护Excel工作表.docx

《批量保护Excel工作表.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、处输入：callplbh，同样方法在撤销保护里输入：callqbcx代码编写工作全部完成。7、把宏级别设置成启用所有宏，工作簿另存为启用宏的工作簿。所有工作全部ok.&点击批量保护命令按钮，不论工作簿里有多少工作表，在秒内全部保护。图一工程资源管理器窗口文件（E歸伺机圏00插入（D工儘-VBAProject*同冒IH=0ITBATroject(Sockl)白^3MicroioftExcel朗暮”…Sheet1(SLeetl)-g)SLsatlO(ShsttlO：2ha«tll(Shaatll；o(Shift112：•"…聘*)SKsetl3(She电tl3.•"…Shaatl4(Sha

3、«tl4.-“QShaatlb(Shastin”…Sheet16(Sheet16^豹］Sliee117(Shet117.®SlsetlS(Sheet13SilSlLtetS(S3*⑵B(Shatt20.t3(S)ieet3)”…電^弘••七4(SJu■七4)屯］SKettESiSltee(SLeetG)Skeet7(SJieet7)”…SliaaW(^L«at8)B^

4、SKettSCSXsst?)-6TinsWorJcLook图2插入模块后的工程资源管理器窗口？X

5、二ft工程-VBAProjject文甘旧骗鸞E视据GD插,图3代码编写窗口03程块Eke^tl(Shiell)^ke^tl

6、0CElieetlO.Elkee七11(Slieetl1Sk««tl2g••七12Ske^tl3(Sliefltl3.Skeetl4(Sheetl4.Skeetl5(SkeetlE.Ehpw七16Sk^tl7Csiie«ti?；(Sksetie；mkee七1§(SheetlS,Sk««t2盘1»血）ShwtZOtolMtaZSlMtfcSteluttd)(shtttl)Sh謂t5（51»就5）shkts(Siuet6)Ske^t?teheetT)Skeet8侣］WEtfl)Skeet9(She£t^)ThiwWorkboH壇VBXProject僅时上门白…厲JLeroioEtEx?«I

7、对普Bookl•模块1（代码）

8、（通用）广］帀明）—mIm图4编写代码后的窗口Bookl-模块1（代码）（通用1tqbcx?图5命令按钮