Sistema de autenticación simple con palabra clave

Ahora que ya vimos la ejecución de algunos Eventos, Métodos y Propiedades más comunes y de mayor uso de las macros de Excel para el Objeto Workbook, vamos a realizar una serie de aplicaciones de estos elementos para apreciar mucho mejor la funcionalidad del correcto y eficiente uso en las macros de Excel. En esta entrega se trata de construir un sistema de autenticación, primero vamos a realizar un esquema sencillo con el uso del 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()

PalabraClave = InputBox("Por favor ingrese la palabra clave")

If PalabraClave <> "gerencie" Then

MsgBox ("Palabra clave incorrecta, se cerrará Excel")

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 una palabra clave mediante un cuadro de mesnaje (que veremos más adelante su uso)
  3. En la tercera línea aplicamos la estructura condicional IF para validar SI la palabra clave ingresada no coincide con la palabra “gerencie” y en caso tal se ejecuta la línea 4
  4. En esta línea se presenta un mensaje informando que la palabra clave ingresada no es correcta
  5. Luego de informar que la palabra clave no es correcta se aplicar el método Close del objeto ThisWorkbook para cerrar el libro de trabajo actual.
  6. La última línea marca el fin (End) de la Macro o Subrutina (Sub).

Ahora vemos que una vez intentemos abrir el archivo nos aparece el mensaje solicitando la palabra clave.

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

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.