Password Prompting?

**WinterCoast** · 03-13-2005, 10:50 AM

I have a workbook that tracks my daily financial information at work. I have written a new macro that resets the workbook at the end of the week. However, it is critical that this macro not be run until that time.

Is there anyway to write a password prompt into the macro so that if someone accidentedly presses the button I have assigned to it, it is protected from being ran?

Currently, I have the button sitting on the page as a placeholder to keep this from happening.

Thanks,
Scott

**dominicb** · 03-13-2005, 12:21 PM

Good afternoon Scott

Attached as a zipped .xls is a very simple piece of code which calls a userform asking for a password. If the password is not "password" (original eh? - feel free to change it) the code terminates, otherwise it runs.

This utilises a userform which is why I haven't listed the code. It will not keep out someone determined to run your macro, but to the average user it should stop them getting far enough to cause a problem.

HTH

DominicB

**WinterCoast** · 03-13-2005, 06:43 PM

Thanks, that was exactly the type of thing I was looking for. It's not so much a security feature as it is something to prevent the macro being run accidentedly.

Scott

**dominicb** · 03-14-2005, 03:29 AM

You're welcome. Thank you for the feedback.

DominicB

**WinterCoast** · 03-19-2005, 11:10 AM

Everything is working exactly like I wanted now except for one thing. After running the macro, the next night when we go to run it again, the password is still in the text entry box.

Is there a line of code that I can put in that will make sure the password is cleared after the macro runs?

Scott

**RGC** · 03-19-2005, 11:26 AM

Try putting:

TextBox1.Value = ""

just below the IF line and just below the END IF line.

Regards,

Ron C

**sungen99** · 05-03-2005, 01:47 PM

I cant download that ZIP. DOH!!! Help please?

**vamosj** · 05-03-2005, 02:13 PM

Another way to go is just have at the beginning of your macro the following lines

PSW = InputBox("Please enter your Password.")
If PSW = "Password" Then

Else
MsgBox ("That is incorrect")
Exit Sub

This way it is not put down anywhere and only shows up in the macro.