excel2003自动保护工作表的设置方法

excel2003自动保护工作表的设置方法

ID:16763980

大小:259.50 KB

页数:3页

时间:2018-08-24

excel2003自动保护工作表的设置方法_第1页
excel2003自动保护工作表的设置方法_第2页
excel2003自动保护工作表的设置方法_第3页
资源描述:

《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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。