[Solved] Macro opens Calc file, but not macros

[alf50]

This Macro will open my Calc Application but will not activate the macros. How do I fix that?

Code: Select all

Sub OpnCKIN

rem ----------------------------------------------------------------------
dim NewWorkBook as object
dim cmd as string
cmd = "file:///C:/Users/alfor/Desktop/KwV8/1ChecK_IN.ods"
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ReadWrite"
args1(0).value = false
NewWorkBook= StarDesktop.loadComponentFromURL(cmd,"_blank",0,args1())
rem ----------------------------------------------------------------------

end sub
/code]

[Bidouille]

Code: Select all

args1(0).Name = "MacroExecutionMode"
args1(0).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN