Disabling Excel X Application Button
Hi Bob;
You are right Bob; the explanation was given by Rob.
Application.Hwnd is only for the lucky.
:-) MP
"Bob Phillips" a écrit dans le message de
...
Michael,
Small error. In Workbook_Deactivate it should be
DrawMenuBar hWnd
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"Michel Pierron" wrote in message
...
Hi Nigel;
Try this (in ThisWorkbook module):
Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String)
Private Declare Function GetSystemMenu& Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long)
Private Declare Function DeleteMenu& Lib "user32" (ByVal hMenu As Long _
, ByVal nPosition As Long, ByVal wFlags As Long)
Private Declare Function DrawMenuBar& Lib "user32" (ByVal hWnd As Long)
Private hWnd&
Private Sub Workbook_Activate()
DeleteMenu GetSystemMenu(hWnd, 0), &HF060, 0&
DrawMenuBar hWnd
End Sub
Private Sub Workbook_Deactivate()
GetSystemMenu hWnd, True
DrawMenuBar Application.hWnd
End Sub
Private Sub Workbook_Open()
hWnd = FindWindow(vbNullString, Application.Caption)
End Sub
MP
"Nigel" a écrit dans le message de
...
Hi All
Is there a way of disabling the Windows X - application close button -
after
opening Excel. I know I can do this with a userform but not the
application
as a whole.
Thanks
Nigel
|