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

Automate Opening Files
 

Workbooks.Open Filename:=range("B3").value password:=range("C3").value

Cheers, Pete

"Steven" wrote:

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