Sistema de Autenticación con usuario y contraseña

Por

Ya vimos en la entrega anterior la aplicación del Evento Open y del Método Close del Objeto Workbook al diseñar un sistema de autenticación simple mediante el cual era necesario ingresar una palabra clave al abrir el libro de trabajo y en caso de insertar la palabra incorrecta se cerraba el libro. En esta entrega se trata de construir un sistema de autenticación con Usuario y Contraseña donde también utilizaremos el evento Open y el Método Close del Objeto Workbook.

Evento Open: Al ingresar cualquier macro en este Evento, estas se ejecutarán automáticamente al momento de abrir el libro de trabajo.

Método Close: Con la aplicación de este método, lo que estamos indicando desde VBA es la opción de cerrar el libro de Excel; en caso de que el libro haya sufrido cambios desde la última vez que se guardó, el sistema presenta la ventana de diálogo donde pregunta si se desea guardar los cambios o cancelar la acción.

Desde Excel abrimos el Editor VBA (Alt + F11), y damos doble clic en el Objeto ThisWorkbook donde pegamos el siguiente código:

Private Sub Workbook_Open()

Usuario = InputBox("Por favor ingrese su Usuario")

Clave = InputBox(“Por favor ingrese su clave”)

If Usuario <> "gerencie" Or Clave <> “12345” Then

MsgBox ("Datos de autenticación incorrectos")

ThisWorkbook.Close

End If

End Sub

Queda de la siguiente manera en el Módulo:

Veamos lo que significan cada una de las líneas:

  1. La primera línea Sub Workbook_Open (), indica el inicio de la macro.
  2. En esta segunda línea estamos solicitando que se ingrese un Usuario mediante un cuadro de mensaje (que veremos más adelante su uso).
  3. En la tercera línea estamos solicitando que se ingrese una Clave mediante un cuadro de mensaje (que veremos más adelante su uso.
  4. En la cuarta línea aplicamos la estructura condicional IF para validar SI el Usuario o la Clave ingresada no coincide con la palabra “gerencie” y la clave “12345” respectivamente y en caso tal se ejecuta la línea 5
  5. En esta línea se presenta un mensaje informando que los datos de autenticación no son correctos
  6. Luego de informar que los datos no son correctos se aplicar el método Close del objeto ThisWorkbook para cerrar el libro de trabajo actual.
  7. La última línea marca el fin (End) de la Macro o Subrutina (Sub).

Ahora al abrir el libro nos pedirá los datos de autenticación y en caso de no coincidir la información el libro se cerrará.

Descargar archivo.

Contenido relacionado:
Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.


Déjenos su opinión

4 Opiniones
  1. Gerardo Dice:

    Hola, el ejemplo lo pegue tal como viene pero no puero accesar y me dice que a contraseña es incorrecta aunque lo quegue exactamente como es. como lo puedo desbloquear?

    Responder
    • tonny Dice:

      hola, quizá ya sea muy tarde pero ojalá te sirva la info..
      a mi me había ocurrido lo mismo con un ejemplo que encontré en otro sitio.. pero igual busqué info para saber si podía recuperar mis archivos y si, si pude ojalá y te sirva a ti también.

      el truco consiste en que entres a excel.. (no tu archivo sino al acceso directo de excel como que vas a crear un libro nuevo) entonces entras ahi y unas vez dentro te saldran las opciones de libro en blanco y las otras opciones a la par.. no entres en ninguna... lo único que tienes que hacer es precionar la tecla shift (mantenerla presionada siempre) y desde ahi buscar tu libro y abrirlo desde ahi... y listo.. seguro entraras sin problemas... ya una vez dentro de tu libro si puedes soltar la tecla shift....

      si ya habías borrado el archivo lo siento.. pero espero te sirva para en cualquier otra ocasión

      Responder
  2. Rockelluxon Dice:

    He pegado el código, sin embargo, me indica "error en sintaxis" 🙁

    Responder
    • tonny Dice:

      hola, quizá ya sea muy tarde pero ojalá te sirva la info..
      a mi me había ocurrido lo mismo con un ejemplo que encontré en otro sitio.. pero igual busqué info para saber si podía recuperar mis archivos y si, si pude ojalá y te sirva a ti también.

      el truco consiste en que entres a excel.. (no tu archivo sino al acceso directo de excel como que vas a crear un libro nuevo) entonces entras ahi y unas vez dentro te saldran las opciones de libro en blanco y las otras opciones a la par.. no entres en ninguna... lo único que tienes que hacer es precionar la tecla shift (mantenerla presionada siempre) y desde ahi buscar tu libro y abrirlo desde ahi... y listo.. seguro entraras sin problemas... ya una vez dentro de tu libro si puedes soltar la tecla shift....

      si ya habías borrado el archivo lo siento.. pero espero te sirva para en cualquier otra ocasión

      Responder
En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc., pero debe hacerlo con respeto, sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.