Macro para proteger hoja en Excel

En la entrega anterior se explicó el método para proteger la Hoja de Excel con el resultado esperado pues luego de ejecutar la macro efectivamente no era posible modificar la información de la Hoja; sin embargo este es solo el primer nivel de protección de la hoja pues para poder modificar la hoja solo basta con dar clic en el botón de desproteger la hoja:

Veamos ahora como utilizar nuevamente el Método Protect pero aplicando contraseña a la protección de la hoja y de esta manera al intentar desprotegerla se debe insertar la contraseña correcta.

Método Protect: Con la aplicación de este método, es posible activar la característica de protección sobre la hoja.

Para el siguiente ejemplo, vamos a trabajar con la misma hoja de datos utilizada anteriormente:

Se trata de un pequeño listado de clientes con información básica.

Lo primero es ingresar al editor de Visual Basic, puede ser con la combinación de teclas Alt + F11 y desde el explorador de proyectos, es necesario dar doble clic sobre la hoja donde se requiere crear la macro que para nuestro ejercicio se ubicará en la Hoja1:

Ingresamos el siguiente código:

Sub ProtegerHojaconContrasena()

Sheets("Hoja1").Protect Password:="gerencie.com"

End Sub

Queda de la siguiente manera en el editor VBA:

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

  1. La primera línea Sub ProtegerHojaconContrasena(), indica el inicio de la macro.
  2. En la segunda línea se toma el Objeto Sheets e indicando entre paréntesis el nombre de la hoja (en este caso “Hoja1”); finalmente se activa el método Protect para activar la protección de la hoja con el argumento Password para aplicar una contraseña, en este caso, gerencie.com
  3. La última línea marca el fin (End) de la Macro o Subrutina (Sub).

Para ejecutar la macro, lo ideal es insertar una autoforma en la Hoja1 y luego asignar la macro que acabamos de crear (clic derecho sobre la Autoforma y seleccionar la opción Asignar macro:

Finalmente seleccionar la macro que se acaba de crear:

Y al dar clic sobre el la autoforma, la macro activa la protección de la hoja para que al intentar hacer un cambio en la misma, se impida y presente el siguiente mensaje:

Y al  intentar desproteger la hoja se pedirá la contraseña:

Descargar archivo de trabajo.

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 sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.