Try this.
[vba]
Sub deleteMe()
ActiveSheet.Unprotect Password:="password"
ActiveCell.ClearContents
ActiveSheet.Protect Password:="password", DrawingObjects:=True
End Sub [/vba]