Hanoi, one way,

Const PW As String = "123" 'Change Password Here
ActiveSheet.Unprotect Password:=PW
'you code here
ActiveSheet.Protect Password:=PW


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Ha Noi" <Ha wrote in message
...
I create a new macro in my spreadsheet, and now I can't protect it because
the macro won't work. please let me know.
thks
Hanoi