Como proteger tus formularios hechos en Visual Basic (Segunda Parte)

Hola!! ahora vermos la segunda parte, de Como proteger tus formularios hechos en Visual Basic donde crearemos mas de un Userfrom y los uniremos para formar uno solo.

Bueno comenzemos.

Primero crearemos nustra base de datos en una hoja de excel la cual servira para colorar mas de un usuario y cada uno tendra su propia contraseña te quedara algo asi.

 

Luego creas una macro con los siguentes pasos:

1. presionas grabar macro

2. haces clic seleccionando la fila que esta debajo de "Nombre de Us... y Contraseña

3. Das enter

4.Detienes la macro.

 

 

Luego te vas a Visual Basic y creas y editas tus UserFroms, en este caso utilizaras tres. El primero sera el que vimos en la entrada anterior, el sugundo sera un menu, y el tercero sera un formulario para registrar a nuevos usuarios que puedan ingresar a tus datos.

Y te quedaran algo asi.

 

 

 

(en el formulario que llamaremos MENU iran accesos a otros formularios pero por ahora solo lo dirigiremos a uno, y los demas quedaran pendientes para la proxima entrada)

El primero formulario ex exactamente igual al que vimos anterior mente, ahora el segundo (MENU) con programaremos con los siguientes codigos:

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

*Eso es todo para el boton que tenemos en el formulario menu*

Ahora los codigos para programar el tercer formulario de (NUEVO USUARIO)  seran lo siguientes.
Se programaran solo los dos botones,
EL BOTON DE "CREAR"

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

Los primeros los encontras en tu modulo, osea en tu macro que creeaste a principio.

EL BOTON "REGRESAR A MENU"
tiene los siguientes codigos:

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

♥------------♥---------------------♥----------------♥-----------------♥------------------♥----------------♥--------♥

*LISTO TERMINADAO*