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

 

[job75]

Re,

Vous pouvez seulement modifier le corps du message, vous êtes assez grand pour le faire.

A+

 

[donadoni16]

Ah oui oui je peux modifier le texte (lol),
Par contre je croyais qu'on pouvait modifier même le style pour qu'il soit comme celui qu'excel affiche normalement mais bon ce n'est pas grave

Je vous remercie encore une autre fois

Amicalement
Donadoni

 

[job75]

Bonjour donadoni16, le forum,

On peut faire les choses plus simplement en supprimant la macro Workbook_BeforeClose.

Avantage : c'est la boîte de dialogue native d'Excel qui apparaît à la fermeture.

Inconvénient : le visuel est moins bon quand on enregistre à la fermeture.

Fichier (2), à vous de voir si vous le préférez au fichier (1).

A+

 

[donadoni16]

Bonjour Job, le forum
merci beaucoup pour la modification, c'est exactement ce que je vous ai demandé hier, même si je ne sais pas qu'elle est la différence entre les deux fichiers mais bon

Amicalement
Donadoni

 

[donadoni16]

Bonsoir Job, Le forum
je reviens vers vous au sujet du code ci-dessous qui était l'objet de ma problématique
est ce qu'il y'a possibilité de le rectifier pour le mettre dans un Module standard et non pas dans thisworkbook ??

Cordialement

Option Explicit

Private Sub Workbook_Open()
Dim w As Window
For Each w In Me.Windows: w.Visible = True: Next 'il peut y avoir plusieurs fenêtres sur un même classeur
Me.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
If Me.Saved Then Exit Sub
Dim w As Window
Application.ScreenUpdating = False
For Each w In Me.Windows: w.Visible = False: Next
Application.EnableEvents = False
Me.Save
Application.EnableEvents = True
Workbook_Open 'lance cette macro
End Sub

 

[Chris401]

Bonsoir

Essaye

Sub Auto_Close()
kh_wVisible False
End Sub

 

[donadoni16]

Bonsoir Chris,
merci pour votre réponse,
après test, ca n'a pas fonctionné

 

[Chris401]

Ben moi j'ai bien le message

 

[donadoni16]

re,
la modification que vous m'avez donnée je la copie au début ou au centre du code ??
parce que na pas fonctionné pour moi

 

[Chris401]

Re

Il remplace l'autre Sub Auto_Close()

Par contre, je rencontre un problème. Ce fichier, enregistré sur le bureau, fonctionne parfaitement (ouverture et fermeture)
Le même fichier, enregistré sous "Mes documents", ne lance plus le message à l'ouverture.

Je n'y comprends rien ...

 

[donadoni16]

re,
ca marche toujours pas chez moi

 

[job75]

Bonjour donadoni16, le fil,

La Workbook_Open peut être remplacée par une macro Auto_ Open (ôter l'espace) dans un module standard.

Mais sauf de rares exceptions, plus personne n'utilise cette macro, elle est obsolète depuis longtemps.

On ne peut pas faire la même chose avec la Workbook_BeforeSave.

A+

 

[job75]

Re,

Fichier (2 bis) avec la macro Auto_ Open, mais c'est sans aucun intérêt.

A+

 

[donadoni16]

Bonjour Job, le forum
merci pour votre réponse mais ce que je voulais vous demander est ce que c'est possible de copier tout le code qu'on avait sur thisworkbook et le transférer dans un module Standard

Cordialement
Donadoni

 

[job75]

Bonjour donadoni16,

C'est pourtant clair :

On ne peut pas faire la même chose avec la Workbook_BeforeSave.

A+