[VBA-E/W..] inhiber le bouton close, barre de titre [Fait]

[bbil]

Q : Comment inhiber, le bouton close (la croix blanche sur fond rouge, en haut à droite) d'un UserForm
R : Par l'utilisation des APIs GetSystemMenu et hSysMenu, et pour le cas d'Excel ou Word qui ne donne pas accès au handle de la fenêtre : FindWindowA

Code :

1
2
3
4
5
6
7
8
9
10
 
Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName _
  As String) As Long
Private Sub UserForm_Initialize()
 Dim MeHwnd As Long
 MeHwnd = FindWindowA(vbNullString, Me.Caption)
 MsgBox "le Handle de l'Userform " & Me.Caption & " est : 0x" & Hex(MeHwnd)
 
End Sub

PS:discussion de référence : [VBA-E]Cacher le bouton fermer

[ThierryAIM]

Code complété par la discussion initiale et intégré à la FAQ