Excel VBA教程:Protect方法

应用于 Chart对象的 Protect方法。

保护图表使其不至被修改。

expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly)

expression   必需。该表达式返回一个 Chart对象。

Password   Variant 类型,可选。为一个字符串,该字符串为工作表或工作簿指定区分大小写的密码。如果省略本参数,不用密码就可以取消对该工作表或工作簿的保护。否则,必须指定密码,通过密码来取消对该工作表或工作簿的保护。如果忘记了密码,就无法取消对该工作表或工作簿的保护。最好在安全的地方保存一份密码及其对应文档名的列表。

DrawingObjects   Variant 类型,可选。如果为 True,则保护图形。默认值为 False。

Contents   Variant 类型,可选。如果为 True,则保护内容。对于图表,这样将保护整个图表。对于工作表,这样将保护锁定的单元格。默认值为 True。

Scenarios   Variant 类型,可选。如果为 True,则保护方案。本参数仅对工作表有效。默认值为 True。

UserInterfaceOnly   Variant 类型,可选。如果为 True,则保护用户界面,但不保护宏。如果省略本参数,则保护既应用于宏也应用于用户界面。

应用于 Worksheet对象的 Protect方法。

保护工作表使其不至被修改。

expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)

expression   必需。该表达式返回一个 Worksheet对象。

Password   Variant 类型,可选。为一个字符串,该字符串为工作表或工作簿指定区分大小写的密码。如果省略本参数,不用密码就可以取消对该工作表或工作簿的保护。否则,必须指定密码,通过密码来取消对该工作表或工作簿的保护。如果忘记了密码,就无法取消对该工作表或工作簿的保护。最好在安全的地方保存一份密码及其对应文档名的列表。

DrawingObjects   Variant 类型,可选。如果为 True,则保护图形。默认值为 False。

Contents   Variant 类型,可选。如果为 True,则保护内容。对于图表,这样将保护整个图表。对于工作表,这样将保护锁定的单元格。默认值为 True。

Scenarios   Variant 类型,可选。如果为 True,则保护方案。本参数仅对工作表有效。默认值为 True。

UserInterfaceOnly   Variant 类型,可选。如果为 True,则保护用户界面,但不保护宏。如果省略本参数,则保护既应用于宏也应用于用户界面。

AllowFormattingCells   Variant 类型,可选。如果为 True,则允许用户为受保护的工作表上的任意单元格设置格式。默认值为 False。

AllowFormattingColumns   Variant 类型,可选。如果为 True,则允许用户为受保护的工作表上的任意列设置格式。默认值为 False。

AllowFormattingRows   Variant 类型,可选。如果为 True,则允许用户为受保护的工作表上的任意行设置格式。默认值为 False。

AllowInsertingColumns   Variant 类型,可选。如果为 True,则允许用户在受保护的工作表上插入列。默认值为 False。

AllowInsertingRows   Variant 类型,可选。如果为 True,则允许用户在受保护的工作表上插入行。默认值为 False。

AllowInsertingHyperlinks   Variant 类型,可选。如果为 True,则允许用户在受保护的工作表中插入超链接。默认值为 False。

AllowDeletingColumns   Variant 类型,可选。如果为 True,则允许用户在受保护的工作表上删除列,要删除的列中的每个单元格都是解除锁定的。默认值为 False。

AllowDeletingRows   Variant 类型,可选。如果为 True,则允许用户在受保护的工作表上删除行,要删除的行中的每个单元格都是解除锁定的。默认值为 False。

AllowSorting   Variant 类型,可选。如果为 True,则允许用户在受保护的工作表上进行排序。排序区域中的每个单元格必须是解除锁定的或取消保护的。默认值为 False。

AllowFiltering   Variant 类型,可选。如果为 True,则允许用户在受保护的工作表上设置筛选。用户可以更改筛选条件,但是不能启用或禁用自动筛选功能。用户也可以在已有的自动筛选功能上设置筛选。默认值为 False。

AllowUsingPivotTables   Variant 类型,可选。如果为 True,则允许用户在受保护的工作表上使用数据透视表。默认值为 False。

说明

如果对工作表应用 Protect方法时,将 UserInterfaceOnly参数设置为 True,然后又保存了工作簿,那么再次打开工作簿时,整张工作表将被完全保护,而并非仅仅保护用户界面。若要在再次打开工作簿后重新启用用户界面保护,必须再次将 UserInterfaceOnly参数设置为 True 并应用 Protect方法。

若要在受保护的工作表上做更改,如果提供密码,则可在受保护的工作表上使用 Protect方法。同样,取消工作表保护的另一种方法是:对工作表做一些必要的更改,然后再次保护工作表。

注意   “取消保护”的意思是可以锁定单元格(“单元格格式”对话框),但是单元格要包含在“允许用户编辑区域”对话框中定义的单元格区域内,并且用户通过密码或经 NT 权限验证,已取消对单元格区域的保护。

应用于 Workbook对象的 Protect方法。

保护工作簿使其不至被修改。

expression.Protect(Password, Structure, Windows)

expression   必需。该表达式返回一个 Workbook对象。

Password   Variant 类型,可选。为一个字符串,该字符串为工作表或工作簿指定区分大小写的密码。如果省略本参数,不用密码就可以取消对该工作表或工作簿的保护。否则,必须指定密码,通过密码来取消对该工作表或工作簿的保护。如果忘记了密码,就无法取消对该工作表或工作簿的保护。最好在安全的地方保存一份密码及其对应文档名的列表。

Structure   Variant 类型,可选。如果为 True,则保护工作簿结构(工作表的相对位置)。默认值为 False。

Windows   Variant 类型,可选。如果为 True,则保护工作簿窗口。如果省略本参数,则窗口不受保护。

Excel VBA教程:Protect方法·示例

应用于 Chart 和 Worksheet对象。

本示例保护活动工作表。可以验证工作表是受保护的,方法是:在活动工作表的任意单元格中输入一个值。


Sub ProtectSheet()
    ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True
End Sub

本示例保护活动图表。可以验证图表是受保护的,方法是:在活动工作表的任意单元格中输入一个值。本示例假定图表存在于应用程序中。


Sub ProtectChart()
    ActiveChart.Protect Scenarios:=True, UserInterfaceOnly:=True
End Sub

上页:Excel VBA教程:PrintPreview方法 下页:Excel VBA教程:ProtectSharing方法

Excel VBA教程:Protect方法

Excel VBA教程:ProtectSharing方法 Excel VBA教程:Publish方法
Excel VBA教程:PurgeChangeHistoryNow方法 Excel VBA教程:Quit方法
Excel VBA教程:RadarGroups方法 Excel VBA教程:RangeFromPoint方法
Excel VBA教程:RecheckSmartTags方法 Excel VBA教程:Record方法
Excel VBA教程:RecordMacro方法 Excel VBA教程:Refresh方法
Excel VBA教程:RefreshAll方法 Excel VBA教程:RefreshData方法
Excel VBA教程:RefreshTable方法 Excel VBA教程:RegisterXLL方法
Excel VBA教程:Regroup方法 Excel VBA教程:RejectAllChanges方法
Excel VBA教程:ReloadAs方法 Excel VBA教程:RemoveAllItems方法
Excel VBA教程:RemoveItem方法 Excel VBA教程:RemoveSubtotal方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号