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

 

[vgendron]

Hello
peut etre en modifiant juste cette ligne?
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
en
ThisWorkbook.Close CBool(ThisWorkbook.Saved)

 

[donadoni16]

re vgendron,
je viens de tester, ca marche pas

 

[donadoni16]

Je crois que ca na pas de solution ??

 

[vgendron]

Regarde par ici..
https://support.microsoft.com/fr-fr/kb/129153

en général, les gens demandent de ne PAS avoir le message.
suffit pour toi de mettre du True à la place de False avec DisplayAlerts

 

[chris]

Bonjour

Le souci c'est que du code s'exécute entre l'ouverture et la fermeture ce qui est considéré comme un changement par Excel
Si tu autorises le choix, une erreur de choix peut faire perdre des modifs

Remplacer

ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)

par

ThisWorkbook.Close

 

[donadoni16]

Merci beaucoup chris, ca fonctionné
j'espère ne vais pas perdre des modifications avec ce changement de code et en cliquant sur enregistrer après l'affichage du message ??

 

[chris]

Re

Non il n'y a pas de raison c'est la choix inverse qui pourrait être gênant si on se trompe.

 

[donadoni16]

d'accord,
merci beaucoup pour la rectification

Cordialement
Donadoni

 

[donadoni16]

Bonjour Chris, le forum
je reviens vers vous pour une petite remarque que j'ai constaté dernièrement
avec le changement que vous m'avez fourni sur l'enregistrement maintenant meme si j'enregistre mes données avant de sortir le message s'affiche en quittant alors qu'il faut pas

avez vous une autre proposition ??

Cordialement
Donadoni

 

[chris]

Bonjour
Il y a peut-être des cellules de type date ou heures qui se recalculent : si tu désactives le code et que tu enregistres puis ferme, tu as sans doute le même message...

 

[donadoni16]

Bonsoir Chris,
merci d'avoir répondu si vite,
j'ai désactivé le code sur 6 fichiers puis j'enregistre et je ferme rien ne se passe et une fois je réactive le code, j'enregistre et je ferme et le message réapparaît à nouveau. c'est désespérant

 

[chris]

Bonjour

Les procédures auto_open et auto_close sont obsolètes et remplacées par Workbook_Open() et Workbook_BeforeClose
Peut-être le problème vient-il de là...

 

[donadoni16]

Bonjour chris,
Donc ce n'est pas possible de résoudre ce problème??

 

[chris]

Re

As-tu essayé de placer ton code dans une procédure Workbook_BeforeClose ?

On n'a pas ton classeur donc on ne peut tester d'où vient ton problème... on ne peut que supposere et donner des pistes : à toi de les explorer.