'Declaración de la API
'Función para deshabilitar botones de Access
Private Declare Function GetSystemMenu Lib "user32" (ByVal 
hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" 
(ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal 
hWnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal 
hMenu As Long, ByVal nPosition As Long, ByVal wFlags As 
Long) As Long

'Función para Deshabilitar botones de la ventana principal 
de Access
Public Sub DesactivarBotonesAccess()
On Error GoTo ControlError
Dim WinWnd As Long
Dim i As Integer
Dim hSysMenu As Long, nCnt As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
   WinWnd = Application.hWndAccessApp
   hSysMenu = GetSystemMenu(WinWnd, False)
   If hSysMenu Then
      nCnt = GetMenuItemCount(hSysMenu)
      If nCnt Then
         For i = nCnt - 1 To 0 Step -1
         RemoveMenu hSysMenu, i, MF_BYPOSITION Or MF_REMOVE
         DrawMenuBar Application.hWndAccessApp
         Next
      End If
   End If
Exit Sub
ControlError:
MsgBox Err.Description
End Sub