Option Explicit
    Private WithEvents objApp As Excel.Application
 
Private Sub Form_Load()
    Set objApp = New Excel.Application
    objApp.Visible = True
    objApp.Workbooks.Add
End Sub
 
Private Sub objApp_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, Cancel As _
  Boolean)
    MsgBox "Ne ne Du, Excel beende ich nicht :-p"
    Cancel = True
End Sub