Guten Morgen.
Aus einer ToDo-Datei starte ich Makros in anderen Calc-Dokumenten (Öffnen - csv-Import - Aktualisierung von Pivottabellen/Diagrammen - Speichern) mit DPunch's Makro als Basis:
viewtopic.php?t=52461#p196299
Klappt einwandfrei.
Wenn ich zur Kontrolle dieses Makro in Einzelschritten ausführen möchte, erhalte ich bei Wechsel in das Makro des anderen Dokumentes die Meldung "Aus Sicherheitsgründen ist dieses Makro nicht ausführbar." - und das bei niedriger Makrosicherheit/vertrauenswürdigem Speicherort.
Hat jemand eine Lösung, wie ich die Kontrolle fortsetzen kann?
Gruß
Uwe
Makro aus anderer Datei in Einzelschritten nicht ausführbar
Moderator: Moderatoren
Makro aus anderer Datei in Einzelschritten nicht ausführbar
Angewandt wird LibeOffice Version 5.1.6.2
Re: Makro aus anderer Datei in Einzelschritten nicht ausführbar
wenn das Dokument per Makro geladen wird musst Du den MacroExecMode als Parameter übergeben, damit Makros laufen, siehe z.B.:
viewtopic.php?t=3023
Gruß
Stephan
viewtopic.php?t=3023
Gruß
Stephan
Re: Makro aus anderer Datei in Einzelschritten nicht ausführbar
Hallo Stephan.
Deinen Beitrag hatte ich natürlich schon vorher gefunden und versucht, das mit DPunch' s Makro zu verbinden. Leider ohne Erfolg.
Wie gesagt: Die Makros laufen - nur halt nicht in Einzelschritten.
Gruß
Uwe
Deinen Beitrag hatte ich natürlich schon vorher gefunden und versucht, das mit DPunch' s Makro zu verbinden. Leider ohne Erfolg.
Wie gesagt: Die Makros laufen - nur halt nicht in Einzelschritten.
Gruß
Uwe
Code: Alles auswählen
Sub ToDo
sURL = "/home/.../xxx.ods"
sLibName = "Library1" 'kein Passwort gesetzt
sModuleName = "Import"
sMakroName = "Import_Makros"
sURL = ConvertToURL(sURL)
Dim args(0) as new com.sun.star.beans.PropertyValue
Dim Dummy(0) as New com.sun.star.beans.PropertyValue
'args(0).Name = "Hidden"
'args(0).Value = True
Dummy(0).Name = "MacroExecutionMode"
Dummy(0).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN
oDocument = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, args)
sScriptURI = "vnd.sun.star.script:" & sLibName & "." & sModuleName & "." & sMakroName & "?language=Basic&location=document"
oScript = oDocument.ScriptProvider.getScript(sScriptURI)
REM Mit Parameter
REM oder ohne Parameter
oScript.invoke(Array(dummy),Array(),Array())
End Sub
Angewandt wird LibeOffice Version 5.1.6.2
Re: Makro aus anderer Datei in Einzelschritten nicht ausführbar
dann sollte es möglich sein, nach jeder Codezeile eine Zeile:nur halt nicht in Einzelschritten.
Code: Alles auswählen
Msgbox "BlaBla"
Gruß
Stephan