Macro Park n' go in the VBA

[Former Member]

Hi,



i need to insert in the report of BPC (7.5 MS ) a button with a macro that open

th function Park n' go and put the flag on "Offline" option.



I have done the following macro:



Sub PARK()



Application.Run ("MNU_ETOOLS_PARKNGO")



end sub



But I'm not able to put the flag on offline option, without any selection by

user.



It's possible to do it?







Ciao



Chiara

[Former Member]

Hi Ryan,

thank you very much

Do you know, if it’s possible by the vba macro to set the option offline, without any
selection by the user.

Thanks

Ciao

Chiara

[Former Member]

Hi Chiara, I have not found a way to do so.

[Former Member]

Hi Roberto,

I try you instruction, but I have an error 1004.

So I have written the following instruction:

"For I = 1 to Excel.name.Count

MsgBox Excel.Names.(I).name

Next I"

to see al the variables and I don't found ev_lockstatus, but only EV__LASTREFTIME__,

do you have any idea why there isn't this variable? Perhaps there is a bug?

Thanks

Ciao

Chiara

[former_member186498]

Hi Chiara,

I'm also on 7.5 (sp5) and I don't have problems, I've simply tried on workbook_open

Private Sub Workbook_Open()

    Excel.Names("EV__LOCKSTATUS__").Value = 4

End Sub

without issues, sorry I've no idea why you don't see the other variables 😞 and I'm going on holiday now.

Just check if your code is in ThisWorbook or in a module

Regards

Ciao

     Roberto

[Former Member]

After trial and error, I have figured out that this functionality does not work like I thought it would.

This is how you correctly set the name:

ThisWorkbook.Names.Add Name:="EV__LOCKSTATUS__", RefersTo:="=4"

This creates a named range of "EV__LOCKSTATUS__". After running the above in a sub, you will be able to see it in Formulas -> Name Manager.

Actually, you can even set it outside of VBA using the Formuals -> Name Manager.

Once this is set, and a user clicks "Park n Go", the default option will be "Offline". If you set it to "=0", it will default to "Live" and so on. It does not park or un-park the file. It only sets the default option which is very disappointing. Once a user selects another option, BPC will change the value of the "EV__LOCKSTATUS__" to that option. Therefore, it can be handy in determining the status once you create the variable and save the document.

And the reason you don't see EV__LASTREFTIME__ in the name manager is because its .visable value is set to FALSE. You can see the value; however, by typing "=EV_LASTREFTIME__" in a cell.

So, that's that. Disappointing, indeed. On the bright side, it looks like BPC 10.0 might have more flexibility in regards to parking documents with VBA.

[Former Member]

Hi Roberto,

In hte help of BPC I have read that it's possbile to use the VBA variables

EV__LOCKSTATUS__

Used to specify the Park N Go status

1: Live data and static current view

2: Static data and static current view

It's not possible to use it in the vba macro?

Thanks

Ciao

Chiara

[former_member186498]

Hi Chiara,

yes you're right, i forgot these variables, so to set offline don't use MNU functions just set

    Excel.Names("EV__LOCKSTATUS__").Value = 4

other values

0 = online

1 = Live data and static current view

2 = Static data and static current view

Regards & ciao

     Roberto

[former_member186498]

Hi Luigi,

MNU_ETOOLS_PARKNGO just open the park&go dialog.

Try with MNU_ePUBLISH_OFFLINE_SAVE (and eventually the other MNU function for distribution list)otherwise the answer is you have to set it manually.

Regards

     Roberto