Interdire fermeture par la croix

[sten83]

Bonjour a tous, je rencontre un problème avec une macro.
Je voudrais interdire la fermeture du classeur par la croix mais utiliser un bouton prévu a cet effet.
Le problème c'est qu'il y a déjà du code derrière ce bouton donc chaque fois que j'ajoute du code pour interdire la fermeture avec la croix j'ai le message Microsoft qui s'affiche pour me demander si je veux enregistrer ou pas le classeur.
La fermeture dois ce faire a l'aide du bouton RETOUR MENU (macro SaveFeuille)
Ci-joint le fichier.
Merci pour votre aide

 

[JCGL]

Re : Interdire fermeture par la croix

Bonjour,

As-tu pensé aux cinq liens en bas de page :

• [XL 2007] Interdire la fermeture par la croix
  
  
  
  ​
• Forcer l'activation des macros et interdire la fermeture par la croix rouge
  
  
  
  ​
• interdire fermeture userform par la croix
  
  
  
  ​
• Interdire la fermeture par la croix ds 1 feuille
  
  
  
  ​
• interdire la fermeture d'1 userform par le biais de la petite croix en haut....

A+ à tous

 

[sten83]

Re : Interdire fermeture par la croix

Oui merci j'ai regarder mais cela ne convient pour ce que je veux j'ai toujours la boite de dialogue Windows qui s'affiche.

 

[MJ13]

Re : Interdire fermeture par la croix

Bonjour Sten, JC

Tu peux tester ce fichier.

 

[fhoest]

Re : Interdire fermeture par la croix

Bonsoir à tous,
Je reviens sur mon message pour dire que je n'avais pas ouvert le fichier de MJ13,et maintenant que je l'ai ouvert il me semble que la solution que je t'ai proposé est quasi identique. (toute mes excuses a MJ13)
@+
je te propose ceci:

Public sortie As Boolean
Sub SavFeuille()
sortie = True
MakeDirEx ("C:\GSM\Sauvegardes\")
Application.DisplayAlerts = False
ActiveSheet.Select
ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\GSM\Sauvegardes\" & _
ActiveSheet.Name & " " & ActiveSheet.Range("G4") 'Format(Date, " yyyy"), xlNormal
ActiveWorkbook.Close 'entre parenthèse 0 pour sortir sans enregistrer ou 1 pour enregistrer sans message
Application.DisplayAlerts = True
MsgBox "Le mois de " & ActiveSheet.Name & " " & ActiveSheet.Range("   G4") & " a été sauvegardé", vbInformation, ThisWorkbook.Name
'ACCUEIL.Activate
'MENU.Show
End Sub

Et

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If sortie = False Then Cancel = True
End Sub

A bientôt.
ps : je n'ai pas tester le code