Sistema de Autenticación con usuario y contraseña

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:
Compartirlo
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

2 Opiniones
  1. Jorge dice:

    Hola Oscar.
    He descargado tu ejemplo y me ha funcionado muy bien.
    Me surge la duda ya que el libro lo pude abrir sin necesidad de ingresar el usuario ni la contraseña ya que no se ejecuta la macro automáticamente porque me pregunta antes y al colocar “no habilitar macros” no se ejecuta y accedo al contenido del libro. ¿Sabes si existe alguna forma de solucionar este caso para evitar el acceso sin macro?

    Quedo atento, muchas gracias.

    Jorge

  2. 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?

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.