Automate Opening Files
I have a master excel file with a column for file names and in the next
column the password. For example:
B3 contents is: C:\My Documents\Export.xls C3 contents is: pwtest
I put a macro in the code of the sheet so when I double click on B3 it opens
the file to where you input the password. Is there a way to automatically
fill in the password with the contrents of C3?
So far I have been doing like this in the BeforeDoubleClick of the Sheet:
----------------------------------------------
On Error GoTo Macro1_Err
vOpen = ActiveCell.Value
ActiveCell.Offset(0, 1).Range("A1:A1").Select
If IsEmpty(ActiveCell.Value) Then
Else
Selection.Copy
End If
ActiveCell.Offset(0, -1).Range("A1:A1").Select
Workbooks.Open Filename:=vOpen
'**Note: I am stuck here. I can hit Ctrl-V because I did a
'**Selection.copy on the password above but what I really
'**want is to have the password fill in automatic.
Macro1_Exit:
Exit Sub
Macro1_Err:
Resume Macro1_Exit
----------------------------------------------
Thank you for your help.
Steven
|