Share via


AllowEditRanges.Add Method

Excel Developer Reference

Adds a range that can be edited on a protected worksheet. Returns a AllowEditRange object.

Syntax

expression.Add(Title, Range, Password)

expression   A variable that represents an AllowEditRanges object.

Parameters

Name Required/Optional Data Type Description
Title Required String The title of range.
Range Required Range Range object. The range allowed to be edited.
Password Optional Variant The password for the range.

Return Value
An AllowEditRange object that represents the range.

Example

This example allows edits to range "A1:A4" on the active worksheet, notifies the user, then changes the password for this specified range and notifies the user of this change.

Visual Basic for Applications
  Sub UseChangePassword()
Dim wksOne As Worksheet

Set wksOne = Application.ActiveSheet

' Protect the worksheet.
wksOne.Protect

' Establish a range that can allow edits
' on the protected worksheet.
wksOne.Protection.AllowEditRanges.<strong>Add</strong> _
    Title:="Classified", _
    Range:=Range("A1:A4"), _
    Password:="secret"

MsgBox "Cells A1 to A4 can be edited on the protected worksheet."

' Change the password.
wksOne.Protection.AllowEditRanges(1).ChangePassword _
    Password:="moresecret"

MsgBox "The password for these cells has been changed."

End Sub

See Also