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:

ActiveSheet.Unprotect

and to protect the sheet at the end I have

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

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

Thanks
KC