Create Password Protection with a macro

Hi,

I have a macro written, and I when it starts I would like it to unprotect the sheet, then at the end protect the sheet with a password. Currently I have this to unprotect:

Please Login or Register  to view this content.

and to protect the sheet at the end I have

Please Login or Register  to view this content.

But how do I create a macro to protect the sheet using a password?

Thanks
KC

It's just:

Please Login or Register  to view this content.

Note: I altered your QUOTE tags to CODE tags.