Can we allow system access through Macro not through Ctrl+shft+M on Browser

[SunilChauhan]

Can we automate below thing through macro

Shift +control+M

allow system access check

sunil

[danielrozental]

You would need to distribute the settings.ini to each individual PC and user profile.

The file is located in C:\Users\USERNAME\AppData\Roaming\QlikTech\QlikView (for windows 7, 2008).

And the file would have to contain an entry like

[Settings for QlikView Servers]

Module Script System\YOUR_QLIKVIEW_SERVER=

[SunilChauhan]

Hi Daniel,

Thanks for you reply. i dont want to distribute to all users.i want to  set be fore macro for ppt  executes .

is any thing  so that we achive it on running macro.

Regards

Sunil

[danielrozental]

There's nothing you can do from within the macro, you need to update the settings.ini file just like I said above.

[SunilChauhan · Accepted solution]

while Create Powerpoint.Application  add line below

On Error  Resume Next

Set PPApp=GetObject(,"Powerpoint.Applicatiom")

if PPApp is nothing then

Set PPApp=CreateObject("Powerpoint.Application"

PPApp.Visible=True

end if

and Control+Shift+M to allow System Access is poperty of qlikview  to set system access

which require to have at once.

its work for me

[#6]

Hi there, I have the same issue.

I've implemented your fix, now i don't get the macro parse failed error, but it's also not working. it's just a simple macro I found on the forums that allows me to export all the objects into excel. It works well but you have to do the CTRL + Shit + M trick. Any help would be greatly appreciated. This is what I have:

Private Function copyObjectsToExcelSheet(qvDoc, aryExportDefinition) 'as Excel.Workbook


Dim i 'as Integer
Dim objExcelApp 'as Excel.Application
Dim objExcelDoc 'as Excel.Workbook

On Error Resume Next
Set ObjExcelApp = GetObject("Excel.Application")
If (ObjExcelApp is nothing) then
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = true 'false if you want to hide Excel
objExcelApp.DisplayAlerts = false
end if

Set objExcelDoc = objExcelApp.Workbooks.Open("URL")