Tthe workaround would be to add

ActiveSheet.UnProtect Password:="Whatever"
<Your Code
ActiveSheet.Protect Password:="Whatever"

but someone may have a 'real' answer!