VBA Code for Self Destruct in Excel

Option Explicit

Sub KillMe()

    With ThisWorkbook

        .Saved = True

        .ChangeFileAccess Mode:=xlReadOnly

        Kill .FullName

        .Close False

    End With

End Sub