Comment faire pour que, lors de l'utilisation de certains
fichiers, le click sur la petite croix pr fermer l'Activeworkbook
et sur la petite croix pr fermer l'Activewindow ne soit plus possible
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Starwing
Bonjour Erwann,
Voici une solution qui a été apporté par AV et qui fonctionne très bien. Toutefois, avec cette procédure, tu devras ajouter un bouton sur les feuilles sur lesquelles tu désires pouvoir quitter. Avec le(s) bouton(s) sur la(es) feuille(s), affectes la macro ThisWorkbook.Pas_la_croix
Dans le module de ThisWorkbook :
Private Quitter As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not Quitter Then Cancel = True End If End Sub
Sub Pas_la_croix() Quitter = True ThisWorkbook.Close End Sub
-- Au plaisir de vous revoir ...Visitez >> http://www.excelabo.net Le merveilleux site de
Bonjour Erwann,
Voici une solution qui a été apporté par AV et qui fonctionne très bien.
Toutefois, avec cette procédure, tu devras ajouter un bouton sur les
feuilles sur lesquelles tu désires pouvoir quitter.
Avec le(s) bouton(s) sur la(es) feuille(s), affectes la macro
ThisWorkbook.Pas_la_croix
Dans le module de ThisWorkbook :
Private Quitter As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Quitter Then
Cancel = True
End If
End Sub
Sub Pas_la_croix()
Quitter = True
ThisWorkbook.Close
End Sub
-- Au plaisir de vous revoir ...Visitez >> http://www.excelabo.net Le
merveilleux site de MisangeStarwingbrault-lavoieNOSPAM@sympatico.ca--
Voici une solution qui a été apporté par AV et qui fonctionne très bien. Toutefois, avec cette procédure, tu devras ajouter un bouton sur les feuilles sur lesquelles tu désires pouvoir quitter. Avec le(s) bouton(s) sur la(es) feuille(s), affectes la macro ThisWorkbook.Pas_la_croix
Dans le module de ThisWorkbook :
Private Quitter As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not Quitter Then Cancel = True End If End Sub
Sub Pas_la_croix() Quitter = True ThisWorkbook.Close End Sub
-- Au plaisir de vous revoir ...Visitez >> http://www.excelabo.net Le merveilleux site de
