Clear.Contents does not work when Password protected for sheet. Please help. Sheet's name is "Project SL Assessment Checklist".

Private Sub CommandButton1_Click()

Range("I47:K59").ClearContents
Range("G12:J42").ClearContents

ActiveSheet.Range("H12").Select

End Sub