禁止EXCEL 程序的退出按钮

[sarfeilee]

请教各位牛人，想屏蔽EXCEL程序的退出按钮，不是WORKBOOK的退出或者是FORM的退出按钮。
以前用api中的
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

Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060
Dim hMenu As Long

hMenu = GetSystemMenu(Application.hWndExcelApp, 0)
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
屏蔽过ACCESS的程序按钮，不过EXCEL不知道要怎么更改这个api。
请教高手们了。
多谢

[gracexu]

楼主说的退出按钮就是关闭按钮吧，好像你用错属性了。

hMenu = GetSystemMenu(Application.hWndExcelApp, 0)

这句应该改成
hMenu = GetSystemMenu(Application.hWnd, 0)

[dlmeijianyu]

xue xi

[android2008]

不懂，帮顶

[bind888]

不懂，帮顶

[ChinaOBS]

按楼上的试试

[雨滴工坊]

禁止关闭EXCEL?
不用API吧
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub
这样就行了
改Cancel = False就可以关闭了

[sarfeilee]

多谢GRACEXU的更改，也感谢SANBE兄的提议，两种方法都能实现