Add unprotect and protect password to Macro

Currently my Macro ask the used for a password. I would like the Macro to enter the password without the user being involved. What do I need to add to have it unprotect and protect the sheet on its own?

Formula:

Please Login or Register  to view this content.

Try this.

Activesheet.Unprotect Password:="password"
Activesheet.Protect Password:="password"

Cheers.

Well I made it work before you your comment payaller.
I used macspie info but I deleted:
DrawingObjects:=True, Contents:=True, Scenarios:=True _

, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

To make it work.... will that effect anything important? Seems to run fine so that

Ended it like this

End With
ActiveSheet.Protect Password:="password"

End Sub