Excel 工作表自動執行 VBA

在 Microsoft Excel 物件 -> ThisWorkbook 中

Private Sub WorkBook_Open()
    TheMainMenu.Show
End Sub

Private Sub WorkBook_BeforeClose(Cancel As Boolean)
    MsgBox "Quit"
End Sub

Reference :
WorkBook_Close() problem - MrExcel Message Board