MENU

Private Sub CommandButton1_Click()
UserForm2.Hide
UserForm3.Show
End Sub
Private Sub CommandButton2_Click()
UserForm2.Hide
UserForm6.Show
End Sub
Private Sub CommandButton3_Click()
UserForm2.Hide
UserForm5.Show
End Sub
Private Sub CommandButton4_Click()
UserForm2.Hide
UserForm4.Show
End Sub
Private Sub CommandButton5_Click()
UserForm2.Hide
UserForm8.Show
End Sub

FORMULARIO PARA CUALQUIER ENTRADA
BOTON DE LOGIN
If cargo.Text = "GERENTE GENERAL" And nombre.Text = "RAUL ROJAS" And contraseña.Text = "101010" Then
MsgBox "Biembenido", vbInformation, "felicidades"
Unload UserForm3
UserForm7.Show
Else
MsgBox "Nombre de usuario o Contraseña Incorrecta", vbCritical, "alerta"
End If

End Sub
Private Sub CommandButton2_Click()
UserForm3.Hide
UserForm2.Show
End Sub

BOTON DE REGRESO A MENU
UserForm7.Hide
UserForm2.Show

FORMULARIO PARA NUEVO USUARIO
BOTON CREAR
If nombre.Value = "" Or contraseña.Value = "" Or cargo.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 = nombre.Value
    Hoja1.Range("b3").Value = contraseña.Value
    Hoja1.Range("c3").Value = cargo.Value
    MsgBox "Su cuenta de Usuario a sido Creada Satisfactoriamente", vbInformation, "felicidades"
    MsgBox "Desea crear una cuenta más", vbYesNo
    nombre.Text = ""
    cargo.Text = ""
    contraseña.Text = ""
    End If