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

 

[S Oberlander]

 

[Logit]

I am at a loss why it is not functioning at your end.

.....

 

[S Oberlander]

I am at a loss why it is not functioning at your end.

I figured it out. I had renamed "VBAProject" as "Personal".
When I change ("VBAProject Properties...") to ("Personal Properties...") it works.
But I already published it the other way so I think I'll just leave it like that. I've got other stuff to tend to...

If you'll look on the header of my references box, it says Personal, while by yours it says VBAProject

 

[Logit]

Ok ... that makes me feel a lot better knowing it does work on your end. Cheers !

 

[Marctrix14]

Dear @Logit,

I hope you could give me support as I'm trying to use the unlock function you attached in the first page, but I'm getting the same error @S Oberlander got.

I haven't changed the original function's code apart than adding two more "TABs" before entering the password for the first time in the properties window.
I have the same references activaded as @S Oberlander, except from "Ref Edit Control".

To put you in context, in the following thread I explained my goal and my problem (don't focus on the code as the unlock function is not the one that I'm currently using, which is actually the one from this thread) .

How to automatically change a Module code in multiple protected Visual Basic projects

Hi everyone, I'm new to Visual Basic. For the past 2 days I've been trying to make functional an automatic code that should process multiple Excels and change one of the modules code from their respective Visual Basic projects. Each VB project is protected. I used this following code to...

www.mrexcel.com

Thank you.

Best regards,

Marc