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多不足之处…请各位莫见

答案:超

怪…莫见怪…