Schreibgeschützte Datei löschen

Sub Loeschen()
Application.DisplayAlerts = False
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
Application.DisplayAlerts = True
ThisWorkbook.Close False
End Sub