Visual Basic (II) – Validacion Usuario y Password

Vamos a ver como poner usuario y contraseña en un libro:

En una hoja disponible de tu libro… para este ejemplo vamos a suponer que es la hoja2.
Vas a poner
Celda A1 = Nombre de Usuario
Celda B1 = Contraseña
Esos son los títulos donde tu vas a registrar tus datos de Usuario y Contraseña
ahora la celda a2 = User
en la celda b2 = 1234
Estos serán los datos de usuario y contraseña
tu usuario es User y la contraseña es 1234
A Continuación te vas a l editor de Visual Basic
Menu-Herramientas-Macros-Edistor de Visual Basic o, presiona Ctrl+F11
Inserta Un Modulo Nuevo
Inserta Un UserForm
Selecciona el UserForm, Presiona el botón derecho del Mouse y selecciona Propiedades
dentro de Propiedades busca la Propiedad Caption, en esa Propiedad ponle: Datos de Acceso, si te fijas en el User Form se pone como titulo Datos de Usuario
Ahora Bien:
En la barra de herramientas de tu editor, hay una herramienta que se llama caja de herramientas (Tools Box), Dale Click
de el Cuadrito de Herramientas que se activam Dale Click a la que tiene una A, sin siltar el botón delmause, arrastrala y suéltala en elarea de tu UserForm, Edítala y Ponle “Usuario”
Repite el proceso anterior, pega otra etiqueta y le pones el nombre de “Contraseña”
Hata aquí ya tienes la etiquetas en tu UserForm.
Ahora:
De la mima Caja de Herramientas selecciona la que tiene abl, dale Click y sin soltar el botón del mouse arrastrala y suéltala en el área del UserForm,
Repite el Proceso anteriores y pega otro TextBox,
Si te fojas ciando tu das clicken cualquier objeto se selecciona y tu lo puedes mover y ubicarloen el área que tu desees…
Bueno, después seleccionamos el segundo TexBox, presionamos el botón derecho del mouse y seleccionamos Propiedades.
Cuando se habré el cuadro de propiedades, buscamos una que se llama “PasswordChar”, a esa propiedad le ponemos un “*”
Nota: esto es para que cuando tu escribas la cintraseña aparezcan arteriscos,
Hasta aquí ya tenemos el UserForm, Las Etiquetas. Y los Cuadros de Texto…
Ahora siguen los Botones de Aceptar y Cancelar.
Ahora, de la cajita de Texto Damos Click en el Botón, sin soltar el botón del mouse, arrastramos y soltamos en el área del UserForm, Damos Click Al botón que acabamos de insertary presionamos el botón derecho del mouse, seleccionamos propiedades, y en la Propiedad Caption, le ponemo “Aceptar”.
Repetimos el Proceso anterior e insertamos otro botón, pero a este en la Propiedad Caption, le ponemos “Cancelar”.
Hata Aqui ya tenemoslaparte Grafica del Poryecto…Ahora sigue la Programacion..
Para esto seleccionamos el Botón Aceptar, le presionamos el botón derecho del mouse, seleccionamos Ver Código, y cuando se habrá el campo para la edición ponemos nuestro Código siguiente.
Debe quedar así:

Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Value = WorkSheets(“Hoja2”).Range(“a2”).Value and UserForm1.TextBox2.Value = WorkSheets(“Hoja2”).Range(“b2”).Value
‘ Nota: La instruccion anterios va en una sola linea pega la segunda despues de and
Sheets(“hoja1”).select
Unload Me
Else
Unload Me
ThisWorkBook.Close
End Sub

Hora Bien, en la parte izquierda de tu computadora donde dice UserForm1, dale Click, selecciona el botón de Cancelar, presiona el botón derecho del mouse, selecciona ver código, y ponle
Debe quedar así:
Private Sub CommandButton2_Click()
Unload Me
ThisWorkBook.Close
End Sub

Hasta aquí ya esta listo el UserForm de isentificacion..
Ahora para que el formulario aparezca cuando entramos al archivo hacemos lo siguiente:
Insertamos un Modulo con el menu insert
Cramos una macro AutoEjecutable, para que la misma macro nos autoejecute el UserForm cuando abrimos el libro..
Su nosotros del damos el de Auto_Open a una macro, esta se autoejecutara al abrir el libro,
entonces le ponemos en el modulo que insertamos le ponemos:

Sub Auto_Open()
UserForm1.Show
End Sub

Ahora ya creamos la macro, ya creamos el UserForm y sus Componentes, y ya registramos los Datos de Usuario y Contraseña, todo esta listo…

Nota importante: Tu libro debe de tener una hoja con el nombre de hoja1, y otra con el nombre de hoja2, porque a esas hojas hacen referencia el código del botón Aceptar—
Tu puedes cambiar los nombres, siempre y cuando también le cambies el nombre en el código…
Cierra y abre tu archivo…
Recuerda
El nombre de Usuario es usery lac ontraseña es 1234
También estos datos los puedes cambiar, si vas a la hoja2. Si le pones otro usuario y otra contraseña serán esos datos.
Saludos—