Compartilhar via


Método AllowEditRange.ChangePassword (Excel)

Altera a senha de um intervalo que pode ser editado em uma planilha protegida.

Sintaxe

expressão. ChangePassword (Senha)

Expressão Uma variável que representa um objeto AllowEditRange .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Password Obrigatório String A nova senha.

Exemplo

Neste exemplo, o Microsoft Excel permite que as edições alcancem A1:A4 na planilha ativa, notifica o usuário, altera a senha para esse intervalo especificado e notifica o usuário da alteração. A planilha deve estar desprotegida antes de executar esse código.

Sub UseChangePassword() 
 
 Dim wksOne As Worksheet 
 Dim strPassword As String 
 
 Set wksOne = Application.ActiveSheet 
 
 ' Establish a range that can allow edits 
 ' on the protected worksheet. 
 
 strPassword = InputBox("Please enter the password for the range") 
 wksOne.Protection.AllowEditRanges.Add _ 
 Title:="Classified", _ 
 Range:=Range("A1:A4"), _ 
 Password:=strPassword 
 
 strPassword = InputBox("Please enter the new password for the range") 
 
 ' Change the password. 
 wksOne.Protection.AllowEditRanges("Classified").ChangePassword _ 
 Password:="strPassword" 
 
 MsgBox "The password for these cells has been changed." 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.