AllowEditRanges Property

object.

expression.AllowEditRanges

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

In this example, Microsoft Excel allows edits to range A1:A4 on the active worksheet and notifies the user of the title and address of the specified range.

Sub UseAllowEditRanges()

    Dim wksOne As Worksheet
    Dim strPwd1 As String

    Set wksOne = Application.ActiveSheet

    strPwd1 = InputBox("Enter Password")

    ' 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:=strPwd1

    ' 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