Disable application maximize button

[convexcube]

Hi everyone,

Now that I've found a way to disable the ribbon etc. I need to disable the application maximize button. I have looked at this post and implemented it, but it disables the close and minimize buttons as well. Is there a simple command I can use to disable just this button or any way I can adapt the cited post to do just that?

Kind regards,

Ken.

[ADezii]

Try this code in a Standard Code Module, then Call the Function:

Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Function DisableMAXIMIZE() As Long
Dim hMenu As Long
Dim lStyle As Long
Dim Lhwnd As Long
 
Lhwnd = Access.Application.hWndAccessApp
 
'Disable MAXIMIZE button
lStyle = GetWindowLong(Lhwnd, GWL_STYLE)
lStyle = lStyle And Not WS_MAXIMIZEBOX
 
Call SetWindowLong(Lhwnd, GWL_STYLE, lStyle)
End Function

[convexcube]

Thanks ADezii, works a treat. Much Appreciated, Ken

[ADezii]

@convexcube
Glad it worked for you.