Excel) 保护对象 (
代表工作表可使用的各种保护选项类型。
使用 Worksheet 对象的 Protection 属性可返回 Protection 对象。
返回 Protection 对象后,可以使用 “保护 ”属性设置或返回保护选项。
下例通过在最上面的行中放三个成员并保留该工作表说明了如何使用 Protection 对象的 AllowInsertingColumns 属性。 然后,此示例检查允许插入列的保护设置是否为 False ,并在必要时将其设置为 True。 最后,通知用户插入一个列。
Sub SetProtection()
Range("A1").Formula = "1"
Range("B1").Formula = "3"
Range("C1").Formula = "4"
ActiveSheet.Protect
' Check the protection setting of the worksheet and act accordingly.
If ActiveSheet.Protection.AllowInsertingColumns = False Then
ActiveSheet.Protect AllowInsertingColumns:=True
MsgBox "Insert a column between 1 and 3"
Else
MsgBox "Insert a column between 1 and 3"
End If
End Sub
- AllowDeletingColumns
- AllowDeletingRows
- AllowEditRanges
- AllowFiltering
- AllowFormattingCells
- AllowFormattingColumns
- AllowFormattingRows
- AllowInsertingColumns
- AllowInsertingHyperlinks
- AllowInsertingRows
- AllowSorting
- AllowUsingPivotTables
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。