XL 2010 Activer Macro Obligatoirement

[donadoni16]

Bonjour à tous,

le code ci-dessous permet d'afficher un message qui demande d'activer les macros obligatoirement avant d'ouvrir le fichier
le problème c'est qu'il enregistre tout seul toutes les modifications faites sur le fichier sans me le demander comme fait excel normalement avant de quitter un classeur
comment je peux le rectifier pour qu'il me demande avant de sortir d'enregistrer ou annuler ???

Sub Auto_Open()
kh_wVisible True
End Sub

Sub Auto_Close()
kh_wVisible False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
End Sub


Sub kh_wVisible(ibol As Boolean)
Dim nBook As String
nBook = ThisWorkbook.Name
With Windows(nBook)
    If .Visible = Not ibol Then .Visible = ibol
End With
End Sub

 

[donadoni16]

donc ca va pas fonctionner pour moi parce que j'ai des fichiers ou j'ai d'autres codes sur thisworkbook et ajoutant celui ci ca bug

 

[job75]

Re,

j'ai d'autres codes sur thisworkbook et ajoutant celui ci ca bug

Vous ne savez pas vous y prendre, c'est tout.

On peut mettre tout ce qu'on veut dans les macros du ThisWorkbook, comme dans toute macro évènementielle.

Il suffit de mettre les tests idoines pour exécuter quand on veut des parties du code.

A+