Como proteger tus formularios hechos en Visual Basic

HOLA!! Hoy veremos una forma de proteger tus formularios desde Visual Basic.

OK COMENZEMOS

Primero que nada debemos de acceder a un libro de excel y colocarnos en el menu del Programador

Luego diseñaremos nuestro primer Userfrom, con el estilo que nosotros querramos pero tomando en cuenta que se le debe colocar lo siguiente
un textbox para escribir el nombre de usuario y otro para escribir la contraseña.
un boton que diga Login y otro que diga Cerrar.
Y segun su estilo les quedara algo asi:

Luego nos vamos al boton login y lo configuramos con los siguientes codigos.

Private Sub login_Click()
If usuario.Text = "Lopez" And contraseña.Text = "12345" Then
MsgBox "bienvenida señorita Lopez"
Application.Visible = True
Unload UserForm1
Else
MsgBox "nombre o contraseña incorrecta", vbCritical, "alerta"

End If
End Sub
OBSERVACIONES:
 Donde dice If usuario.Text = Lopez ----► es para colocar la clave de usuario aca pueden colocar su nombre, un apodo o tu apellido
Donde dice contraseña.Text = "12345" ----► es para colocar la contraseña de proteccion (coloca algo que no se te olvide)
En conclucion todo lo que valla dentro de "" (comillas) lo puedes cambiar a tu gusto

Ahora programaremos el textbox1 con los siguientes codigos:

Private Sub contraseña_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
contraseña.Text = ""
contraseña.ForeColor = &H400040&
contraseña.PasswordChar = "*"
End Sub

OBSERVACIONES:
Aca si no se pueden cambiar los codigos a excepcion de (contraseña.ForeColor = &H400040&) ya que esto le da el color opaco a las letras que apareceran por defento en el textbox1 gracias a los codigos anteriores, en mi caso le coloque un color gris a las letras ( &H400040&)

 

Ahora programaremos el textbox2 con los siguientes codigos:



 

Private Sub usuario_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
usuario.Text = ""
usuario.ForeColor = &H400040&
End Sub

OBSERVACIONES:
Aca si no se pueden cambiar los codigos a excepcion de (usuario.ForeColor = &H400040&) ya que esto le da el color opaco a las letras que apareceran por defento en el textbox2 gracias a los codigos anteriores, en mi caso le coloque un color gris a las letras ( &H400040&)

Y por ultimo programaremos el bonto de cancelar con los siguientes codigos: 

Private Sub cancelar_Click()
Unload UserForm1
End Sub

LISTO
A la hora de ejecutarlo y llenar los datos te aparecera algo asi:

A la hora de correrlo te aparecera un mensaje de bienbenida como este:

ESO FUE TODO POR AHORA.
LUEGO LES TRAERE LA SEGUNDA PARTE DONDE AGREGAREMOS MAS FORMULARIOS A ESTE QUE ACABAMOS DE REALIZAR.