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.4k Fragen
249k Antworten
7k Nutzer