Password protection??

I have the macro code below to unprotect a worksheet, then run a function, and then finally re protect the work sheet.
However i would like to add in a password to be entered when the macro is run, then when the worksheet is re-protected the password is automatically entered.
e.g. the code would say:
1. enter password
2. unprotect worksheet
3. delete selection
4. password protect worksheet.

Please Login or Register  to view this content.

thanks for your reply.

However, when i try to unprotect the worksheet from the tools->protection option then it does not require a password to unprotect. This is obviously unacceptable as the worksheet needs to remain password protected.

any ideas to keep the worksheet password protected before and after running the macro.

thanks

i think you might have misunderstood what i wanted initially. (my fault)
the main problem is re-protecting the worksheet.

The code you have given me password protects the macro not the worksheet -> a macro can only run when the password is entered. (this will still come in handy, so thanks again)
However what i have done is to protect the sheet with password via the tools menu, then i need to run the macro.
The macro cannot run because the sheet is protected so therefore i need to unprotect the sheet. Now if there was no password this is already done, but with password it becomes more difficult and is where i need help.
When the ActiveSheet is unprotected the default 'enter password' box appears and the password is entered and macro will run.
when the sheet is re-protected it is protected without password:

Please Login or Register  to view this content.

So therefore the password needs to be re-entered, this is ideally to be done without a message box, so the password is to be entered automatically within the code.
Again i need help with this part.

The process so far goes like this:
1. The worksheet is protected with password via the tools menu options.
2. The macro is selected to run.
3. Password is required to run macro: 'secret'
4. Password is then again required to unprotect the woksheet
5. macro runs correctly
6. sheet is protected
7. when unprotecting the sheet via the tools menu option the worksheet password is not required <- Core Problem.

thanks again for your replies, hope you have some ideas, thanks.

all it needed was those few extras and it worked, cheers mate