Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Formulario para ingresar a Banca por Internet

| 2 comentarios

DESCRIPCIÓN

La banca por Internet es un canal electrónico que se pone a disposición de los clientes de un Banco para que a través del Internet se consulte los movimientos de una cuenta o se realice alguna operación vía local o al exterior, ya sea desde la comodidad de la casa u oficina de forma rápida y segura.

Por lo tanto, lo que se intenta aquí es crear el sistema de seguridad de ingreso a esta Banca por Internet para personas y si en caso no se pudiera ingresar, automáticamente se sale de esta plataforma que esta hecha en excel.

PROCEDIMIENTO

1. Creamos un UserForm con las siguientes características con el formulario en VBA de macros:

Imagen1

Entonces colocamos los siguientes comandos dentro del cuadro correspondiente a "Siguiente":

Private Sub CommandButton1_Click()
If Len(TextBox1) <> 6 Then
MsgBox "Incorrect Username: Enter 6 digits"
End If
If TextBox2 <> "1234" Then
MsgBox "Incorrect Password: Enter 4 digits"
End If
If Len(TextBox1) = 6 And TextBox2 = "1234" Then
UserForm1.Hide
UserForm2.Show
End If
End Sub

Esto con el fin para que el username del cliente tenga 6 caracteres y la contraseña tenga 4 caracteres, en este caso será "1234". En el caso que el usuario de click en "SALIR" automaticamente se cerrará la plataforma.

Private Sub CommandButton2_Click()
Application.Quit
End Sub

2. Luego de dar click en "Siguiente", lo que se hará es crear un nuevo UserForm con las siguientes características:
IMAGEN2

Entonces el comando puesto en el botón "Aceptar" es el siguiente:

Private Sub CommandButton1_Click()
If Len(TextBox1) <> 6 Then
MsgBox "Respuesta de Seguridad Incorrecta: Ingrese 6 dígitos"
End If
If Len(TextBox2) <> 6 Then
MsgBox "Respuesta de Recordatorio Incorrecta: Ingrese 6 dígitos"
End If
If Len(TextBox1) = 6 And Len(TextBox2) = 6 Then
UserForm2.Hide
MsgBox "Bienvenido:" & " " & TextBox1.Text
Cells(1, 1) = "Usuario:" & " " & TextBox1.Text
Selection.Font.FontStyle = "bold"
End If
End Sub

La respuestas tienen que tener caracteres de 6 digitos para poder continuar. El mismo caso es si se pone la opción Salir porque se cerrará la hoja.

3. Luego de poner click en SALIR y haber puesto correctamente los caracteres en los espacios en blanco, aparecerá el siguiente cuadro al usuario:
IMAGEN3

4. Luego de ello, podrá ver sus movimientos.

En conclusión, este formulario puede ser usado tanto para banca por internet como también para otros procesos que requieran seguridad máxima.

Se adjunta el archivo para que puedan ingresar: Seguridad de Banco

 

Autor: Juan Palomino

2 comentarios

  1. Muy interesante formulario. Cuando se revisa el código:

    Private Sub CommandButton1_Click()

    If Len(TextBox1) 6 Then
    MsgBox "Incorrect Username: Enter 6 digits"
    End If
    If TextBox2 "1234" Then
    MsgBox "Incorrect Password: Enter 4 digits"
    End If
    If Len(TextBox1) = 6 And TextBox2 = "1234" Then
    UserForm1.Hide
    UserForm2.Show
    End If

    End Sub

    ¿Hay alguna manera para hacer que los dígitos tecleados se oculten como asteriscos? porque cuando se escribe el Password este se puede ver?

    Saludos

  2. La manera de que no se vea es busca en las propiedades de los TextBox y donde dice "PaswordChar" agrégale un asterisco (*) el resultado es que en vez de ver los números o letras veras ese símbolo.

Deja una respuesta

Los campos requeridos estan marcados con *.