I'm trying to find a way to programmatically check if a workbooks VBA
project has protection.

I know ActiveWorkbook.VBProject.Protection will tell you if it is
currently locked but that doesn't help if the project has already been
unprotected ie by a user (or another bit of code) has unprotected the
project.

So what i am trying to do is if a VBA project doesn't have any
protection, my code will ask the user for a password and then set the
password by using sendkeys. If they already have the VBA project
protected, it will ask them for their password, then unlock the
project using sendkeys. My problem is when a user opens up the
workbook, manually opens the VBA code by entering the VBA password. If
my code is then run ActiveWorkbook.VBProject.Protection will return 0.
If I had a way to know the VBA project was password protected but
currently unlocked, then i would not need to ask the user for a
password.

Any help would be appreciated.

I'd recommend you read this before proceeding.

http://www.cpearson.com/excel/vbe.aspx
--
HTH,

Barb Reinhardt



"Crookie74" wrote:

I'm trying to find a way to programmatically check if a workbooks VBA
project has protection.

I know ActiveWorkbook.VBProject.Protection will tell you if it is
currently locked but that doesn't help if the project has already been
unprotected ie by a user (or another bit of code) has unprotected the
project.

So what i am trying to do is if a VBA project doesn't have any
protection, my code will ask the user for a password and then set the
password by using sendkeys. If they already have the VBA project
protected, it will ask them for their password, then unlock the
project using sendkeys. My problem is when a user opens up the
workbook, manually opens the VBA code by entering the VBA password. If
my code is then run ActiveWorkbook.VBProject.Protection will return 0.
If I had a way to know the VBA project was password protected but
currently unlocked, then i would not need to ask the user for a
password.

Any help would be appreciated.
.

You need to find the VBProject one way or another. By workbook name,
you can use Workbooks("BookName").VBProject. For the project that is
presently active in the VBA editor, use
Application.VBE.ActiveVBProject. Or, if you know the project name, you
can use Application.VBE.VBProjects("projectName").

Cordially,
Chip Pearson
Microsoft Most Valuable Professional,
Excel, 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com




On Mon, 29 Mar 2010 08:52:46 -0700 (PDT), Crookie74
wrote:

I'm trying to find a way to programmatically check if a workbooks VBA
project has protection.

I know ActiveWorkbook.VBProject.Protection will tell you if it is
currently locked but that doesn't help if the project has already been
unprotected ie by a user (or another bit of code) has unprotected the
project.

So what i am trying to do is if a VBA project doesn't have any
protection, my code will ask the user for a password and then set the
password by using sendkeys. If they already have the VBA project
protected, it will ask them for their password, then unlock the
project using sendkeys. My problem is when a user opens up the
workbook, manually opens the VBA code by entering the VBA password. If
my code is then run ActiveWorkbook.VBProject.Protection will return 0.
If I had a way to know the VBA project was password protected but
currently unlocked, then i would not need to ask the user for a
password.

Any help would be appreciated.