Fermeture interdite

[STEN83]

Bonjour a tous,

Dans un classeur avec un menu principal, j'aimerai que les utilisateurs ferme celui-ci avec un bouton créé à cet effet et non avec la croix qui se trouve dans le coin superieur droit.
En somme interdir la fermeture par la croix!

Merci pour vos suggetions.

 

[webcyril]

Très facile ...

Tu places du code de ce style dans la sub BeforeClose
de ton Workbook !
La variable bQuitterAppli à True doit être initialisée par le bouton
que tu désire utiliser pour quitter et à False ailleurs.

exemple:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

' si on n'a pas quitté par le menu
If Not bQuitterAppli Then
MsgBox "Veuillez quitter l'application par le menu Quitter", vbExclamation + vbOKOnly, Application.Caption
Cancel = True
Exit Sub
End If
Msgbox "Au revoir ..."
End Sub

A+

webcyril
forum: http://www.webcyril.fr.st/forum