Ecel VBA编程 保护工作表.docxVIP

Excel VBA 编程 保护工作表 保护工作表与保护工作簿的区别在于对工作表进行保护之后，仍然可以对工作表的窗口大小进行调整。在进行保护工作表的过程中，使用了 Worksheet.Protect 方法，该方法的含义为保护工作表使其不能被修改。 语法：表达式.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, All owFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, All owSorting, AllowFiltering, AllowUsingPivotTables) 其中，在 Worksheet.Protect 方法的表达式中，包含多个参数，其功能如下表15-7 所示。表 15-7 Worksheet.Protect 方法参数功能 方法参数 Password 功能 该参数表示一个字符串，该字符串为工作表或工作簿指定区分大小写 的密码。如果省略此参数，不用密码就可以取消对工作表或工作簿的保护。否则，必须指定密码才能取消对工作表或工作簿的保护。如果忘记了密码，就无法取消对工作表或工作簿的保护 DrawingObjects 如果为 True，则保护形状。默认值是 True。 Contents 如果为 True，则保护内容（对于图表，这样会保护整个图表；对于工作表，这样会保护锁定的单元格），其参数的默认值是 True。 Scenarios 如果为 True，则保护方案。此参数仅对工作表有效，其默认值是 True。 UserInterfaceOnly AllowFormattingCells AllowFormattingColumns AllowFormattingRows AllowInsertingColumns AllowInsertingRows AllowInsertingHyperlinks AllowDeletingColumns AllowDeletingRows 如果为 True，则保护用户界面，但不保护宏。如果省略此参数，则既保护宏也保护用户界面。 如果为 True，则允许用户为受保护的工作表上的任意单元格设置格式。该参数默认值是 False。 如果为 True，则允许用户为受保护的工作表上的任意列设置格式。默认值是 False。 如果为 True，则允许用户为受保护的工作表上的任意行设置格式。该参数默认值是 False。 如果为 True，则允许用户在受保护的工作表上插入列。该参数默认值是 False。 如果为 True，则允许用户在受保护的工作表上插入行。该参数默认值是 False。 如果为 True，则允许用户在受保护的工作表中插入超链接。该参数默认值是 False。 如果为 True，则允许用户在受保护的工作表上删除列，要删除的列中的每个单元格都被解除锁定。该参数默认值是 False。 如果为 True，则允许用户在受保护的工作表上删除行，要删除的行中的每个单元格都被解除锁定。该参数默认值是 False。 如果为 True，则允许用户在受保护的工作表上进行排序。排序区域中 AllowSorting 的每个单元格必须是解除锁定的或取消保护的。该参数默认值是 False。 如果为 True，则允许用户在受保护的工作表上设置筛选。用户可以更AllowFiltering 改筛选条件，但是不能启用或禁用自动筛选功能。用户也可以在已有 的自动筛选功能上设置筛选。该参数默认值是 False。 AllowUsingPivotTables 如果为 True，则允许用户在受保护的工作表上使用数据透视表。默认值是 False。 如果对工作表应用 如果对工作表应用 Protect 方法时，将 UserInterfaceOnly 参数设为 True，然后又保存了工作簿，那么再次打开工作簿时，整张工作表将被完全保护，而并非仅仅保护用户界面。要在打开工作簿后重新启用用户界面保护，必须再次将 注 意 UserInterfaceOnly 参数设为 True，并应用 Protect 方法。 Sub 保护工作表() Sub 保护工作表() ActiveSheet.Protect Password:=12345 End Sub Sub 取消保护 Sub 取消保护() ActiveSheet.Unprotect Password:=12345 E