Entradas

Excel vba Entrar al aplicativo validando usuario y contraseña

Imagen
 Para entrar al aplicativo se creó el siguiente UserForm Como en el anterior, primero el de "Salir" que es más sencillo: Private Sub CommandButton2_Click() Unload Me End Sub ************************* Ahora, verifica que el campo de usuario no esté vacío y luego dependiendo de los datos, permite seguir. Private Sub CommandButton1_Click() Dim usuario As String Dim cla As String usuario = TextBox1.Value cla = TextBox2.Value Do Until usuario <> ""                 usuario = "1"                 TextBox1.BackColor = vbYellow  'Coloca color de fondo en amarillo                 TextBox1.SetFocus                 TextBox1.Value = "<Colocar usuario>"                 usuario = TextBox1.Value                 MsgBox "Debe ingresar un usuario vá...
Publicar un comentario
Leer más

Excel vba Crear usuario y contraseña segura

Imagen
 El objetivo es poner los desarrollos que he realizado para que aprendan o me indiquen mejores formas de hacerlo. El primero es una forma de entrar contraseña donde verifica si tiene Mayúscula, Minúscula, números, caracteres especiales y longitud adecuada. También verifica si el usuario ya existe y si las claves si las escribió iguales. Primero se crea el userform El más sencillo es el botón salir: Private Sub CommandButton1_Click() Unload Me End Sub Al dar click al Botón de "Crear Usuario" Private Sub CommandButton2_Click() Dim Mayuscula As Integer Dim Minuscula As Integer Dim Numero As Integer Dim Especial As Integer Dim Clave As String Dim Longitud As Integer Dim Car As String Dim Ascii As Integer Dim Total As Integer Dim usuario As String Dim encontrado As Boolean 'Inicialiso las variables encontrado = False Mayuscula = 0 Minuscula = 0 Numero = 0 Especial = 0 usuario = TextBox1.Value ' Se verifica si se ha puesto algo en el usuario     Do Until usuario <> ...
Publicar un comentario
Leer más