Access 2010 Windows API user32

Bonjour,

J'utilise Windows API pour modifier et fixer la taille initiale d'application.

Une partie de code standard souvent utilisé :

Code:

---

1 2 3 4

Dim lngK As Long lngK = WU_GetWindowLong(lngID, GWL_STYLE) lngK = lngK Xor WS_MAXIMIZEBOX Xor WS_THICKFRAME WU_SetWindowLong lngID, GWL_STYLE, lngK

---

Le code fonctionne sur Access 2003, mais sur Access 2010 l'utilisateur peut changer la taille de la fenêtre par le bouton sur la "bar d’état". Voici l'image:

Pièce jointe 229834

Est-ce qu'il y a une méthode pour désactiver le bouton sans cacher la "bar d’état"? Merci par avance pour votre réponse.

Code:

---

1 2 3 4 5

#if VBA7 then Declare PtrSafe Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long #else Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long #end if

---

https://msdn.microsoft.com/fr-fr/lib...ffice.14).aspx

j'ai la version Windows 32 bit et compatible VBA v6.0, le code utilisé pour la déclaration:

Code:

---

1 2 3

Declare Function WU_GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Declare Function WU_SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

---

Code:

---

1 2 3 4 5 6 7 8 9

#if VBA7 then 'Win 64 Bits {user32} Declare PtrSafe Function WU_GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Declare PtrSafe Function WU_SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #else 'Win 32 Bits {user32} Declare Function WU_GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Declare Function WU_SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #end if

---

aucun effet :(