返回 AllowEditRange 对象。
expression.AllowEditRanges
expression 必需。该表达式返回“应用于”列表中的对象之一。
在本示例中,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