I had this same problem when doing my ICT project.

You add:

ActiveSheet.Unprotect <PASSWORD

Before you do the code, and:

ActiveSheet.Protect <PASSWORD, True, True, True

Afterwards.

I hope this helps.

Matthew