Makro ist aus Sicherheitsgründen nicht ausführbar

[Asterix-Ac]

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

[bantoniof]

@Asterix-Ac

path = "C:\Users\Asterix\Desktop\komplett\ReBetrag_tmp.txt"

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

[karolus]

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