Office: Datei soll sich selbst loeschen

Hallo Leute,

ich möchte, dass eine Exceldatei sich selbst löscht (später soll es ein Addin sein). Folgendermaßen habe ich das Problem gelöst, jedoch frage ich mich, ob es nicht vielleicht auch bessere Lösungen gibt.

Für Vorschläge wäre ich dankbar, die nachfolgende Version ist irgendwie nicht optimal... - Dank und Gruß, Christian

- zur Selbstlöschung wird die Sub Selbstloeschung aufgerufen
- der Code befindet sich hinter der Tabelle1 -

Code:

:)

 

Laut Code schliest du die Tabelle ja nur

Dein Code:
Code:

Ich werd aus dem net ganz Schlau, weil:

Code:

Anzeigen des Pfades in Zelle "A1!"

Code:

Tabelle Kopieren

Code:

Aktive Workbook löscht sich nach 1 sec mit Pfad!
Frage: Wenn der Pfad mit gelöscht wird, ist dann nicht auch das 2te Workbook
in der Application weg?

Code:

Ohne Speichernachfrage die Arbeitsmappe schliessen

Code:

Zelle "A1" in Tabelle1 löschen
Ohne Speichernachfrage die Arbeitsmappe schliessen
??????

Hmm, ich verstehe den Sinn gerade nicht, kann deshalb vllt garade nicht folgen.
Aber vllt wäre nen größerer QC sinvoll, oder du beschreibst was du
bezweckst, dann könnte man vllt ne (bessere) Lösung finden

 

Hallo,

hier der kommentierte Code... sorry, hätte ich auch gleich machen können:


Code:

Mein Ziel ist es, dass eine Excelpappe sich selbst löscht. Geht das auch irgendwie anders?

Dank und Gruß, Christian

 

Wie soll eine Datei sich selbst löschen??
Solange Zugriff auf eine Datei besteht - und solange Code darin abläuft ist sie offen - wird das Löschen von Windows verweigert.
Selbstmord gibt's (fast) nur bei Menschen.

Ciao, Sascha

 

Hi,

einfach so:

Public Sub test()
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub

 

Hallo Nepumuk,

1000 Dank... das ist genau die Version die ich gesucht habe.

Gruß, Christian

 

Schluck..., ich nehme alles zurück!

Ciao, Sascha