Excel VBA教程:Protection对象

   
Worksheet
Protection
AllowEditRanges

代表工作表可使用的各种保护选项类型。

Protection对象用法

可用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

上页:Excel VBA教程:Points集合对象 下页:Excel VBA教程:PublishObject对象

Excel VBA教程:Protection对象

Excel VBA教程:PublishObject对象 Excel VBA教程:PublishObjects集合对象
Excel VBA教程:QueryTable对象 Excel VBA教程:QueryTables集合对象
Excel VBA教程:Range集合 Excel VBA教程:RecentFile对象
Excel VBA教程:RecentFiles集合对象 Excel VBA教程:RoutingSlip对象
Excel VBA教程:RTD对象 Excel VBA教程:Scenario对象
Excel VBA教程:Scenarios集合对象 Excel VBA教程:Series对象
Excel VBA教程:SeriesCollection集合对象 Excel VBA教程:SeriesLines对象
Excel VBA教程:ShadowFormat对象 Excel VBA教程:Shape对象
Excel VBA教程:ShapeNode对象 Excel VBA教程:ShapeNodes集合对象
Excel VBA教程:ShapeRange集合 Excel VBA教程:Shapes集合
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号