Discussion :

[Liloo14]

Bonsoir à tous,
Quelqu'un peut-il me dire si il est possible de rendre impossible la fermeture d'une userform en cliquant sur la croix rouge en haut à droite d'une userform?
Si c'est possible je suis preneur. Merci par avance

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
If CloseMode <> 1 Then Cancel = 1
End Sub

Ou bien écrit autrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
Cancel = CloseMode = 0
End Sub

[kiki29]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

[AlphaScorpi]

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal brevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const SC_CLOSE As Long = &HF060
 
Private Sub Userform_Initialize()
    Dim hWndForm As Long
    Dim hMenu As Long
 
    hWndForm = FindWindow("ThunderDFrame", Me.Caption)
    hMenu = GetSystemMenu(hWndForm, 0)
    DeleteMenu hMenu, SC_CLOSE, 0&
 
End Sub

[Liloo14]

Merci à tous, j'ai plus que royalement trouvé mon bonheur