资源描述：
《excel2003自动保护工作表的设置方法》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、Excel2003(宏)自动保护工作表设置方法打开或新建EXCEL文件，首先确认已锁定所有单元格（默认都是锁定的），工具——保护——允许用户编辑区域，按需要设置各个区域的密码及权限(可选，因使用情况而定)。其次，在保存以前最好先设置工具——宏——安全性为低或中（个人建议“低”），否则该文档将无法加载“宏”，当然，也实现不了自动保护了。按“Alt+F11”快速进入VBA代码编辑器，双击左侧的ThisWorkbook(如下图),在右侧弹出的窗口写入代码:以下为工作表打开时自动保护的事件代码(复制粘贴即可)默认保护事件代码:PrivateSubWorkbook_B
2、eforeClose(CancelAsBoolean)Fora=1ToSheets.CountSheets(a).ProtectDrawingObjects:=True,Contents:=True,Scenarios:=True,Password:="******"NextEndSub实现用户权限如下图：20currencydeposit,weprescribeapassonaregularbasis,qilucardaccountonaregularbasis),certificatebondsandsavingsbonds(electronic);3.
3、notdrawnonabanksavingscertificate,certificatebondsapplyformortgageloans,acceptingonlythelender增加权限保护事件代码:PrivateSubWorkbook_BeforeClose(CancelAsBoolean)Fora=1ToSheets.CountSheets(a).ProtectDrawingObjects:=True,Contents:=True,Scenarios:=True,AllowFiltering:=True,AllowSorting:=True,A
4、llowInsertingRows:=True,AllowInsertingHyperlinks:=True,AllowInsertingColumns:=True,AllowFormattingRows:=True,AllowFormattingColumns:=True,AllowFormattingCells:=True,AllowUsingPivotTables:=True,Password:="******"NextEndSub实现用户权限如下图：20currencydeposit,weprescribeapassonaregularbasis,q
5、ilucardaccountonaregularbasis),certificatebondsandsavingsbonds(electronic);3.notdrawnonabanksavingscertificate,certificatebondsapplyformortgageloans,acceptingonlythelender可自定义编写代码编辑宏的默认权限，部分参数如下(一般也就会设置这几个)：部分属性参数(逻辑型数据，默认值均为False)DrawingObjects:=True,保护形态,默认Falseo为不保护Contents:=Tru
6、e,值为”True”,则保护内容.对于图表会保护整个图表.对于工作表会保护锁定单元格Scenarios:=True,值为”True”同保护方案.此参数仅对工作表有效AllowFormattingCells:=True,允许设置单元格格式AllowFormattingColumns:=True,允许给工作表的任意列设置格式AllowFormattingRows:=True,允许给工作表的任意行设置格式AllowInsertingColumns:=True,允许插入列AllowInsertingRows:=True,允许插入行AllowDeletingColum
7、ns:=True,允许删除列AllowDeletingRows:=True,允许删除行AllowInsertingHyperlinks:=True,允许插入超链接AllowSorting:=True,允许排序AllowFiltering:=True,允许筛选AllowUsingPivotTables:=True,允许使用数据透视表如有不明之处,请加QQ:372921779答案:超●文本专为EXCEL新手及菜鸟学习交流…自己也是菜鸟一个,文档有N多不足之处…请各位莫见怪…莫见怪…20currencydeposit,weprescribeapassonaregu
8、larbasis,qilucardaccounton
