View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Jason Zischke Jason Zischke is offline
external usenet poster
 
Posts: 147
Default Maximise and Minimise buttons

Hi Tom

I tried it again and still got the same result, am I doing something wrong
below is the code.

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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

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

Sub Disable_Control()
Dim X As Integer, hwnd As Long
hwnd = FindWindow("XLMain", Application.Caption)
For X = 1 To 9
'Delete the first menu command and loop until
'all commands are deleted
Call DeleteMenu(GetSystemMenu(hwnd, False), 0, 1024)
Next X
End Sub

Sub RestoreSystemMenu()
Dim hwnd As Long
'get the window handle of the Excel application
hwnd = FindWindow("xlMain", Application.Caption)
'restore system menu to original state
hMenu% = GetSystemMenu(hwnd, 1)
End Sub


Sub Disable_Control2()
Dim X As Integer, hwnd As Long
hwnd = FindWindow("XLMain", Application.Caption)
Call DeleteMenu(GetSystemMenu(FindWindow("xlMain", _
Application.Caption), False), 4, 1024)
Call DeleteMenu(GetSystemMenu(FindWindow("xlMain", _
Application.Caption), False), 3, 1024)
End Sub

Any help would be Greatly Appreciated

Jason


"Tom Ogilvy" wrote:

In contrast, It worked for me.

Did you actually try the buttons.

The buttons were still there and would depress, but did nothing.


--
Regards,
Tom Ogilvy




"Jason Zischke" wrote in message
...
Hi Tom

This worked on disabling them in the right click menu but didn't disable

the
buttons.

Regards

Jason

"Tom Ogilvy" wrote:

http://support.microsoft.com/kb/213502/EN-US/
XL2000: How to Programmatically Disable Microsoft Excel Control Menu
Commands

--
Regards,
Tom Ogilvy



"Jason Zischke" wrote in

message
...
Hi All,

Is there a way to disable the minimise and maximise buttons at the top
right
hand corner in excel I've got the close button to disable so that the

only
to
close the program is my way but is there any way to disable these?

Thanks in advance

Jason