Test

[Excel Fox]

Test


Sub FileKill()

If ActiveWorkbook Is Nothing Then
MsgBox "There is no active workbook!", vbOKOnly + vbInformation, "Delete File"
Exit Sub
End If
If vbYes = MsgBox("Do you want to delete this file?", vbYesNo + vbQuestion, "Delete " & ActiveWorkbook.Name) Then
If ActiveWorkbook.MultiUserEditing Then
MsgBox "The activeworkbook is a shared file, and hence it is recommended not to delete the same." & vbLf & vbLf & _
"Remove workbook sharing, and try again.", vbOKOnly + vbInformation, "Shared File"
Else
If InStr(1, ActiveWorkbook.FullName, Application.PathSeparator) > 0 Then
If ActiveWorkbook.ReadOnly = False Then
If Not ActiveWorkbook.Saved Then
If vbCancel = MsgBox("This workbook hasn't been saved. In case you intended for it to be saved, this is to warn you that it isn't." & _
vbLf & vbLf & "In any case you wanted to delete the file, right? So this message is probably irrelevant anyway." & _
vbLf & vbLf & "So deleting file....") Then
Exit Sub
Else
ActiveWorkbook.Saved = True
End If
End If
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close 0
End If
Else
MsgBox "This file doesn't seem to have been saved ever!" & vbLf & vbLf & "Why don't you just close it?!", vbOKOnly + vbExclamation, "New Workbook - " & ActiveWorkbook.FullName
End If
End If
End If

End Sub