Macros désactivées à chaque ré-ouverture du fichier Excel
Bonjour, voici ma problématique :
J'ai un fichier Excel qui ouvre directement un UserForm dans le Workbook_Open(). Puis au retour de ce UserForm, Excel se ferme automatiquement. Rien de particulier jusqu'ici.
Le problème est qu'à chaque lancement du fichier Excel, j'ai le message qui me dit que les macros sont désactivées, et j'ai beau "Activer le contenu", mon UserForm s'affiche bien... puis au prochain lancement le message est de nouveau là.
Mon centre de gestion de la confidentialité est bien paramétré sur "désactiver les macros AVEC notification", je sais bien comment cela fonctionne.
D'ailleurs, si j'ouvre un autre fichier Excel, avec macros, mais qui lui ne se ferme pas automatiquement, càd que c'est l'utilisateur qui ferme manuellement Excel (je pense que c'est ici que tout se joue), le message ne réapparaît pas...
Voici mon code :
Private Sub Workbook_Open()
' j'affiche ma fenêtre en modal
myUserForm.Show vbModal
' au retour de ma fenêtre, je ferme ce classeur en sauvegardant
Me.Close savechanges:=True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' je ferme Excel si aucun autre classeur n'est ouvert
If Application.Workbooks.Count = 1 Then Application.Quit
End SubSi vous avez la solution à cette problématique (à part activer toutes les macros, ou gérer une Trust location), je suis preneur.
Merci de votre aide, et bravo pour ce forum qui semble être une petite mine d'informations !
Bonjour Rodymary,
Si
Mon centre de gestion de la confidentialité est bien paramétré sur "désactiver les macros AVEC notification", je sais bien comment cela fonctionne.
Alors faites nous des Screenshot pour que l'on comprenne
Parce que pour moi c'est normal, mais à priori, pas pour vous !?
A+
Bonjour Bruno
Mon paramétrage est standard, le voici :
Mais le problème ne vient pas de la.
Si par exemple je réduit le code à sa plus simple expression, comme ceci :
Private Sub Workbook_Open()
myUserForm.Show vbModal ' affichage de ma fenêtre en modal
End Subau retour de mon UserForm je reviens donc naturellement sur ma feuille principale, puis je ferme manuellement mon fichier Excel.
Dans ce cas, c'est bon, le warning n'apparaîtra plus jamais
Mystérieux, non ?