Access Fenster per Maus nicht in der Größe änderbar machen und Maximieren unterbinden

Beim Arbeitsformular Fenster Close verboten
SetEnabledState(False)

Beim Log-In Fenster Close erlaubt

SetEnabledState(True)

 

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _  
     ByVal bRevert As Long) As Long

 Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _  
     Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

 Const MF_GRAYED = &H1&
 Const MF_BYCOMMAND = &H0&
 Const SC_CLOSE = &HF060&

 Public Function SetEnabledState(blnState As Boolean)
     Call CloseButtonState(blnState)
     
 End Function



 'Disable the Close Button Option  
 Sub CloseButtonState(boolClose As Boolean)
     Dim hWnd As Long
     Dim wFlags As Long
     Dim hMenu As Long
     Dim result As Long
        
     hWnd = Application.hWndAccessApp
     hMenu = GetSystemMenu(hWnd, 0)
     If Not boolClose Then
         wFlags = MF_BYCOMMAND Or MF_GRAYED
     Else
         wFlags = MF_BYCOMMAND And Not MF_GRAYED
     End If
     
     result = EnableMenuItem(hMenu, SC_CLOSE, wFlags)
 End Sub