Croix dans formulaire

En VBA je suppose ...

Oui tu as raison j'ai oublié de préciser.

J'ai déplacé la question ...

Bonjour demonkill

Je la trouve où. Je pense dans développement.
Merci

Si tu es dedans tu dois l'avoir trouvée non ? J'ai déplacé cette question, celle où on est en ce moment dans
"SOS Ordi > Aide en ligne > Logiciel > Développement > Langages > Visual Basic"

Sinon tu l'a dans "Suivi aide en ligne"

Oui je viens de voir cela.
Trop de précipitation dans ma question.
Peut-être à plus tard.

J'ai trouvé ce code mais ça ne fonctionne pas.

Private Sub Userform_QueryClose(CancelAs Integer, CloseMode As Integer)
If CloseMode=0 then Cancel=True
End Sub

Bonjour à tous,

Je suis toujours à la recherche d'un code empêchant le fonctionnement de la croix en haut des formulaires. J'ai cherché ce week-end, mais sans résultat.
Si vous avez des idées parce que là, je coule.
Merci par avance

Bonjour à tous,

J'ai trouvé des codes, mais je ne sais pas où je dois les mettre, dans le workbook, ailleurs ???

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 IpClassName As String, ByVal IpWindowName 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
Moi je suis perdu.

ça y est j'ai trouvé en écrivant ce code à chaque UserForm

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode=0 Then
Cancel=True
End If
End Sub
Ouf! Peut-être il y t-il plus rapide, mais pour le moment ça me suffit.
Merci à celles et ceux qui cherchaient.
A+++