AllowEditRange 对象

AllowEditRanges AllowEditRange 多个对象

代表受保护的工作表上可进行编辑的单元格区域。

AllowEditRange 对象用法

使用 Add 方法或 AllowEditRanges 集合的 Item 属性可返回一个 AllowEditRange 对象。

返回一个 AllowEditRange 对象后，可用 ChangePassword 方法更改密码，以便在受保护的工作表上访问可编辑的区域。

本示例中，Microsoft Excel 允许用户在活动工作表上编辑单元格区域 A1:A4，并通知用户，然后更改指定区域的密码并将所做的更改通知用户。

Sub UseChangePassword()

    Dim wksOne As Worksheet

    Set wksOne = Application.ActiveSheet

    ' Establish a range that can allow edits
    ' on the protected worksheet.
    wksOne.Protection.AllowEditRanges.Add _
        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