Proteger hojas
Hola amigo.
Mi pregunta es la siguiente:
Tengo un libro con 200 hojas y las quiero proteger ¿cómo podría hacer para proteger-desproteger todas a la vez, sin tener que ir una a una?
Un saludo y gracias anticipadas.
Mi pregunta es la siguiente:
Tengo un libro con 200 hojas y las quiero proteger ¿cómo podría hacer para proteger-desproteger todas a la vez, sin tener que ir una a una?
Un saludo y gracias anticipadas.
Respuesta de t4373125
1
Aquí te pongo una macro que te protege todas las hojas:
Sub ProtegerTodo()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Protect
Next Sheet
End Sub
Luego para desproteger seria lo mismo pero con Unprotect:
Sub DesprotegerTodo()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Unprotect
Next Sheet
End Sub
Si quieres proteger con contraseña (y desproteger) entonces se escribe la contraseña al lado. Ej:
Sheet. Protect "hola"
Sub ProtegerTodo()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Protect
Next Sheet
End Sub
Luego para desproteger seria lo mismo pero con Unprotect:
Sub DesprotegerTodo()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Unprotect
Next Sheet
End Sub
Si quieres proteger con contraseña (y desproteger) entonces se escribe la contraseña al lado. Ej:
Sheet. Protect "hola"
