Dateiname in Zelleeinfügen

[Henkel]

Hallo,

ich habe mir ein Calc-Dokument erstellt welches ich schreibgeschützt habe.
Jedes mal wenn jetzt ein Benutzer das Dokument bearbeiten möchte muss er die Dokument erst mit
"Speichern Unter" mit neuen Dateinamen abspeichern. Dann kann er es erst bearbeiten.

Meine Frage, ist es möglich den Dateinamen den man beim Speichern angibt Automastisch in
eine Zelle einzupflegen?

Ich nutze OO 2.4 /WinXp

Danke im Voraus

[Karolus]

Hallo
Suchst du nach so etwas:
viewtopic.php?f=18&t=17542&p=73526#p73598
?
Gruß Karo

[komma4]

Willkommen in Forum.

Das geht mit der Formel ZELLE, Infotyp "FILENAME".
[quote="F1 Hilfe, OpenOffice.org Calc", ZELLE(Funktion)"]
Ergibt Dateiname und Tabellenname der referenzierten Zelle.
=ZELLE("FILENAME";D2) GIBT 'Datei:///X:/dr/own.sxc'#$Tabelle1 zurück, wenn die Formel im aktuellen Dokument X:\dr\own.sxc in Tabelle1 enthalten ist.
=ZELLE("FILENAME";'X:\dr\test.sxc'#$Tabelle1.D2) gibt 'Datei:///X:/dr/test.sxc'#$Tabelle1 zurück.
[/[uote][/quote]

Jetzt musst Du "nur noch" den relevanten Teil mit anderen Formeln ausschneiden.
Der Übersicht halber mache ich das in Schritten, die aufeinander aufbauen:

Code: Alles auswählen

=ZELLE("FILENAME";A1)
=RECHTS(A1;LÄNGE(A1)-8)
=LINKS(A2;FINDEN("'#$";A2)-1)
[

ergibt [bei einer Speicherung lokal! (file://) ] den vollen Pfad, Dateiname und Endung.

Zum Ausschneiden nur des Dateinamens (ohne des Pfades und ohne .ods) darfst Du selbst etwas einfallen lassen.

Viel Erfolg!

[komma4]

eine benutzerdefinierte Funktion für den Dateinamen wäre:

Code: Alles auswählen

Function dieserDateiname
If ThisComponent.hasLocation() Then
   dieserDateiname = ThisComponent.getURL()
Else
   dieserDateiname = "# # # Datei noch nicht gespeichert # # #"
End If
End Function

evtl. mit den Hilfsfunktionen aus TOOLS (GetFileNameWithoutExtension oder FileNameoutofPath) weiter bearbeitet