kill wkb & close excel

[Av8tordude]

how can I self kill my workbook and close the excel application as well. I've tried this code, but it does not work.

Thanks for your help

Sub KillMe()
With ThisWorkbook
    Call TitleBarOpen
    .Saved = True
    .ChangeFileAccess Mode:=xlReadOnly
    Kill .FullName
    .Close False
End With
With Application
    .DisplayAlerts = False
    .Quit
End With
End Sub

 

[ZVI]

Try this modification:

Sub KillMe()
  With ThisWorkbook
    Call TitleBarOpen
    .ChangeFileAccess Mode:=xlReadOnly
    .Saved = True
    SetAttr .FullName, 0
    Kill .FullName
  End With
  With Application
    .DisplayAlerts = False
    .Quit
  End With
End Sub