Disable X (quit) Button

ecawilkinson · Jun 11th 2007

Hi,

I'm sure there is a way to disable the 'X' (quit) button in the top right-hand corner of the EXcel application (not the 'X' for individual workbooks), or the hook the quit event so that I can run code that shut down the application cleanly? I'm sure a Windows API call is involved but do not know enough about that side of programming to know for sure.

Thanks,
Chris

Insomniac · Jun 11th 2007

Re: Disable X (quit) Button

You can do it with API, although I generally wouldnt recommend it.
Fortunately this will only effect the current application and does not persist between sessions.

Code

Private Declare Function GetSystemMenu Lib "user32" ( _
    ByVal hwnd As Long, ByVal bRevert As Long) As Long


Private Declare Function DeleteMenu Lib "user32" ( _
    ByVal hMenu As Long, ByVal nPosition As Long, _
    ByVal wFlags As Long) As Long


Sub Xoff()
    DeleteMenu GetSystemMenu(Application.hwnd, 0), 6, 1024
End Sub


Sub Xon()
    GetSystemMenu Application.hwnd, True
End Sub

Display More

ecawilkinson · Jun 11th 2007

Re: Disable X (quit) Button

Thanks Insomniac,

Although you do not recommend it. It works fine.

I know that you can trap application-level events using a class module and creating an application object "with events". However, there is not Quit event available in the drop-down for events. Is there anyway of trapping the quit event?

Thank again,
Chris

Insomniac · Jun 11th 2007

Re: Disable X (quit) Button

There is no Application.Quit event, but you can trap WorkbookBeforeClose at an Application level.

Code

Private Sub XlApp_WorkbookBeforeClose(Byval Wb As Workbook, Cancel As Boolean) 
MsgBox Wb.Name & " is Closing"
End Sub

**royUK** · Jun 11th 2007

Re: Disable X (quit) Button

You are likely to cause yourself unnecessary troubles with this. If it fails on a user I hope you are ready for any flak they throw at you - I know how I feel when an application messes up my settings

Disable X (quit) Button

Participate now!

Share