Enable Excel Close Botton

sarfeilee · November 27th, 2008, 05:44 AM

I want to make the excel program close botton disable not the vb form close botton, you know.
The initial thought in my mind is to use API program:

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

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

But how to write follow this?
is

Dim hMenu As Long

hMenu = GetSystemMenu(Application.hWndExcelApp, 0)
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
right?

allenm · December 22nd, 2008, 10:15 AM

Using the API seems like a lot of needless effort. It would be easier to just cancel the close in the Workbook_BeforeClose object module:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
'Prevents workbook from closing.
  Cancel = True
 
End Sub

Thing is neither this nor the API will stop a determined individual. With this method you can also notify the user as to why before ending the sub.