Clear content for all unprotected cells

Clear the content (empty) all unprotected cells in a protected sheet!
This comes in very handy when you want to be able to clear all input fields in a template you have built and protected.

Note: make sure you only run this macro if your sheet is protected, otherwise it clears everything..

Sub ClearSheet()
On Error Resume Next
    ActiveSheet.UsedRange.Value = vbNullString
On Error GoTo 0
End Sub