Excel VBA教程:AllowEditRanges属性

返回AllowEditRange对象。

expression.AllowEditRanges

expression   必需。该表达式返回“应用于”列表中的对象之一。

Excel VBA教程:AllowEditRanges属性·示例

在本示例中,Microsoft Excel 允许用户编辑活动工作表上的区域 A1:A4,并将指定区域的标题和地址通知用户。


Sub UseAllowEditRanges()
    Dim wksOne As Worksheet
    Set wksOne = Application.ActiveSheet
    ' Unprotect worksheet.
    wksOne.Unprotect
    ' Establish a range that can allow edits
    ' on the protected worksheet.
    wksOne.Protection.AllowEditRanges.Add _
        Title:="Classified", _
        Range:=Range("A1:A4"), _
        Password:="secret"
    ' Notify the user
    ' the title and address of the range.
    With wksOne.Protection.AllowEditRanges.Item(1)
        MsgBox "Title of range: " & .Title
        MsgBox "Address of range: " & .Range.Address
    End With
End Sub

上页:Excel VBA教程:AllowEdit属性 下页:Excel VBA教程:AllowFiltering属性

Excel VBA教程:AllowEditRanges属性

Excel VBA教程:AllowFiltering属性 Excel VBA教程:AllowFormattingCells属性
Excel VBA教程:AllowFormattingColumns属性 Excel VBA教程:AllowFormattingRows属性
Excel VBA教程:AllowInsertingColumns属性 Excel VBA教程:AllowInsertingHyperlinks属性
Excel VBA教程:AllowInsertingRows属性 Excel VBA教程:AllowPNG属性
Excel VBA教程:AllowSorting属性 Excel VBA教程:AllowUsingPivotTables属性
Excel VBA教程:AlternativeText属性 Excel VBA教程:AltStartupPath属性
Excel VBA教程:AlwaysSaveInDefaultEncoding属性 Excel VBA教程:Angle属性
Excel VBA教程:AnswerWizard属性 Excel VBA教程:Application属性
Excel VBA教程:ApplyPictToEnd属性 Excel VBA教程:ApplyPictToFront属性
Excel VBA教程:ApplyPictToSides属性 Excel VBA教程:ArabicModes属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号