Kelly, here is 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

"Kelly" wrote in message
...
I created 43 sets of workbooks that need to be locked and protected from
end
users. I have created a macro that will clear the previos days numbers
and
copies on cell to another which are both locked. My macro won't run with
those two cells being locked. I tried to create a macro that unprotects
the
worksheet, does all actions needed then protects the worksheet again.
When I
run the macro the first thing that pops up is the password entry box. It
didn't put the password I entered in the code. Can I add the password to
it
and if so how? I'm new at writing macros and code in Excell.
--
Thank you, Kelly