Makro ist aus Sicherheitsgründen nicht ausführbar

Hallo,

ich habe ein neues Problem mit einem Makro, dass folgende Sicherheitsmeldung auswirft

Blockzitat
Aus Sicherheitsgründen ist dieses Makro nicht ausführbar.
Für weitere Informationen überprüfen Sie die Sicherheitseinstellungen.

Das Makro steckt in einem Calc, dass als Olé, Teil eines Writer-Dokumentes ist.
Wenn ich den Calc-Teil aufrufe, kann ich Rechnungsdaten eingeben.
OnChange-Event soll das Makro den End-Preis in eine Textdatei schreiben.

Habe auch schon verschiedene LO-Versionen ausprobiert, alles das selbe.
Vielleicht hat einer von Euch eine Idee?
Danke.

Das Makro sieht folgend aus :

Sub Main()

		Dim oDoc as Object
		Dim ReBetrag as String
		oDoc = thiscomponent
		
		DataSheet = oDoc.Sheets(0)
		oCell = DataSheet.getCellByPosition(4,14)
	
		ff = FreeFile()
		path = "C:\Users\Asterix\Desktop\komplett\ReBetrag_tmp.txt" 'Speicherort von RechnungsBetrag.txt
		ReBetrag = oCell.Value
		'MsgBox(ReBetrag)
		Rebetrag = Round(ReBetrag,2)
		'MsgBox(ReBetrag)
		ReBetrag = Replace(ReBetrag,",",".")
		'MsgBox(ReBetrag)
		Open path For Output As ff
		Print #ff, ReBetrag
		Close #ff
		
		
End Sub

Function Round (ByVal num as Double, count as Integer)
	Dim oFuncAccess as Object

	Dim res as Double

	oFuncAccess = createUnoService( "com.sun.star.sheet.FunctionAccess")
	res = oFuncAccess.callFunction("ROUND", Array(num, count))
	Round = res
End Function

May be ?
path = ConvertToURL("C:\Users\Asterix\Desktop\komplett\ReBetrag_tmp.txt")

mal davon abgesehen, daß man das mit lächerlichen 4 Zeilen Code in python erledigen kann:

def store_e15(*_):
    path = "C:/Users/Asterix/Desktop/komplett/ReBetrag_tmp.txt" 
    doc = XSCRIPTCONTEXT.getDocument()
    with open(path, "w", encoding="utf8") as testfile:
        testfile.write(f"{ doc.Sheets[0][14,4].Value :.2f}")

…musst du halt deiner Fehlermeldung entsprechend deine Sicherheitseinstellungen überprüfen,
insbesondere die Calc-datei sollte in einen »vertrauenswürdigen Ordner« sein.
⇒ Extras ⇒ Optionen ⇒ Lo ⇒ Sicherheit ⇒ ⇒ Makrosicherheit ⇒ Vertrauenwürdige Quellen ⇒ Vertrauenswürdige Speicherorte

Hallo zusammen,
Danke für Eure Antworten.
@ bantoniof: Guter Ansatz, aber hat nichts gebracht.
@karolus : Leider beherrsche ich kein python.
Die Sicherheitseinstellungen habe ich auf niedrig gestellt und die Vertrauenswürdigen Orte habe ich hinzugefügt.

Wenn ich das Olé Calc öffne, ist das ein ‘Unbenannt 1’. Ich vermute, dass es etwas damit zutun hat. In meiner VirtualBox Entwicklungsumgebung habe ich Version 25.2, 24 und 7.6 versucht.
Auf meinem Hauptrechner läuft noch 7.1.8.1. Da geht das Makro. Warum auch nicht? Ich schreibe ja nur eine simple Text-Datei. Was ist anders?

Das du aus deiner VM in einen Pfad auf deinem Host schreiben möchtest?!

@karolus : nein, die Systeme sind gänzlich von einander getrennt.
Habe eben nochmals getestet und die 7.1.8.1 in die VM (=Win11) installiert und da geht es. Doch sobald ich eine höhere Version von LO nutze, kommt die Meldung.(btw. Beim Wechsel der Versionen lösche ich auch die Datenverzeichnisse unter User\ [USER]\ AppData\ Roaming\ LibreOffice und unter Programme, wenn etwas zurück bleibt beim deinstallieren. Also ein kompletter Neuanfang.)
Ich habe inzwischen nachgelesen, dass die Sicherheit in LO stark erhöht wurde. kann es damit in Zusammenhang stehen?

Schau mal in den neueren Versionen unter:
⇒ Extras ⇒ Optionen ⇒ Lo ⇒ Sicherheit ⇒ ⇒ Sicherheitsoptionen und -Warnungen ⇒ Optionen (ganz unten): [ ]Aktive Inhalte für OLE-objekte …… deaktivieren

@karolus
habe ich geschaut, doch der Haken ist aus.
Habe eben noch eine weitere VM hochgefahren und erst 25.2 installiert. Da ging es - wie erwartet nicht.
Dann habe ich die VM zurückgesetzt. Danach nochmals gestartet und 7.1.8.1 installiert und - es geht.
Kann es sein, dass es ein Bug ist, der seit 7.x unentdeckt geblieben ist ?