removing maximize control from excel application (not just worksheet)?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

151 - 29 Nov 2007 16:34 GMT

hi all,

I am trying to remove the maximize control (the small square control
common to most windows) from the top right of Excel (the application,
not just the worksheet) and I can remove everything BUT the maximize
and minimize controls with code similar to:

lHandle = FindWindowA(vbNullString, Application.Caption)
If lHandle <> 0 Then
DeleteMenu GetSystemMenu(lHandle, False), 0, MF_BYPOSITION
DeleteMenu GetSystemMenu(lHandle, False), 1, MF_BYPOSITION
.....etc

A variation of the code above removes the maximize option from the
system menu but does NOT remove the maximize icon (the small square)
too. Strangely I can disable the "X" that closes the application
without any problems....

Is it possible to do it? I want to stop the user maximizing Excel as
I am trying to make the worksheet look like more of a standalone
application. Its working pretty well apart from this issue!

thanks guys!

Gav

Reply to this Message

Greg Wilson - 30 Nov 2007 03:18 GMT

Perhaps this instead:

Sub Test()
With Application
.DisplayFullScreen = Not .DisplayFullScreen 'True
.CommandBars(1).Enabled = Not .CommandBars(1).Enabled 'False
.CommandBars("Full Screen").Visible = False
End With
End Sub

Greg

> hi all,
>
[quoted text clipped - 21 lines]
>
> Gav

Reply to this Message

151 - 30 Nov 2007 17:54 GMT

hi,

hmm yeah the problem is I dont want it to run full screen really as
there ends up being a lot of "white space" shown. I am retrofitting
an existing spreadsheet to look like an application so am kind of
restricted in what I can do.

I suspect that I might have to just ensure it looks "okish" if the
user decides to click the maximize button by rearranging it visually.
Its just strange that I can disable every control except the max/min
ones! It would make more sense to me if it was impossible to disable
the "X" close button!

On Nov 30, 3:18 am, Greg Wilson <GregWil...@discussions.microsoft.com>
wrote:

> Perhaps this instead:
>
[quoted text clipped - 33 lines]
>
> > Gav

Reply to this Message