Macro para proteger una o mas hojas de cálculo

1. Si se desea desarrollar una macro para proteger una de las hojas de cálculo de un archivo EXCEL con una macro, puede hacer lo siguiente:

Sub Ejemplo1 ()

Sheets("Hoja1").Protect Password:="123"

End Sub

'La "Hoja1" de su archivo quedará protegida con la contraseña 123. Si desea desproteger la hoja, deberá ir a la pestaña "Hoja1" del archivo y al seleccionar "Desproteger Hoja" le pedirá la contraseña.

• Si no indica contraseña no necesitará ninguna contraseña para desprotegerla. Es opcional.

2. Si se desea desarrollar una macro para proteger más de una de las hojas de cálculo de un archivo EXCEL con una macro, puede hacer lo siguiente:

Sub Ejemplo2 ()

Dim i As Integer

For i =1 to Sheets.Count

Sheets(i).Protect Password:="123"

End Sub

Para desproteger cada hoja podrá proceder  como se indica en el ítem1 o hacer una macro que las desproteja.

Sub Ejemplo3 ()

Dim i As Integer

For i =1 to Sheets.Count

Sheets(i).Unprotect Password:="123"

End Sub

 

Por: Lucia Clotilde