vba code for opening password protected workbook
 

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.

vba code for opening password protected workbook
 

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.

vba code for opening password protected workbook
 

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

vba code for opening password protected workbook
 

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

vba code for opening password protected workbook
 

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

vba code for opening password protected workbook
 

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

vba code for opening password protected workbook
 

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

vba code for opening password protected workbook
 

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

vba code for opening password protected workbook
 

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

vba code for opening password protected workbook
 

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