croix rouge pour fermer un userform

[nikkyb]

Bonjour,

J'ai essaié plusieur code trouvé sur des forum mais malgrés ca je n'ai pas trouvé ma réponse :

J'aimerais d'une part enlever la croix rouge situé en haut à droite des userform

Et avoir toujours dans des userform un bouton permettant de sauvegarder et un de quitter.
J'ai déja un bouton quitter avec ce code :Application.Quit
mais vu que je ne peut pas sauvegarder via l'userform, je me retrouve avec le message de microsoft : voulez vous sauvegarder et si j'annule alors je retombe sur les feuils excel.

Le but étant de ne plus voir les feuil de calcul et de ne travailler qu'avec les userform de mon appli

Merci d'avance

 

[YANN-56]

Re : croix rouge pour fermer un userform

Bonjour à toi et à ceux qui passeront par là,

Tu trouveras, peut-être, dans ce p'tit truc ce que tu cherches.

Bonne journée.

Yann

 

[nikkyb]

Re : croix rouge pour fermer un userform

Sais tu comment enlever juste la croix rouge et garder le bandeau bleu ,
?

Merci beaucoup!

 

[YANN-56]

Re : croix rouge pour fermer un userform

Re:

Je l'ai certainement dans mes archives, mais je dois partir.

En faisant une recherche dans XLD, tu trouveras certainement.

Les exemples ne manquent pas!!!

A noter que tu peux simplement désactiver cette croix.

A + si tu en as besoin.

Yann

 

[nikkyb]

Re : croix rouge pour fermer un userform

Ha bah comment la désactiver ?

Ca me suffira lol

 

[Compte Supprimé 979]

Re : croix rouge pour fermer un userform

Bonjour le fil,

Le code pour désactiver la croix rouge

Dans un module

Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
 
 Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
 
 Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Public Transfer(6) As String
 
Sub OteCroix(UF As UserForm)
Dim hwnd As Long
    'Enlève la croix rouge de l'UF
    hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
    & "Frame", UF.Caption)
    SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

Dans l'USF à l'initialisation

Private Sub UserForm_Initialize()
    OteCroix Me
    '.... code
End sub

Voili, voilà 😉

 

[nikkyb]

Re : croix rouge pour fermer un userform

Merci ca fonction parfaitement !

 

[Pierrot93]

Re : croix rouge pour fermer un userform

Re, bonjour Bruno🙂

pas sur que tu ais vu ce post...
https://www.excel-downloads.com/threads/msgbox-a-trois-possibilite.141746/

 

[nikkyb]

Re : croix rouge pour fermer un userform

en effet je l'ai loupé celui la, en fait je me suis debrouillé pour parler de la meme chose sur plusieur post🙄

 

[job75]

Re : croix rouge pour fermer un userform

Bonjour le fil,

@ Hulk : il me semble qu'il y a plus simple pour désactiver la croix rouge.

Par exemple, dans la macro qui ouvre l'UserForm :

1 UserForm1.Show
GoTo 1

Et bien sûr terminer la macro qui ferme l'UserForm par l'instruction End.

Edit : ah oui pardon, tu ne désactives pas, tu enlèves...

A+

 

[Minick]

Re : croix rouge pour fermer un userform

Salut a tous,

Pour deactiver il faut placer ceci dans le code de la forme:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> vbFormCode Then Cancel = True
End Sub