Re: 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.aspx?scid=kb;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" <JasonZischke@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:1D33AFA1-DBDA-4DF8-9333-345BA6E63D79@xxxxxxxxxxxxxxxx
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" <JasonZischke@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in
message
news:A032692D-146A-40C5-9AE5-13E0A9F0D8E8@xxxxxxxxxxxxxxxx
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" <JasonZischke@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in
message
news:BC38C09C-6476-4FF4-9991-9AD22129D497@xxxxxxxxxxxxxxxx
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









.

Relevant Pages

  • Re: Maximise and Minimise buttons
    ... I tested the code in the article in xl97 on ... Windows 98 SE and xl2002 on Windows 2000. ... Dim X As Integer, hwnd As Long ... "Tom Ogilvy" wrote: ...
    (microsoft.public.excel.programming)
  • Re: Maximise and Minimise buttons
    ... (ByVal lpClassName As String, ByVal lpWindowName As String) ... Dim X As Integer, hwnd As Long ... "Tom Ogilvy" wrote: ... This worked on disabling them in the right click menu but didn't disable ...
    (microsoft.public.excel.programming)
  • Re: Hide Programs on Pocket PC
    ... I have been using Cab Provisioning Files ... I use it for "big" Windows and all Windows CE platforms. ... // the class name for the SIP button is MS_SIPBUTTON, ... HWND hWnd = PFWTaskBarFind; ...
    (microsoft.public.pocketpc.developer)
  • Re: Combobox width
    ... You can then use hwnd for any sendmessage calls to this control. ... Most API functions in Windows CE are contained in coredll.dll in contrast to ... Declare Function SendMessage Lib "Coredll.dll" (ByVal hwnd as IntPtr, ... >>>> looking for is a means of widening the display portion of the dropdown ...
    (microsoft.public.dotnet.framework.compactframework)
  • Re: APIs FindWindow and GetWindowText
    ... When it comes to Toolbar windows I suspect there's more to finding them than ... Try undocking your main toolbar "Worksheet Menu Bar". ... ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As ... Sub Sub1() ...
    (microsoft.public.excel.programming)