EXCEL2003自动保护工作表的设置方法
Excel2003(宏)自动保护工作表设置方法
打开或新建EXCEL文件,首先确认已锁定所有单元格(默认都是锁定的),工具——保护——允许用户编辑区域,按需要设置各个区域的密码及权限(可选,因使用情况而定)。
其次,在保存以前最好先设置工具——宏——安全性为低或中(个人建议“低”),否则该文档将无法加载“宏”,当然,也实现不了自动保护了。
按“Alt+F11”快速进入VBA代码编辑器,双击左侧的ThisWorkbook(如下图),在右侧弹出的窗口写入代码
:
以下为工作表打开时自动保护的事件代码(复制粘贴即可)
默认保护事件代码:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For a = 1 To Sheets.Count
Sheets(a).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=" ****** "
Next
End Sub
实现用户权限如下图:
增加权限保护事件代码:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For a = 1 To Sheets.Count
Sheets(a).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowSorting:=True, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, AllowInsertingColumns:=True, AllowFormattingRows:=True, AllowFormattingColumns:=True,
AllowUsingPivotTables:=True, Password:=" ****** "
Next
End Sub
实现用户权限如下图:
AllowFormattingCells:=True,
可自定义编写代码编辑宏的默认权限,部分参数如下(一般也就会设置这几个):
部分属性参数(逻辑型数据,默认值均为False)
DrawingObjects:=True, 保护形态, 默认Falseo为不保护
Contents:=True, 值为”True”,则保护内容. 对于图表会保护整个图表. 对于工作表会保护锁定单元格 Scenarios:=True, 值为”True”同保护方案.此参数仅对工作表有效
AllowFormattingCells:=True, 允许设置单元格格式
AllowFormattingColumns:=True, 允许给工作表的任意列设置格式
AllowFormattingRows:=True, 允许给工作表的任意行设置格式
AllowInsertingColumns:=True, 允许插入列
AllowInsertingRows:=True, 允许插入行
AllowDeletingColumns:=True, 允许删除列
AllowDeletingRows:=True, 允许删除行
AllowInsertingHyperlinks:=True, 允许插入超链接
AllowSorting:=True, 允许排序
AllowFiltering:=True, 允许筛选
AllowUsingPivotTables:=True, 允许使用数据透视表
如有不明之处, 请加QQ:372921779
●文本专为EXCEL新手及菜鸟学习交流…自己也是菜鸟一个, 文档有N多不足之处…请各位莫见答案:超 怪…莫见怪…