fermeture par la croix rouge

  • Initiateur de la discussion Initiateur de la discussion JOAN66
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JOAN66

XLDnaute Junior
Bonjour a tous , mon nouveau projet est le suivant:
rendre la fermeture de la feuille d'Excel par la " croix rouge" en haut a droite INACTIVE .
avec obligation de passer par un bouton de fermeture .
Sur mon tableau original je fais disparaître les commandBars a l'ouverture et les remets à la fermeture de ce tableau.
Sur l'exemple dans le fichier " Sauvegarde ' j' ai volontairement neutralisé la macro "Private Sub Workbook_BeforeClose(Cancel As Boolean)" car celle ci tourne en rond et je ne peux pas fermer Excel .
Merci de votre aide
 

Pièces jointes

Re : fermeture par la croix rouge

Bonjour,

Le 1er forum n'ayant marché, j'en prend un autre 😉

Voilà deux module pour 32 ou 64 bits suivant ta version
A toi d'adapter pour le lancement à l'ouverture et à la fermeture depuis le Thisworkbook
 

Pièces jointes

Re : fermeture par la croix rouge

Bonjour M12 🙂

Plus simple

Code:
Private Sub Workbook_Open()
CancelSortie = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = CancelSortie
End Sub

'DANS LE MODULE
Public CancelSortie As Boolean

Sub Fermer_Tableau()
Dim ret as integer

ret = MsgBox(" Fermer le tableau  ?", vbYesNo + vbDefaultButton2)

If ret = vbYes Then
CancelSortie = False
Application.DisplayAlerts = False
ActiveWorkbook.Save 
Application.Quit
End If
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
432
Retour