How To Copy Module(s) To Workbook In Different Path

Want to Copy a Module(s) to another workbook in a different path and also password protect it at the same time using VBA.

I need to copy some Module(s) from One WorkBook to another using VBA..

I have used the following code to good effect, however my TargetWb is not at the same path, so I need some modification in this code if that's possible and also this VBA Module which is Copied and Pasted in the Target WOrkbook needs to be Password Protected so that it cannot be tampered.

The code which I'm using currently is:

Code:

Sub CopyModule(SourceWB As Workbook, strModuleName As String, _
TargetWB As Workbook)
' copies a module from one workbook to another
' example:
' CopyModule Workbooks("Book1.xls"), "Module1", _

[Code]...

Code:

Sub Try()
Call CopyModule(Activeworkbook, "Module1", TargetWb)

on this to pass the TargetWb as a variable which can be generated in the code used for generating the File using a Macro..

End Sub

In the above code The SourceWB would be the ActiveWorkbook and the Target Workbook is the file created using another Macro from several sheets of the Active Workbook and its created in a folder with a specific name and therefore the Path is one more level inside than the Active Workbook.

if the Transferred Module can be Passworrd Protected and Locked for editing..for the end user.