Message Box empechant la fermeture d'Excel

Bonjour,

Je souhaite intégrer à ma macro une MessageBox à la fermeture du fichier, qui se déclencherait si des filtres sont actifs dans la feuille "J" de mon classeur, empêchant ainsi la fermeture du fichier.

Merci d'avance pour votre aide

Bonjour

Pourquoi ne pas simplement enlever les filtres à la fermeture du fichier ?

Les filtres sont de type "filtre automatique" ?

Cordialement

Bonjour,

Ce sont des filtres automatiques

Je ne suis pas le seul utilisateur du fichier et certains n’y pense pas ce qui bloque l’utilisation d’autres fichiers

Re

Vous voulez mettre votre message box dans quelle macro ?
Le fichier ne contient qu'une seul feuille ?

Re,

Je pensais faire une nouvelle macro avec uniquement la message box avant fermeture du fichier qui ne contient qu'une seule page

Dans votre fichier faites ceci :

- Allez dans l'éditeur VBA
- dans la Fenetre VBA Project --> Double click sur THISWORKBOOK
- Coller le code ci-dessous

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveSheet
    .Cells.Rows.EntireRow.Hidden = False
    .ShowAllData
End With
ThisWorkbook.Save 'enregistrement du fichier
End Sub

Lorsque vous fermerez le fichier toutes les lignes masquées ou filtrées seront réaffichées
J'ai ajouté une ligne pour enregistrer automatiquement le fichier sans message excel. Sans quoi cela ne fonctionne pas.

Cordialement