Sortir d'un classeur sans la "X" en haut à droite

N

néné

Guest

• 26 Juillet 2002

• #2

Voici déja la macro pour sortir

Sub fermer_application()
Application.Quit
End Sub

je n'est pas la solution pour empêcher de cliquer sur les croix

Robert rené
www.utilsfr.fr.fm

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 26 Juillet 2002

• #3

n'oublie pas que tu peux utiliser une macro événementielle BeforeClose, dans laquelle tu peux facilement lancer ta macro

 

Vote positif 0 Vote négatif

E

ERIC

Guest

• 26 Juillet 2002

• #4

Bonjour Ti,

C'est à dire ... Peut tu être un peu plus explicite concernant cette macro evenementielle.

Sachant que j'utilise déjà une macro affecté à un bouton qui permet d'enregistrer, de fermer le classeur et de quitter Excel.

Merci

 

Vote positif 0 Vote négatif

C

chris

Guest

• 27 Juillet 2002

• #5

Tu peux appeler ta macro de sortie Auto-close : elle se lancera automatiquement même en cliquant sur la croix.
Chris

 

Vote positif 0 Vote négatif

E

ERIC

Guest

• 27 Juillet 2002

• #6

Merci pour ton aide Chris, c'est OK

 

Vote positif 0 Vote négatif

P

Pascal

Guest

• 29 Juillet 2002

• #7

J'ai eu le meme probleme.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
MsgBox "utiliser le bouton SORTIE pour quitter"
Cancel = True
End Sub


Merci à STéphane pour ce code.

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 29 Juillet 2002

• #8

N'oublie pas tout de même que l'apparition de ce message est vécue en général comme très pénible par l'utilisateur. Je te conseille donc de rendre les actions avant fermeture les plus transparentes possibles pour celui-ci.

 

Vote positif 0 Vote négatif

C

catherine

Guest

• 1 Août 2002

• #9

Je te propose une solution un peu "radicale" : supprimer la barre de titre (celle qui a la croix).
Application.DisplayFullScreen = True

Evidemment la réafficher dans une macro Auto_close, sinon t'es mal!!!
Application.DisplayFullScreen = False

Catherine

 

Vote positif 0 Vote négatif