Log-In en Visual Basic

Se inicia creando un formulario con la siguiente estructura (conteniendo labels, textbox, comandbuttons)

En el CommandButton de "Entrar" se copia la siguiente condición:

Private Sub entrar_Click()

If usuario.Text = Hoja1.Range("a1") And contraseña.Text = Hoja1.Range("b1") Or usuario.Text = Hoja1.Range("a2") And contraseña.Text = Hoja1.Range("b2") Or usuario.Text = Hoja1.Range("a3") And contraseña.Text = Hoja1.Range("b3") Or usuario.Text = Hoja1.Range("a4") And contraseña.Text = Hoja1.Range("b4") Or usuario.Text = Hoja1.Range("a5") And contraseña.Text = Hoja1.Range("b5") Or usuario.Text = Hoja1.Range("a6") And contraseña.Text = Hoja1.Range("b6") Or usuario.Text = Hoja1.Range("a7") And contraseña.Text = Hoja1.Range("b7") Then

MsgBox "Bienvenido a Shot's System", vbInformation, "felicidades"

Unload login

menu.Show

Else

MsgBox "Nombre de usuario o Contraseña Incorrecta", vbCritical, "alerta"

End If

End Sub

Y en el botón "Cancelar" se copia el siguiente código, el cual cerrará automáticamente el formulario al cancelar la operación.

Private Sub cancelar_Click()

Unload login

End Sub

Al ingresar datos correctos o ya existentes en la matriz, aparecerá un msgBox con el mensaje "Bienvenido", el cual deberá trasladar al siguiente formulario.

Trasladará al siguiente formulario, que será el Menú, en el cual se encuentra el botón de opción para Ingresar un Nuevo Usuario (con su respectiva contraseña)

En el CommandButton para Ingresar Nuevo Usuario, se pega el sig. código:

Private Sub CommandButton1_Click()

menu.Hide

nuevousuario.Show

End Sub

(Se utiliza menu.Hide, porque ésta fué la denominación que se le dió al userform)
Al correr el menú, el botón deberá trasladar al formulario del nuevo ingreso de usuarios.
El Userform deberá verse algo como ésta estructura:

En el botón de "Crear" se copia el siguiente código:

Private Sub crear_Click()

If nusuario.Value = "" Or ncontraseña.Value = "" Then

MsgBox "Por favor debe llenar todos los Datos", vbCritical, "alerta"

Else

Hoja1.Rows("3:3").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Hoja1.Range("a3").Value = nusuario.Value

    Hoja1.Range("b3").Value = ncontraseña.Value

    MsgBox "Su cuenta de Usuario a sido Creada Satisfactoriamente", vbInformation, "felicidades"

    MsgBox "Desea crear una cuenta mas", vbYesNo

    nusuario.Text = ""

    ncontraseña.Text = ""

    cncontraseña.Text = ""

    End If

 End Sub

(lo que se encuentra en morado, son las denominaciones que le fueron cambiadas a los textbox, en lugar de los nombres predeterminados)

En el botón de "Regresar a Menú" se copia el código que cierra el userform actual, y conduce al anterior:


Private Sub regresar_Click()
nuevousuario.Hide
menu.Show
End Sub