Macro Cambiar a Proteger Bloqueado

[abrahamvj]

Esta macro desprotege una hoja cuya contraseña es 1111, bloquea/proteje todas las celdas y vuelve a proteger la hoja.

Sub proteccionposterior()

'aqui desprotege la hoja
ActiveSheet.Unprotect 1111

'Aqui protege todas las celdas (las que esan sin bloqueo y todas en genral)
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = False

'Aqui vuelve a proteger la hoja con la misma contraseña
ActiveSheet.Protect 1111, DrawingObjects:=True, Contents:=True, Scenarios:=True

'Para dejar en algun sitio el cursor
Range("a1").Select
End Sub

Abraham