Enlever fermer dans un userform

[Fred]

Comment faire pour que la croix pour fermer les fenetres (en haut a droite dans la barre de titre) n'apparaisse pas dans mes userforms ?

 

[Fred]

Non, c'est bon j'ai trouvé le moyen de le désactiver, c'est :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Mais si vous trouvez le moyen de supprimer la croix contactez moi !

 

[Stéphane]

et voilà :

Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF

End Sub

bye
stephane