Protect VBA project using VBA

Question

When my VB project finishes running, it saves a new copy of the excel workbook, and then e-mails this to a provided distribution. When the code is run, the VB project should be unprotected, allowing any error thrown by the VBE to be "debugged" (which is not possible for locked projects - unfortunately the reasons for debugging cannot be accounted for within the error handler; it's mainly relating to a query which runs against a SQL server database).

However, I wish for the VB project to be protected once it's saved down as the new copy, preventing anyone who receives the distributed copy being able to access the VB project.

I've had a search, and couldn't seem to find any answer relating to locking a VB project using VBA. Any guidance is appreciated.

Why not cut the routine up to saving a new copy then protect it manually and email it afterwards. I'm assuming we're only talking about 1 file. — L42
– L42, Commented Jun 30, 2015 at 9:44
It's an option.. if it is possible to automate though, the lazy side in me would rather that. — luke_t
– luke_t, Commented Jun 30, 2015 at 9:59

Maciej Los · Accepted Answer · 2015-06-30 10:43:51Z

2

Based on this thread:

Sub ProtectVBProject(WB As Workbook, ByVal Password As String) 

    Dim VBP As VBProject, oWin As VBIDE.Window 
    Dim wbActive As Workbook 
    Dim i As Integer 

    Set VBP = WB.VBProject 
    Set wbActive = ActiveWorkbook 

    ' Close any code windows To ensure we hit the right project 
    For Each oWin In VBP.VBE.Windows 
        If InStr(oWin.Caption, "(") > 0 Then oWin.Close 
    Next oWin 

    WB.Activate 
    ' now use lovely SendKeys To unprotect 
    Application.OnKey "%{F11}" 
    SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & Password & "{TAB}" & Password & "~" 
    Application.VBE.CommandBars(1).FindControl(Id:=2578, recursive:=True).Execute 
    WB.Save 
End Sub

answered Jun 30, 2015 at 10:43

Maciej Los

8,6211 gold badge22 silver badges36 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

luke_t Over a year ago

Thanks Maciej.. from reading the thread I have noted that it's absolutely not a good idea to use send keys. I have chosen not to go ahead and use this solution, however I will accept your answer as it appears to be the only solution available (although with some risk). Thanks!

findwindow Over a year ago

Have you looked into using Windows API? stackoverflow.com/questions/30508341/…

Collectives™ on Stack Overflow

Protect VBA project using VBA

1 Answer 1

2 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related