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

[ERIC]

Bonjour

Je souhiterai pouvoir interdire la sortie d'un classeur (xls, ou xlt) par le "X" en haut à droite et obligé l'utilisateur à utiliser un bouton "Sortie" contenant une macro.

Est-ce possible ? Si oui comment puis-je faire ?

Merci d'avance de votre aide
Amicalement
Eric

 

[néné]

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

 

[Ti]

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

 

[ERIC]

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

 

[chris]

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

 

[ERIC]

Merci pour ton aide Chris, c'est OK

 

[Pascal]

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.

 

[Ti]

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.

 

[catherine]

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