Macro doesnt work when the sheet is protected

Originally Posted by romperstomper

Have the macro unprotect the sheet first and then reprotect at the end:

Sub Clear()
'
' Clear Macro
' Clear
'
'
'
   const strPassword as string = "Password"
   Activesheet.unprotect password:=strpassword
    Range("E6:G11").ClearContents
   activesheet.protect password:=strPassword
End Sub

Working!
Thanks a lot