Gruppe
Datei
Bereich
Arbeitsmappe
Thema
Aktive Arbeitsmappe löschen
Problem
Wie kann ich die aktive Arbeitsmappe von der Festplatte löschen und schließen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub KillMe()
Dim strFile As String
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub