Compartir a través de

Método AllowEditRange.ChangePassword (Excel)

  • Artículo

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

Sintaxis

expresión. 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 editar el rango A1:A4 en la hoja de cálculo activa, notifica al usuario, cambia la contraseña de este intervalo especificado y, a continuación, notifica al usuario 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.