Approuver Accès au projet VBA dans auto_open

J'ai lu cette discussion.

Citation:

---

Envoyé par jojo86

Pour contourner ce problème, je detecte l'erreur si cette case n'est pas cochée, et j'affiche un UserForm avec une belle mise en page en expliquant à l'utilisateur la marche à suivre pour aller cocher cette case, et pour faciliter le travail à l'utilisateur, j'execute ce USF en Showmodal = False, comme ça il peut faire la manipulation en lisant le message.

---

Ceci à l'air super. Est-ce possible d'avoir plus de pécisions sur la méthode pour détecter l'erreur ? En fait, est-ce que tu peux m'envoyer ton programme, j'apprécierais beaucoup. Je veux l'utiliser pour un programme qui doit vérifier et ajouter des références automatiquement.
Merci

Bonjour,

J'utilise ce code pour vérifier que la case "Faire confiace au projet Visual basic" est cochée (Excel 2003)

La feuille Docprojet contient une documentation et est caché en VeryHidden si pas de problème

Code a mettre dans Workbook_Open

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim vbpName As String   On Error Resume Next vbpName = ThisWorkbook.VBProject.Name   If vbpName = vbNullString Then Sheets("docprojet").Visible = 1 Sheets("docprojet").Select MsgBox "Excel n'est pas configuré pour l'utilisation de ce fichier." & vbCrLf & _ "Veuillez suivre la documentation de l'onglet DocProjet" End If

---