Copy code from a protected VBA project

[S Oberlander]

I have this procedure to copy lines of code from a different workbook to the existing workbook, however the workbook being copied from has the vba project protected.
Is there any way around this? Unprotected the project is not an option.

Perhaps its possible to put these lines of code into a string in the code and write that into the existing workbook instead of copying a complete module?

Note the code works fine when I manually unprotect the project but I cannot have it unprotected for other users


Popup when trying to copy the module:

Sub copycode()
'copies code from RP macro wrkbk thisworkbook code module to the active workbook
    Dim WB As Workbook
    Dim MWB As Workbook
    Dim WBCodeMod1 As Object, WBCodeMod2 As Object

    Set WB = ActiveWorkbook
    Windows("RP Macro Wrkbk.xlsb").Activate
    Set MWB = ActiveWorkbook
    ActiveWindow.Visible = False
    ' Copy the Workbook level Event handlers
    
    Set WBCodeMod1 = MWB.VBProject.VBComponents("ThisWorkbook").CodeModule
    Set WBCodeMod2 = WB.VBProject.VBComponents("ThisWorkbook").CodeModule
    WBCodeMod2.InsertLines 1, WBCodeMod1.Lines(1, WBCodeMod1.countoflines)
    
    
End Sub

 

[Logit]

Your request is very confusing.

You want to copy code from a workbook that is protected ... yet you say you can unprotect that workbook.
If you can unprotect the workbook ... what is the issue you are facing ?

My only thought is to included in the macro you posted, code to unprotect the other workbook first, copy the code, then re-protect the workbook.

?????

 

[S Oberlander]

Your request is very confusing.

You want to copy code from a workbook that is protected ... yet you say you can unprotect that workbook.
If you can unprotect the workbook ... what is the issue you are facing ?

My only thought is to included in the macro you posted, code to unprotect the other workbook first, copy the code, then re-protect the workbook.

?????

I don't have code to unprotect and reprotect the workbook, I just manually enter the password
such code would solve my issue

 

[Logit]

If you are speaking of unlocking the VBE where the macro code is pasted :

Lock-UnLock VBAProjects Programmatically without SendKeys

 

[S Oberlander]

If you are speaking of unlocking the VBE where the macro code is pasted :

Lock-UnLock VBAProjects Programmatically without SendKeys

its not working. when I try to lock the project all it does is activate it breifly

 

[Logit]

I tested this version here. It works. I hesitated to provide this one because the first version was more direct in
its application. Paste this into a regular module. You can use Command Buttons to activate or de-activate or you
can use the Workbook_Open and Workbook_BeforeClose commands.

Option Explicit

Sub LockVBAProject()
     With Application
           '//execute the controls to lock the project\\
           .VBE.CommandBars("Menu Bar").Controls("Tools") _
                       .Controls("VBAProject Properties...").Execute
           '//activate 'protection'\\
           .SendKeys "^{TAB}"
           '//CAUTION: this either checks OR UNchecks the\\
           '//"Lock Project for Viewing" checkbox, if it's already\\
           '//been locked for viewing, then this will UNlock it\\
           .SendKeys "{ }"
           '//enter password (password is 123 in this example)\\
           .SendKeys "{TAB}" & "123"
           '//confirm password\\
           .SendKeys "{TAB}" & "123"
           '//scroll down to OK key\\
           .SendKeys "{TAB}"
           '//click OK key\\
           .SendKeys "{ENTER}"
           'the project is now locked - this takes effect
           'the very next time the book's opened...
     End With
     Application.DisplayAlerts = False
     ThisWorkbook.Save
     ActiveWorkbook.Close
    
End Sub

Sub UnLockAndViewVBAProject()
     With Application
           '//we execute the "VBAProject Properties..." control\\
           '//just to invoke the password dialog, the password\\
           '//must be given before the dialog can be shown :) \\
           .SendKeys "123"
           .SendKeys "{ENTER}"
           '//now reset the project password and relock it so\\
           '//that it's locked again when the workbook's closed\\
           .VBE.CommandBars("Menu Bar").Controls("Tools") _
                       .Controls("VBAProject Properties...").Execute
           .SendKeys "^{TAB}"
           .SendKeys "{TAB}" & "123"
           .SendKeys "{TAB}" & "123"
           .SendKeys "{TAB}"
           .SendKeys "{ENTER}"
     End With
End Sub

 

[S Oberlander]

It still didn't work.
I think I will save the code in a new workbook, and I'll copy the code from there instead of the workbook that has all other code being used till now.
That won't have to be protected since it will only contain the code that needs to get copied.

 

[Logit]

It still didn't work.

Please be more specific. Error codes ? Highlighted line of code ? ???

 

[S Oberlander]

runtime error 5 invalid procedure call or argument by .VBE.CommandBars("Menu Bar").Controls("Tools") .Controls("VBAProject Properties...")).Execute

 

[Logit]

Do you have the following REFERENCES selected in TOOLS ?