Bonjour.
Ajouter un appel à No_X dans UserForm_Activate.
Private Declare Function DeleteMenu& _
Lib 'user32' _
(ByVal hMenu&, ByVal nPosition&, ByVal wFlags&)
Private Declare Function GetSystemMenu& _
Lib 'user32' _
(ByVal hwnd&, ByVal bRevert&)
Sub No_X()
Const SC_CLOSE& = &HF060&, MF_BYCOMMAND& = &H0&
DeleteMenu GetSystemMenu(Me.hwnd, False), SC_CLOSE, MF_BYCOMMAND
End Sub
Sub RemetX()
GetSystemMenu Me.hwnd, True
End Sub
Alain CROS