EXCEL - Ne pas fermer avec la croix

Question

Bonjour,

Voici le code que l'on m'a donner pour ne pas fermer Excel avec la croix !
Cependant celui-ci ne fonctionne pas ! Quand je ferme avec la croix Excel se ferme tout simplement !

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> 1 Then Cancel = 1 ' si tu fermes avec la croix, excel ne se ferme pas
        var = MsgBox("Quitter l'application ?", vbOKCancel) ' demande de confirmation
            If var = vbOK Then ' confirmation de fermeture
                ActiveWorkbook.Save ' sauvegarde du classeur
                Application.Quit ' fermeture d'excel
            End If
End Sub

je le mets dans thisWorkBook !

merci de votre aide.

Poussin 38

valtrase · Answer

Salut,
ce code marche tr&#233;s bien tu dois seulement le coller dans la bonne sub celle de ta UserForm et non pas dans thisworkbook
tu vas dans ta Userform1 tu cherches la sub QueryClose et tu colles ce code voil&#224; c'est tout

   If CloseMode <> 1 Then Cancel = 1 ' si tu fermes avec la croix, excel ne se ferme pas
        var = MsgBox("Quitter l'application ?", vbOKCancel) ' demande de confirmation
            If var = vbOK Then ' confirmation de fermeture
                ActiveWorkbook.Save ' sauvegarde du classeur
                Application.Quit ' fermeture d'excel
            End If

____________________________________________________

Cordialement, Jean-Paul

Le Savoir n'a de valeur que s'il est partag&#233;

mrdep1978 · Answer

Ce &#233;v&#233;nement se d&#233;clenche sur la fermeture d'une Form VBA, pas sur la fermeture d'Excel.
A ma connaissance, &#224; part l'&#233;v&#233;nement BeforeClose de ThisWorkbook, il n'y a rien (dans le VBA Excel) pour r&#233;cup&#233;rer la fermeture d'Excel.

J'esp&#232;re pour toi que je me trompe ...

valtrase · Answer

Oups, j'ai pas bien lu
oui en effet mon code ce n'est que pour des UserForm d&#233;sol&#233; !!!!

____________________________________________________

Cordialement, Jean-Paul

Le Savoir n'a de valeur que s'il est partag&#233;

cs_darunia · Answer

Salut,

Trouve le  hwnd de la fenetre d'excel et utilise l'API windows :

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() 
     Dim hMenu As Long 
     Dim nCount As Long 
     hMenu = GetSystemMenu(hwnd d'excel, 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 hwnd d'excel 
End Sub 

[mailto:D@runia D@runia]

poussin38 · Answer

Salut,

juste une petite question ...
c quoi le hwnd ???

merci

Poussin 38

mrdep1978 · Answer

hWnd = Handle window
C'est une valeur (adresse d'un pointeur je pense) qui permet d'identifier une application, une fen&#234;tre ... au sein du syst&#232;me d'exploitation (en l'occurence Windows)

Si il y a qqn qui trouve que ce que je raconte, c'est vraiment n'importe quoi, qu'il le dise .

De toute fa&#231;on, je comprends rien &#224; l'informatique

poussin38 · Answer

Salut,

j'ai mis ton bout de code dans thisworkbook (g&#233;n&#233;ral) car a aucun moment j'ai trouv&#233; de hwnd ! et cela ne fonctionne pas !!! 

tu l'a essayer ce code ? &#231;a marche chez toi ?

Poussin 38

cs_darunia · Answer

Salut

Tu peux trouver le handle de la fenetre :

- Avec l'API FindWindow
- Avec l'API EnumWindows

Documente toi un peu sur ces fonctions et tu devrais trouver le handle de la fenetre d'excel

[mailto:D@runia D@runia]

EXCEL - Ne pas fermer avec la croix

8 réponses

Discussions similaires