VBA code in existing code to open when workbook encrypt with password.

[Ramesh Deo]

Hi Members,

Please see this code it will open the workbook but now this workbook now encrypt with password, I tried through below link but its not working so please please suggest, what will be coding.
Set sw = Workbooks.Open("C:\Documents and Settings\ramesh\Desktop\Tracker Sheet- CRM.xlsx"), password:="XXXXXXXX"

Regards

Ramesh Deo

 

[Luke M]

Correct syntax:

Set sw = Workbooks.Open(Filename:="C:\Documents and Settings\ramesh\Desktop\Tracker Sheet- CRM.xlsx", Password:="XXXXXX")

Note that argument names are not always required, but since we want to use the 1st and 5th, we need to. Otherwise, could give extra spaces with commas like this:

Set sw = Workbooks.Open("C:\Documents and Settings\ramesh\Desktop\Tracker Sheet- CRM.xlsx",,,,"XXXXXX")

 

[Ramesh Deo]

Hi Luke Sir,
Thanks for your suggestion. Actually when i run this code then password window is open. will it work on this.
And second one in your code, we can use spaces with commas in place of password?

 

[Luke M]

1. Yes, if you supply the open password (password required to open file), then this should skip the dialogue
2. No, that's not right. I was trying to explain that within the parenthesis, VB is expecting different arguments. You can either call out name of specific arguments like:
(filename:="MyBook.xls",password:="My password")
or you can give the arguements in the default order, just including a comma for argument you don't specify. Since password is the 5th argument, we have some extra commas, like:
("MyBook.xls",,,,"My password")
Both ways are valid. IMO, first is preferred as it's clearer what the different arguments are.

 

[Ramesh Deo]

so thanks for the awesome clarification. I got it very clearly.

 

[Ramesh Deo]

Hello Luke sir,

Have a good day!!

I got back with a new query and query is if i have to open file from below mention path as this scenario. please have a look for file path carefully, i used to open it manually.so what will be VBA code for this .

and the scenario is as below:

 

[Luke M]

You will need to give the full folder path of file. In your picture, I don't actually see an XL file, but presumably it would be something like:
(filename:="\\sipl97\Support(1)\MyBook.xls",password:="My password")

 

[Ramesh Deo]

Thanks Luke sir,

I will try this.

 

[Ramesh Deo]

Hi Luke sir,
Have a Good Day !
I tried as per your suggested code but still its not skipping password window.
so how can we resolve this???

Set sw = Workbooks.Open(Filename:="\\sipl97\SUPPPORT(1)\Tracker Sheet- CRM.xlsx", Password:="XXXXXX")

 

[Ramesh Deo]

Hello Luke,

Let it be about my query because I resolved it.