Microsoft KB Archive/107689

= How to Programmatically Disable Microsoft Excel Control Menu Commands =

Article ID: 107689

Article Last Modified on 6/11/2007

-

APPLIES TO


 * Microsoft Excel 97 Standard Edition

-



This article was previously published under Q107689



SUMMARY
You can use the Microsoft Windows Dynamic Link Libraries (DLLs) to disable the commands in the Microsoft Excel Control menu. For example, you can use these tools to delete the Minimize and Maximize buttons.



MORE INFORMATION
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. Microsoft Excel does not have the built-in functionality to modify the Control menu commands. However, you can use the Declare statement in a Visual Basic procedure to call Microsoft Windows functions to disable and restore Control menu items.

The following sample Visual Basic procedure, Disable_Control, disables the entire Control menu in Microsoft Excel. The macro disables the Control menu for the current session of Microsoft Excel (when you restart Microsoft Excel the Control menu will be reset). The procedure RestoreSystemMenu restores the Control menu.

Microsoft Excel Version 97 and 7.0
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

'The following procedure disables the Control menu. 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

'The following procedure restores the Control menu. 'Note that to run this procedure, the Declare statements above 'must be in the module. 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

Microsoft Excel version 5.x
'The following procedure disables the Control menu Declare Function GetActiveWindow Lib "User" As Integer

Declare Function GetSystemMenu Lib "User" (ByVal hWnd As Integer, _  ByVal bRevert As Integer) As Integer

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

Sub Disable_Control Dim X as Integer For X = 1 to 9 'Delete the first menu command and loop until 'all commands are deleted Call DeleteMenu(GetSystemMenu(GetActiveWindow, False),0,1024) Next X End Sub

'The following procedure restores the Control menu 'Note that to run this procedure, the Declare statements above 'must be in the module Sub RestoreSystemMenu 'get the window handle of the Excel application hWnd = GetActiveWindow 'restore system menu to original state hMenu% = GetSystemMenu(hWnd, 1) End Sub