VBA: ocultar “minimizar Access”

Option Compare Database
Option Explicit

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Const GWL_STYLE = (-16)
Public Const WS_CAPTION = &HC00000
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_SYSMENU = &H80000
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOZORDER = &H4

Const wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE
Const FLAGS_COMBI = WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU


Function BotonMinVisible(bEnable As Boolean) As Long
'-----------------------------------------------------------------------------------------------------------------------------------------------
' Fuente            : https://access-global.net/vba-ocultar-minimizar-access/
'-----------------------------------------------------------------------------------------------------------------------------------------------
' Título            : BotonMinVisible
' Autor original    : Desconocido
' Adaptado por      : Luis Viadel
' Actualizado       : abril 2011
' Propósito         : bloquea la opción minimizar la ventana de Access
' Retorno           : long
' Argumento/s       : La sintaxis del procedimiento o función consta del siguiente argumento:
'                     Parte                Modo        Descripción
'-----------------------------------------------------------------------------------------------------------------------------------------------
'                     activado          Obligatorio    El valor Boolean especifica si el botón minimizar está bloqueado o no
'-----------------------------------------------------------------------------------------------------------------------------------------------
'Test:              : Para adaptar este código en tu aplicación puedes basarte en este procedimiento test. Copiar el bloque siguiente al
'                     portapapeles y pega en el editor de VBA. Descomentar la línea que nos interese y pulsar F5 para ver su funcionamiento.
'
'Sub BotonMinVisible_test()
'
'   BotonMinVisible true
'
'End Sub
'-----------------------------------------------------------------------------------------------------------------------------------------------
Dim hwnd As Long
Dim nIndex As Long
Dim dwNewLong As Long
Dim dwLong As Long

hwnd = hWndAccessApp
nIndex = GWL_STYLE

dwLong = GetWindowLong(hwnd, nIndex)

If bEnable Then
 dwNewLong = (dwLong Or WS_MINIMIZEBOX)
Else
 dwNewLong = (dwLong And Not WS_MINIMIZEBOX)
End If

Call SetWindowLong(hwnd, nIndex, dwNewLong)

Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags)

End Function