G
Guest
I have a master excel file with a column for file names and in the next
column the password. For example:
B C
3 C:\My Documents\Export.xls 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:
Sub zOpenFile()
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 but I what I really
'**want is to have the password fill in automatic.
Macro1_Exit:
Exit Sub
Macro1_Err:
Resume Macro1_Exit
End Sub
Thank you for your help.
Steven
column the password. For example:
B C
3 C:\My Documents\Export.xls 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:
Sub zOpenFile()
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 but I what I really
'**want is to have the password fill in automatic.
Macro1_Exit:
Exit Sub
Macro1_Err:
Resume Macro1_Exit
End Sub
Thank you for your help.
Steven