disable maximizebox in Excel Title bar

[x taol]

i want to disable the maximizebox of top,right of Excel application
title bar.

how can i?

 

[moon]

i want to disable the maximizebox of top,right of Excel application
title bar.

how can i?

Use the windows API:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As
Long

Public Sub DisableMaximizeButton()
Dim hWnd As Long
Dim hWndStyle As Long
hWnd = FindWindow("XLMAIN", Application.Caption)
hWndStyle = GetWindowLong(hWnd, -16)
hWndStyle = hWndStyle And Not &H10000
SetWindowLong hWnd, -16, hWndStyle
End Sub

 

[x taol]

Thank you very much moon.... but the big problem occured.
After the excel minimize, do the excel up again. and then the excel
enter down windows taskbar.

oooooo. please....

 

[x taol]

Thank you very much moon.... but the big problem occured.
After the excel minimize, do the excel up again. and then the excel
enter down windows taskbar.

oooooo. please....

 

[moon]

Thank you very much moon.... but the big problem occured.
After the excel minimize, do the excel up again. and then the excel
enter down windows taskbar.

oooooo. please....

I don't have that problem here, here it works just fine. But you can switch
back to normal, using:

hWndStyle = hWndStyle Or &H10000


The only thing is that I first have to move my mouse over the titlebar
before the MaximizeBox appears or disappears, even after a setfocus.

 

[x taol]

no good. it doesn't work.
i want to work well.
my wanting is that the maximizebox disable and minimize and restore(up)
again and then the excel window be to appear normaly.
abnormaly, after minimize the excel window, the window enter down
windows taskbar, like full screen.