Adding Password Attempts

Hi. I have a dedicated button on my main data sheet which protects and unprotects it (password protected) when it is unprotected it only allows the user to input in a given range, so other codes are not deleted.

I am wondering if someone with more knowledge than me (not hard) can help with a little task. The following code works great but I would like the user to have 3 attempts at inputting the password before the workbook closes itself.

is it possible to display a message after each attempt, say "Wrong password, Please try again" or something?

Any help will be much appreciated

Thanks

code is as follows

Please Login or Register  to view this content.

Sorry. post has been submitted on another forum too. please see below:
http://www.ozgrid.com/forum/showthread.php?t=155061

If I get a reply I will update accordingly

Thanks
Scott

The user has to input the password to be able to edit the range.

Thanks

Thanks Roy for your reply

I am new to VBA, been working on it for a week or two now but the code stated seems to work ok? been tested now for a few days.

I will take anything that you guys say as gospel as I am only a learner. can you help then with my query?

My Protect Sheet button protects entire worksheet and when pressed, changes name to Unprotect Sheet. once the sheet is unprotected, only range C4:L55 can be modified.

Can you help with a much user friendly code?

Thanks
Scott

Thanks for your reply Roy you have been more than helpful.

Your help on last post worked great but I was struggling with only allowing users to edit one particular range, so went down another path.

Sorry for being a pain

Thanks again

Scotty

Sorry about this Roy, I am getting the same runtime error 438.

object doesn't support this proprty or method.

doesn't like the line:
ActiveSheet.Protection.AlliwEditRanges(1).delete

Scotty

I know Pike said to unlock the specific cells but what I was after was code to unlock a specific range and keep the rest of the worksheet protected. That's what the original code seemed to do. I came across addeditrange from a help file.

if the sheet is protected- all cells locked
if the sheet is Unprotected - only range B4-L55 unlocked, the rest of the worksheet remains locked.

Thanks again
Scotty