Gruppe
Datei
Problem
Wie kann ich die aktive Arbeitsmappe von der Festplatte löschen und schließen?
StandardModule: basMain
Sub KillMe()
Dim strFile As String
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub