using one wb macro to open another wb VBAproject password

[clng]

Hi,

I need some advice here. I am currently using a file to change the macro that had already been sent out to various users.

In the file, the macro is set to replace amended module 5 with those files that are already sent out (debugging). But I do not want to give users my VBAProject password, just in case they mess up the macro.

Sub POSht()

'Dim wbkTo As Workbook
Dim wbkFrom As Workbook
Dim TheFile As Variant
Dim FName As String
'




With Workbooks("Fix POsht.xls")
FName = .Path & "\code.txt"
.VBProject.VBComponents("Module5").Export FName
End With

NewFN = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please select a file")
If NewFN = False Then
' They pressed Cancel
MsgBox "You did not select a file"
Exit Sub
Else
Workbooks.Open Filename:=NewFN, UpdateLinks:=0
End If

With Application
'Go to the VBE
.SendKeys "%{F11}", True
'Activate Project Explorer window
.SendKeys "^r", True
'Tab your way to the workbook project


.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
'
'Simulate the Enter key
.SendKeys "~", True
'
' - delay 1 second
Application.Wait Now + TimeValue("00:00:01")


'Enter your password - - this example is "Password"
.SendKeys "password123"
'Enter again
.SendKeys "~", True
End With


ActiveWorkbook.VBProject.VBComponents.Import NewFN




End Sub

But the problem is that it never seems to be able to activate the newly opened file VBA project and thus, it never been able to write the password into the password window. This will prevent me from replacing the module 5 as the VBAProject is still protected.

I am finding that some recommendation for using sendkeys are rather restrictive cos we need to first identify (hard-coding it) which position the destination file are locted in the project window.

Any help is greatly appreciated.

Thanks,
CL