How to run a macro behind a Password Protected excel workbook

[chrisandsally]

Hi

I have the following code that worked until the excel workbook was required to be password protected. It fails when I added the password attribute.

Option Explicit


Dim xlApp, xlBook


Set xlApp = CreateObject("Excel.Application")
'~~> Change Path here
Set xlBook = xlApp.Workbooks.Open("\\server\a\Rota.xlsm", 0, True, Password:="1234")


xlApp.Run "CreateOpsRota"
xlBook.Close
xlApp.Quit


Set xlBook = Nothing
Set xlApp = Nothing


WScript.Echo "Finished."
WScript.Quit

Any help really appreciated.

Thanks

 

[RoryA]

It looks like you're running this in VBScript which doesn't like named arguments - you have to use positional ones:

Set xlBook = xlApp.Workbooks.Open("\\server\a\Rota.xlsm", 0, True, , "1234")

 

[Kyle123]

Xposted here How to run a macro behind a Password Protected excel workbook where I told him the same thing

 

[chrisandsally]

It looks like you're running this in VBScript which doesn't like named arguments - you have to use positional ones:

Set xlBook = xlApp.Workbooks.Open("\\server\a\Rota.xlsm", 0, True, , "1234")

Thank you RoryA I will try that. Thank you for your help.

Kyle123 Sorry for Xposting without URL's I thought your message was to the reply above not to me.