Is it possible for somebody to tell me the code i would need to open up a
password protected workbook, update the linked worksheets inside, then save
and close.

Here is a example for all workbooks in a folder
http://www.rondebruin.nl/copy4.htm

You can see the code that you must use on that page
If you need more help post back

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Carl Irving" wrote in message ...
Is it possible for somebody to tell me the code i would need to open up a
password protected workbook, update the linked worksheets inside, then save
and close.

Sub OpenPassword()
Dim wbk As Workbook

Application.DisplayAlerts = False

Set wbk = Workbooks.Open(Filename:="", _
UpdateLinks:=True, _
Password:="")

With wbk
.Save
.Close
End With

Set wbk = Nothing
End Sub

Thanks guys thats brilliant, unfortunately it used to ask me for 2 passwords
and it still tells me to enter a password for write access or open as read
only, is there a way to bypass this password too?

"Dave Miller" wrote:

Sub OpenPassword()
Dim wbk As Workbook

Application.DisplayAlerts = False

Set wbk = Workbooks.Open(Filename:="", _
UpdateLinks:=True, _
Password:="")

With wbk
.Save
.Close
End With

Set wbk = Nothing
End Sub

See the example on my page

Set mybook = Workbooks.Open(MyPath & MyFiles(Fnum), _
Password:="ron", WriteResPassword:="ron", UpdateLinks:=0)


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Carl Irving" wrote in message ...
Thanks guys thats brilliant, unfortunately it used to ask me for 2 passwords
and it still tells me to enter a password for write access or open as read
only, is there a way to bypass this password too?

"Dave Miller" wrote:

Sub OpenPassword()
Dim wbk As Workbook

Application.DisplayAlerts = False

Set wbk = Workbooks.Open(Filename:="", _
UpdateLinks:=True, _
Password:="")

With wbk
.Save
.Close
End With

Set wbk = Nothing
End Sub

Hi Ron,

Sorry to be a pain but i cant get this to work, im obviously doing something
wrong, do i just need those 2 lines you gave me or is there something else i
need to insert, both my files are in the same folder as suggested.

"Ron de Bruin" wrote:

See the example on my page

Set mybook = Workbooks.Open(MyPath & MyFiles(Fnum), _
Password:="ron", WriteResPassword:="ron", UpdateLinks:=0)


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Carl Irving" wrote in message ...
Thanks guys thats brilliant, unfortunately it used to ask me for 2 passwords
and it still tells me to enter a password for write access or open as read
only, is there a way to bypass this password too?

"Dave Miller" wrote:

Sub OpenPassword()
Dim wbk As Workbook

Application.DisplayAlerts = False

Set wbk = Workbooks.Open(Filename:="", _
UpdateLinks:=True, _
Password:="")

With wbk
.Save
.Close
End With

Set wbk = Nothing
End Sub

In Dave's code you see

Password:="ron"

Now add this
WriteResPassword:="ron",

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Carl Irving" wrote in message ...

Hi Ron,

Sorry to be a pain but i cant get this to work, im obviously doing something
wrong, do i just need those 2 lines you gave me or is there something else i
need to insert, both my files are in the same folder as suggested.

"Ron de Bruin" wrote:

See the example on my page

Set mybook = Workbooks.Open(MyPath & MyFiles(Fnum), _
Password:="ron", WriteResPassword:="ron", UpdateLinks:=0)


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Carl Irving" wrote in message ...
Thanks guys thats brilliant, unfortunately it used to ask me for 2 passwords
and it still tells me to enter a password for write access or open as read
only, is there a way to bypass this password too?

"Dave Miller" wrote:

Sub OpenPassword()
Dim wbk As Workbook

Application.DisplayAlerts = False

Set wbk = Workbooks.Open(Filename:="", _
UpdateLinks:=True, _
Password:="")

With wbk
.Save
.Close
End With

Set wbk = Nothing
End Sub

Hi Ron, i've copied Dave's code in like you said and added the line with the
write password instruction but it gives me a compile error/syntax error when
i try to run it. This is my code as i currently have it, i have tried putting
brackets and commas etc to separate the 2 password lines, i've even tried
them on the same line but everything returns the compile error.

Thanks

Carl


Sub OpenPassword()
Dim wbk As Workbook

Application.DisplayAlerts = False

Set wbk = Workbooks.Open(Filename:="e:\rota stuff\nick rota template", _
UpdateLinks:=True, _
Password:="united1")
WriteResPassword:="united1")
With wbk
..Save
..Close

End With

Set wbk = Nothing

End Sub

Use it like this

Set wbk = Workbooks.Open(Filename:="e:\rota stuff\nick rota template", _
Password:="united1", WriteResPassword:="united1", UpdateLinks:=True)


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Carl Irving" wrote in message ...
Hi Ron, i've copied Dave's code in like you said and added the line with the
write password instruction but it gives me a compile error/syntax error when
i try to run it. This is my code as i currently have it, i have tried putting
brackets and commas etc to separate the 2 password lines, i've even tried
them on the same line but everything returns the compile error.

Thanks

Carl


Sub OpenPassword()
Dim wbk As Workbook

Application.DisplayAlerts = False

Set wbk = Workbooks.Open(Filename:="e:\rota stuff\nick rota template", _
UpdateLinks:=True, _
Password:="united1")
WriteResPassword:="united1")
With wbk
.Save
.Close

End With

Set wbk = Nothing

End Sub

Thanks very much, that works a treat.

"Carl Irving" wrote:

Hi Ron, i've copied Dave's code in like you said and added the line with the
write password instruction but it gives me a compile error/syntax error when
i try to run it. This is my code as i currently have it, i have tried putting
brackets and commas etc to separate the 2 password lines, i've even tried
them on the same line but everything returns the compile error.

Thanks

Carl


Sub OpenPassword()
Dim wbk As Workbook

Application.DisplayAlerts = False

Set wbk = Workbooks.Open(Filename:="e:\rota stuff\nick rota template", _
UpdateLinks:=True, _
Password:="united1")
WriteResPassword:="united1")
With wbk
.Save
.Close

End With

Set wbk = Nothing

End Sub