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, AllowFormattingCells:=True, AllowUsingPivotTables:=True, Password:=“ * “ Next End Sub 实现用户权限如下图： 可自定义编写代码编辑宏的默认权限，部分参数如下(一般也就会设置这几个) ： 部分属性参数(逻辑型数据，默认值均为 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, 允许使用数据透视表 如