Método AllowEditRange.ChangePassword (Excel)

Cambia la contraseña correspondiente a un rango que se puede modificar en una hoja de cálculo protegida.

Sintaxis

más sencilla.ChangePassword (contraseña)

expresión Variable que representa un objeto AllowEditRange .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Password	Obligatorio	String	Nueva contraseña.

Ejemplo

En este ejemplo, Microsoft Excel permite modificaciones en el rango A1:A4 de la hoja de cálculo activa, notifica al usuario, cambia la contraseña para este intervalo especificado y, después, notifica al usuario sobre el cambio. Antes de ejecutar este código, es preciso desproteger la hoja de cálculo.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.