Desactiver le croix dans une userform sur VBA

Question

Salut tt le monde,
Ya il un moyen de desactiver la petite croix pour fermer dans une userform ou carement de la supprimer.
Merci d'avance

michelxld · Accepted Answer

bonjour

si c'est du VBA Excel tu peux essayer

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If CloseMode 0 Then Cancel True
End Sub

ps
n'oublies pas d'ajouter un autre bouton pour fermer l'USF

Unload Me

bonne soiree
michel

vangelis_424 · Answer

Salut,
Dans le proprieté du formulaire tu dois avoir "controle box" il suffit de le mettre a false.

stolken · Answer

N&#233;gatif mon commandant je n'ai pas cette propri&#233;t&#233;

violent_ken · Answer

Violent Ken

Mieux vos mettre &#231;&#224; dans ta form :

'api pour d&#233;sactiver la croix de fermeture
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long


Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&


Private Sub DesactiveX()
'd&#233;sactiver croix de fermeture
On Error Resume Next
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Me.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
DrawMenuBar Me.hwnd
End Sub


Private Sub Form_Load()
DesactiveX
End Sub

psgman25 · Answer

merci michel!

Desactiver le croix dans une userform sur VBA

5 réponses

Discussions similaires