Macro para desproteger todas las hojas de un fichero en Excel

Anteriormente vimos cómo podíamos proteger todas las hojas de un fichero en Excel utilizando una macro. Utilizando esa macro se protegían todas las hojas, impidiendo modificaciones no deseadas. Para poder realizar cambios debíamos desproteger cada hoja una a una, introduciendo la contraseña elegida o bien utilizar otra macro que nos sirviera para desproteger todas las hojas de una vez.

Al igual que nos ocurría cuando intentamos proteger las hojas, si seleccionamos varias hojas se desactiva la opción de Desproteger hoja. Por tanto no nos queda otro remedio que desprotegerlas una a una o mediante una macro.

En la siguiente imagen podemos observar que al haber seleccionado las dos hojas protegidas nos ha desactivado la opción de Desproteger hojas.

Macro para desproteger todas las hojas de un fichero

Crear la macro

Primero debemos de abrir el editor de Visual Basic (VBE) utilizando la combinación de teclas Alt + F11. Hacemos clic sobre el icono de nuestro fichero (ThisWorkbook) con el botón derecho (Insertar – Módulo) o en el Menú (Insertar – Módulo). Se nos abrirá en la parte derecha el editor VBA, en el cual debemos escribir o copiar el código de la macro.

El código de la macro es el siguiente:

Sub DesprotegerHojas()

‘Macro para proteger todas las hojas de un fichero
Dim wksht As Worksheet
For Each wksht In ActiveWorkbook.Worksheets
wksht.Unprotect Password:=»contraseña»
Next wksht

End Sub

Lógicamente deberemos de incluir en la macro la contraseña con la que protegimos las hojas (en mi caso fue la palabra «contraseña«).

Finalmente, guardamos la macro como Libro de Excel habilitado para macros (*.xlsm)

Ejecutar la macro

Deberemos abrir el cuadro de diálogo de Macros. Bien haciendo clic sobre el icono de “ver macros” de la ficha Desarrollador o bien utilizando la combinación de teclas Alt + F8. Del cuadro de diálogo de la macros deberemos de seleccionar la que acabamos de crear y pulsar sobre el botón Ejecutar.

Cuando ejecutamos esa macro no notaremos ningún cambio, pero cuando intentemos cambiar cualquier celda veremos que nos lo permite al estar todas las hojas desprotegidas.