Ascertaining whether a Project is password protected

P

pmartin1960

Hi all

My VB6 app scans a folder for MS Access files, and I need to ascertain
whether a found file has a password protected VB Project. My current
code is:

Dim objAccess As New Access.Application
Dim blnProtected as Boolean

objAccess.OpenCurrentDatabase FileName
blnProtected = (objAccess.VBE.VBProjects(1).Protection =
vbext_pp_locked)

Is this correct? Is there a better test for project protection? Note
that 1 may not be the correct index for VBProjects.

Thanks in advance

Paul Martin
Melbourne, Australia
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Password protection on Access VB Project 4
Ascertaining whether external data sources or hyperlinks exist 3
Ascertaining whether a search in VBA code returns a string or a reserved word 8
Skip password protect files and open non protected files 9
Ascertaining the directory name (2 levels up) 3
How to Cancel the Protect of Excel with VB and save it with a new password again 1
protect / unprotect VBA project by macro 0
How to run a macro at 3AM on password protected project plans? 0

Top