6 mayo, 2021

INTRODUCIR CONTRASEÑA EN UN USERFORM

Hoy he conseguido unos minutos para escribir el post de la semana :). Y voy a comentar la forma de introducir una contraseña en un userform, es una pregunta que me hizo un lector del blog y creo que es ideal para tratarla hoy.

Para hacer el ejemplo, vamos a utilizar un userform y un textbox en el que introduciremos la contraseña:

INTRODUCIR CONTRASEÑA EN USERFORM
Antes de incluir el código para el ejemplo, como truco, si queréis que cuando se introduzca la contraseña aparezca un carácter especial (normalmente el asterisco "*"), lo podemos especificar directamente en la ventana de propiedades del textbox, en Passwordchar:

INTRODUCIR CONTRASEÑA EN USERFORM_1

Ahora vamos a introducir el siguiente código en el módulo "Thisworkbook":

Private Sub Workbook_Open()
'Cuando el archivo se abre, oculta la hoja 1 y 2
Sheets(2).Visible = False
Sheets(3).Visible = False
'y muestra el userform
UserForm1.Show
End Sub

De forma que cuando abramos el libro, siempre ocultemos las hojas 1 y 2 de nuestro proyecto.

A continuación nos vamos al código del userform y en el botón vamos a introducir la siguiente macro:

Private Sub CommandButton1_Click()
'Si introducimos la clave indicada en el textbox se muestra el mensaje OK
With UserForm1
If UCase(TextBox1.Value) = UCase("a1b1") Then
MsgBox ("LA CLAVE INTRODUCIDA ES CORRECTA"), vbInformation, "CLAVE OK"
'y se muestran las hojas ocultas
Sheets(2).Visible = True
Sheets(3).Visible = True
'Si la clave no es correcta, se muestra el mensaje de clave incorrecta.
Else
MsgBox ("LA CLAVE INTRODUCIDA NO ES CORRECTA"), vbExclamation, "CLAVE INCORRECTA"
End If
'Borramos el contenido del userform
TextBox1.Value = Empty
End With
End Sub

Con esta macro lo que vamos a hacer es mostrar las dos páginas ocultas. En caso de introducir de forma incorrecta la clave (a1b1), simplemente no hará nada y solo mostrará el mensaje de contraseña inválida.

Adicionalmente he introducido la función "Ucase" (que pasa a mayúsculas los caracteres a los que hace referencia), de esta forma aunque introduzcáis la clave en minúsculas o mayúsculas, la validará como correcta. Si queréis que discrimine entre mayúsculas o minúsculas, simplemente la quitáis.

Pues bien, aquí se acaba el post de hoy, espero que os haya resultado de interés:

Descarga el archivo de ejemplo pulsando en: INTRODUCIR CONTRASEÑA EN FORMULARIO

Comparte este post

4 comentario en “INTRODUCIR CONTRASEÑA EN UN USERFORM

  1. Justo andaba buscando algo asi. He visto algunas publicaciones de éste sitio. Todos me parecen muy buenos y útiles.
    Gracias por éste blog.
    Me he suscripto a esta página.

Si te ha gustado o tienes alguna duda, puedes dejar aquí tu comentario.

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies