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:

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:

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