Auch aktuell geöffnete Dateien können gelöscht werden, indem das Dateiattribut auf “Schreibgeschützt” gesetzt wird. Dadurch wird ein direkter Zugriff auf die Datei möglich und kann gelöscht werden. Mit dem folgenden Makro können Sie somit die aktive Arbeitsmappe löschen.
Sub Offene_Datei_loeschen()
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub
Weiterführende Links:
Kennen Sie weiterführende Links zu diesem Thema? Schreiben Sie doch Ihre Linkempfehlung als Kommentar unten zu dieser Seite. Ich freue mich auf Ihr Feedback.