《excel中一次保护多个工作表》.doc

《《excel中一次保护多个工作表》.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Excel中一次保护多个工作表（多个工作表的密码一次全部设置）EXCEL工作簿中有多个工作表，若要保护每个工作表，按常规操作为：打开EXCEL后每一个工作表都进行一下设置：工具-保护-保护工作表  然后输入2次密码，若有几十个甚至上百个工作表，这样操作就太繁琐了。请不要着急，经本人收集解决方案，反复测试并优化，已解此烦恼。现在和大家分享：经发现有一下操作可一次保护N个工作表（还未搞明白保护后的密码，若要取消保护只能按上楼的破解了），方法和楼上的差不多，只需将编辑宏的命令语句改为如下内容：方法：1打开文件2工具---宏----录制新宏---输入名字如:aa（可为任意字符）3停止

2、录制(这样得到一个空宏)4工具---宏----宏,选aa,点编辑按钮5删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)6关闭编辑窗口7工具---宏-----宏,选“保护工作表”,运行,自动完成所有工作表保护说明：保护后的自动设置的密码为123456（要设置成其他密码就不多说了哈）内容如下：Sub保护工作表()DimiAsIntegerDim密码AsIntegerFori=1ToSheets.CountSheets(i).SelectActiveSheet.ProtectDrawingObjects:=True,Contents:=True,Scenarios:

3、=True,Password:=123456NextiEndSub