Objeto AllowEditRange

AllowEditRanges AllowEditRange Vários objetos

Representa as células que podem ser editadas em uma planilha protegida.

Usar o objeto AllowEditRange

Use o método Add ou a propriedade Item da coleção AllowEditRanges para retornar um objeto AllowEditRange.

Depois que um objeto AllowEditRange foi retornado, você pode usar o método ChangePassword para alterar a senha e acessar um intervalo que pode ser editado em uma planilha protegida.

Neste exemplo, o Microsoft Excel permite a edição do intervalo "A1:A4" na planilha ativa, notifica o usuário, altera a senha para esse intervalo especificado e informa essa alteração ao usuário.

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