Esta protección también ayuda a mantener la coherencia de los datos y a reducir la probabilidad de errores.
A continuación, se muestra un ejemplo de código VBA que puede usar para proteger todas las hojas de cálculo de un libro con una contraseña:
Sub ProtectAllSheets()
Dim ws As Worksheet
Dim password As String
password = “Test123”
For Each ws In Worksheets
ws.Protect Password:=password
Next ws
End Sub
Explicación del código:
- Dim password As String: Declara una variable de contraseña para almacenar la contraseña que se va a utilizar.
- password =“Test123”: Establece el valor predeterminado para la contraseña. Puede reemplazar “Test123” con la contraseña que desee.
- ws.Protect Password:=password: Establece la propiedad Proteger de la hoja de cálculo con una contraseña predefinida, de modo que la hoja de cálculo esté protegida.
Cómo usar macros para desproteger todas las hojas de trabajo a la vez
Desproteger una hoja de cálculo de Excel es indispensable cuando desea cambiar o actualizar datos previamente bloqueados. Si muchas hojas de trabajo están protegidas con contraseña, abrirlas una por una puede llevar mucho tiempo.
Con las macros de VBA, puede desproteger rápidamente todas las hojas de cálculo de un libro, lo que facilita el acceso y la edición de datos.
A continuación, se muestra un ejemplo de código VBA que puede usar para desproteger todas las hojas de cálculo de un libro:
Sub UnprotectAllSheets()
Dim ws As Worksheet
Dim password As String
password = “Test123”
For Each ws In Worksheets
ws.Unprotect Password:=password
Next ws
End Sub
Explicación del código:
- password =“Test123”: Establece el valor predeterminado para la contraseña. Debe reemplazar “Test123” con la contraseña adecuada.
- ws.Unprotect Password:=password: Utiliza la contraseña especificada para abrir la protección de la hoja de cálculo.