Macro para proteger y desproteger todas las hojas

Me ayudan, necesito una macro que proteja todas las hojas  y también una macro para desprotegerlas

Gracias

1 respuesta

Respuesta
3

Te anexo las macros, cambia "abc" por el password que desees

Sub ProtegerHoja()
'Por.Dante Amor
    For Each h In Sheets
        h.Protect "abc"
    Next
End Sub

'

Sub Desproteger()
'Por.Dante Amor
    For Each h In Sheets
        h.Unprotect "abc"
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas