Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Maximise and Minimise buttons
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Maximise and Minimise buttons
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Maximise and Minimise buttons
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Maximise and Minimise buttons
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Maximise and Minimise buttons
I tested the code in the article (your first two procedures) in xl97 on
Windows 98 SE and xl2002 on Windows 2000. It worked in both cases. I tested you Disable_Control2 in xl2002 on Windows 2000. It worked in all cases. In all cases, the code was placed in a general module with the declarations at the top of the module above any procedures. A later version of the article http://support.microsoft.com/default...b;en-us;814562 for xl2002 also has references to the version for xl97 and xl2000. None talk about a specific operating system, so to the best of my knowledge, it should work in Windows XP as well. -- Regards, Tom Ogilvy "Jason Zischke" wrote in message ... 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 |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Maximise and Minimise buttons
Hi Tom,
Thanks, the later version of the article worked great. Jason "Tom Ogilvy" wrote: I tested the code in the article (your first two procedures) in xl97 on Windows 98 SE and xl2002 on Windows 2000. It worked in both cases. I tested you Disable_Control2 in xl2002 on Windows 2000. It worked in all cases. In all cases, the code was placed in a general module with the declarations at the top of the module above any procedures. A later version of the article http://support.microsoft.com/default...b;en-us;814562 for xl2002 also has references to the version for xl97 and xl2000. None talk about a specific operating system, so to the best of my knowledge, it should work in Windows XP as well. -- Regards, Tom Ogilvy "Jason Zischke" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
I have lost the minimise and maximise buttons on my worksheet | Excel Discussion (Misc queries) | |||
Minimise/Maximise Controls in Forms | Excel Programming | |||
Hide minimise, maximise, and close buttons on form | Excel Programming | |||
Close, Minimise & Maximise Buttons | Excel Programming | |||
Minimise Maximise Problem | Excel Programming |