Mostrar/Ocultar contraseña

[leadrudi]

Oportunamente me dijeron que no conocían forma alguna de hacer uso de un botón para mostrar y ocultar la contraseña. La alternativa que me sugirieron era usar dos objetos (uno con máscara y otro sin ella) y ocultarlos o mostrarlos según se necesitara.
Sin embargo encontré una forma muy útil:

Código: Seleccionar todo

For Each vCtrl In Me.Controls
    With vCtrl
        If Left(.Name, 7) = "txtPass" Then If Me.chkShowPass.Value = True Then .InputMask = "" Else .InputMask = "Password"
    End With
Next vCtrl


Se aplica a la casilla de verificación Mostrar contraseña.
De esa forma se aplica la máscara "Password" (con ****) o no se aplica máscara con un mero clic en los campos de texto Contraseña y Repetir contraseña a los que llamé txtPass y txtPassR respectivamente.