Opening a file with vba password problem

[hatstand]

Hi,

I have written the following code to open a password protected file. But it gives a 1004 error. I can’t see what I have done wrong. Any ideas would be much appreciated.

Sub Cts()

Dim wb As Workbook
Dim receiver As String

receiver = "C:\Documents and Settings\Desktop\Receiver.xls"

Set wb = Application.Workbooks.Open("receiver", Password:="password", WriteResPassword:="password")

With wb.Sheets("ST Comment Results")


End With
End Sub

 

[Trevor G]

What are you doing with the with statement, is it necessary if you are only selecting the sheet.

With wb.Sheets("ST Comment Results")
 
 
End With

could be

wb.Sheets("ST Comment Results").select

 

[Richard Schollar]

You need to pass the receiver as a variable, not as the string "receiver":

Set wb = Application.Workbooks.Open(receiver, Password:="password", WriteResPassword:="password")

 

[hatstand]

Hi, Thanks for the reply.

The code is part of a bigger piece of code. The error comes when trying to open another workbook that has a password on the ReadWrite part when the file is opened. I thought that Password:="password" was all that was needed. But I'm obviously doing something wrong.

 

[hatstand]

I'm sorry but I don't follow. I still can't get it to work. Any pointers?

 

[RoryA]

Did you try Richard's code? If so, what happened?

 

[hatstand]

HI,

It debugs on the 'Set wb' line. If I use 'Workbooks.Open Filename:="C:\Documents and Settings\Desktop\Receiver.xls"UpdateLinks:=True, writerespassword:="password" by itself file opends no problem. Strange.

 

[RoryA]

Debugs with what error?

 

[hatstand]

I've done it. I had enclosed receiver in inverted comma's. Doh. I'm busy jamming my hand in the draw as I type. It's teh thought of 4 days off that's doing it. Really appreciate your time, thanks.