Excel-password protect sheet w\o causing macro failure...

[Acquaman]

Thank you for taking the time to help.

I would like to password protect the sheets in an application that I have made but, this causes the macro code to fail at:
ActiveSheet.Unprotect
Is there a way to put the password in the code so that the code can continue to be executed? Presently, I have made it hard for someone to unprotect the sheets manually by replacing the menu with my own and blocking key stokes, etc. But, I am still afraid of someone getting around those measures.

Your help is greatly appreciated.
Thanks again.
Acquaman

 

[VBAjedi]

Just put the password (either directly in quotes, or stored in a variable) directly after the unprotect command, seperated by a space:

Sheets("MySheetName").Unprotect PasswordVar
' OR
Sheets("MySheetName").Unprotect "MyPassword"

Let me know if that's what you are after!

VBAjedi

 

[Acquaman]

Hey Mr. Jedi!
You guys never cease to amaze me with how quickly you respond! I hope you know how much all us little guys appreciate it.

That does look like it will do the trick. Nice and simple too. Is there a FIND\REPLACE in the VBE to run through all my code and do the typing for me or am I getting carried away now?

I am off to try it...........
Thanks Again!
Acquaman

 

[VBAjedi]

Yeah, there is Find/Replace under the Edit menu in the VBE.

Glad to help!

VBAjedi