Para proteger una hoja de cálculo desde una macro, sin contraseña, escribiremos:
Sub Protege_hoja()
ActiveSheet.Protect DrawingObjects:=True
End Sub
Para desproteger la hoja el código a introducir será:
Sub Desprotege_hoja()
ActiveSheet.Unprotect
End Sub
¡La cosa está mal! 