Protect-Unprotect VBAProject Programatically

[Scottflyer]

Hi:

I want to protect and unprotect -- with password from a VBA subroutine or function. I'm currently using the following code, but it only works if the VBA Project is open or unprotected, which doesn't serve my purpose:

Set VBP = ActiveWorkbook.VBProject
If ActiveWorkbook.VBProject.Protection = vbext_pp_locked Then
SendKeys "~" & MdP & "~", True
End If
With VBP.VBComponents
.Remove VBP.VBComponents("Module3&quot
.Remove VBP.VBComponents("Module5&quot
End With

I'd prefer to unprotect the project with code, do several operations on modules, like .Export, .Import, .Remove to do a software update for example, etc. and then protect the project at the end of the code. I don't know the method(s) for VBA Project protection and unprotection and the way the password is passed to them [Excel in Office XP]. If anyone can help. Thanks very much!!

Scottflyer

 

[SchizoPhreddy]

Scottflyer,

If you want to access a workbook with out having it active try using:

WorkBooks("myWorkBook&quot

Instead of:

ActiveWorkbook

To protect the workbook, use the following:

Workbooks("myWorkBook&quot.Protect "Password", True, True

The first password is case sensitive, so be carefull. The second parameter specifies whether to protect the worksheet order, and the third parameter specifies whether to protect the workbook window.

To Unprotect the workbook, use the following:

Workbooks("myWorkBook&quot.Unprotect "Password"

Hope this helps,

Schizo