AllowEditRange.ChangePassword method (Excel) (Método AllowEditRange.ChangePassword [Excel])

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

Sintaxe

expressão. ChangePassword (Palavra-passe)

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 edições ao intervalo A1:A4 na folha de cálculo ativa, notifica o utilizador, altera a palavra-passe deste intervalo especificado e, em seguida, notifica o utilizador 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.