¿Cómo desproteger hoja en excel 2013?

H o l a 

para proteger todas la hojas y la clave es 1 

Sub proteger_todo()
For Each h In Sheets
    h.Protect "1"
Next
End Sub

para desproteger todas las hojas y la clave

Sub desproteger_todo()
For Each h In Sheets
    h.Unprotect "1"
Next
End Sub

para proteger una sola hoja y la clave es 1

Sub Proteger()
Sheets("Hoja1").Protect "1"
End Sub

para desproteger una sola hoja y la clave es 1

Sub desProteger()
Sheets("Hoja1").Unprotect "1"
End Sub

Valora para finalizar saludos!