Message d'alerte Résolu/Fermé

Question

Bonjour, 

Serait-il possible de créer un message d'alerte à l'ouverture d'un fichier Excel sans passer par la vba.
Je m'explique, sur office Excel 2007 ou 2010 le message Avertissement de sécurité "les macros ont été désactivées" n'est pas toujours visible aux yeux, au premier regard des personnes n'ayant pas l'habitude de travailler sur ce logiciel, ce qui crée souvent des problèmes quand des macros sont présentent, mais pas activé. donc je souhaiterais mettre un message d'alerte bien visible sur l'écran qu'il faut activer les macros pour que le fichier fonctionne correctement es-ce possible?

Merci de votre réponse 

Slts

Configuration: Windows XP / Chrome 48.0.2564.97

f894009 · Answer

Bonjour,

Et le message fait avec du code qui ne pourra pas s'executer car macros desactivees!!!!! Est-ce bien reflechi ?

cs_Le Pivert · Answer

Bonjour,

Pourquoi ne pas mettre sur la feuille d'ouverture ce lien?

https://support.microsoft.com/en-us/office/enable-or-disable-macros-in-office-files-12b036fd-d140-4e74-b45e-16fed1a7e5c6?redirectsourcepath=%252ffr-fr%252farticle%252factiver-ou-d%2525c3%2525a9sactiver-les-macros-dans-les-documents-office-7b4fdd2e-174f-47e2-9611-9efe4f860b12&ui=en-us&rs=en-us&ad=us

The_boss_68 · Answer

Bonsoir Le Pivert

Merci pour ta proposition, mais je ne pense pas la mettre en oeuvre, puisque personne ne prendra le l’initiative de cliquer sur ce lien, alors du coup je laisserais comme c'est actuellement, et tant pis pour les ceux qui n'aurons pas activé les macros ou alors je vais bucher pour trouver une autre parade.

Merci 

Bonne soirée

Henri

Raymond PENTIER · Answer

Salut, The_Boss_68.

Ma philosophie personnelle est d'aller toujours au plus simple.
De plus, pour ne pas répondre à côté, j'aime bien faire préciser le problème, et si possible son contexte.

"pas toujours visible aux yeux, au premier regard des personnes n'ayant pas l'habitude de travailler sur ce logiciel" sous-entend que tu travailles avec des personnes âgées ? des mal-voyants ? des gens distraits ou pressés ?
D'autre part les fichiers Excel en question ne sont pas de ta fabrication ? 
Tu ne peux pas les modifier ?

Parce que les parades sont multiples, suivant ton organisation : 
- Travailler avec un zoom/écran >100%
- Placer une feuille d'accueil dans chaque fichier avec la mention "Activer la macro"
- Prévoir une affichette pour chaque accès à l'ordinateur ou chaque remise de clé USB, rappelant la nécessité d'activer les macros
- Au début de la session, rappeler verbalement les consignes 
- ...

The_boss_68 · Answer

Bonsoir Raymond PENTIER

Sympa ta philosophie, du coup je vais aller au plus simple et apposer tout simplement une affichette rappelant la nécessité d'activer les macros à l'ouverture du fichier.

Merci

Bonne soirée 

Slts

The_boss_68 · Answer

Bonjour Le Pivert

Tout à fait d'accord avec toi, je ne veux pas réinventer la roue, mais tout simplement sur Excel 2003 le message d'alerte security warning activer les macros flash au yeux au lancement du fichier et le fichier lui-même ne sera pas ouvert sans avoir précédemment appuyé sur activer ou déactiver les macros, tandis que sur office 2010 le fichier s'ouvre directement et le message d'alerte Avertissement sécurité est fondu dans le ruban d'office donc plus difficile à l'apercevoir.

Cordialement 

Henri

cs_Le Pivert · Answer

Je comprends ton problème, voici donc un code a mettre dans ThisWorkbook. Il affichera la feuille où se trouve le message d'activer les macros si les macros sont déactivées. Sinon il affiche les autres feuilles Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Sheets("Feuil1").Visible = xlSheetVisible 'adapter le nom de la feuille qui contient le message Dim curSheet As Worksheet For Each curSheet In ThisWorkbook.Sheets If curSheet.Name <> "Feuil1" Then curSheet.Visible = xlSheetVeryHidden Next curSheet ThisWorkbook.Save End Sub Private Sub Workbook_Open() Dim curSheet As Worksheet For Each curSheet In ThisWorkbook.Sheets If curSheet.Name <> "Feuil1" Then curSheet.Visible = xlSheetVisible Next curSheet ThisWorkbook.Sheets("Feuil1").Visible = xlSheetVeryHidden End Sub

Message d'alerte

7 réponses

Discussions similaires