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.