Instrucción en macro para proteger y desproteger una hoja

Te anexo las instrucciones

Sub ProtegerDesproteger()
'
'Para desproteger la hoja
    ActiveSheet.Unprotect "abc"
'Para proteger la hoja
    ActiveSheet.Protect "abc", DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
End Sub

Saludos.Dante Amor