Sub DeleteOpenWorkbook() With ActiveWorkbook If Len(.Path) > 0 Then .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False Else .Saved = True .Close False End If End With End Sub
58.7k Fragen
251k Antworten
7.3k Nutzer