Makro aus anderer Datei in Einzelschritten nicht ausführbar

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

retuwe61
****
Beiträge: 159
Registriert: So, 18.11.2007 21:25

Makro aus anderer Datei in Einzelschritten nicht ausführbar

Beitrag von retuwe61 »

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
Angewandt wird LibeOffice Version 5.1.6.2
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Makro aus anderer Datei in Einzelschritten nicht ausführbar

Beitrag von Stephan »

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
retuwe61
****
Beiträge: 159
Registriert: So, 18.11.2007 21:25

Re: Makro aus anderer Datei in Einzelschritten nicht ausführbar

Beitrag von retuwe61 »

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

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
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Makro aus anderer Datei in Einzelschritten nicht ausführbar

Beitrag von Stephan »

nur halt nicht in Einzelschritten.
dann sollte es möglich sein, nach jeder Codezeile eine Zeile:

Code: Alles auswählen

Msgbox "BlaBla" 
einzufügen damit das Makro stoppt.


Gruß
Stephan
Antworten