|
hola, aqui 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"
Un saludo,
Ramon
|
