Accès au projet VBA

Bonjour à tous,
Je possède un fichier avec plusieurs Userform. Lors de l'ouverture du fichier, je lance le code suivant sur Workbook.Open :

Code:

---

ThisWorkbook.VBProject.VBComponents("UserForm2").Activate

---

Sans ce petit bout de code mon fichier plante lors de l'ouverture du UserForm (ne me demandez pas pourquoi ça fait plus d'un an que je cherche ...).
Depuis j'ai rajouté du code et j'ai mis en place un mot de passe sur le projet VBA.

Problème : Avec le mot de passe, ce bout de code refuse de se lancer ... Il marque :

Citation:

---

Erreur d'exécution '50289':
Impossible d'effectuer cette opération tant que le projet est protégé.

---

J'ai testé le code de Frédéric SIGONNEAU pour retiré le mot de passe du projet. Cela fonctionne sauf en le réactivant, car le code reste visible pour l'utilisateur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

Sub UnprotectVBProject(WB As Workbook, ByVal Password As String)   Dim vbProj As Object Set vbProj = WB.VBProject Password = "mdp"   If vbProj.Protection <> 1 Then Exit Sub   Set Application.VBE.ActiveVBProject = vbProj   SendKeys Password & "~~" Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute   End Sub   Sub ProtectVBProject(WB As Workbook, ByVal Password As String)   Dim vbProj As Object Set vbProj = WB.VBProject Password = "mdp"   If vbProj.Protection = 1 Then Exit Sub   Set Application.VBE.ActiveVBProject = vbProj   SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & Password & "{TAB}" & _ Password & "~"   Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute WB.Save   End Sub   Sub Protect() ProtectVBProject ThisWorkbook, "VBAProject" DoEvents End Sub   Sub Unprotect() UnprotectVBProject ThisWorkbook, "VBAProject" DoEvents End Sub

---

Ce que je souhaiterais faire c'est désactiver le mot de passe, lancer mon code et réactiver le mot de passe sans qu'après l'utilisateur n'est accès au projet VBA.

Des idées ? Merci par avance.

bonjour, as-tu essayé:

Code:

---

UserForm2.Show

---

Oui cela viens après dans mon code et le formulaire se lance bien si le bout de code ci-dessus est exécuter.
Sinon mon formulaire monte sans qu'aucune textbox ne soit renseigné et affiche qu'Excel à rencontré un problème et dois fermer blablabla voulez vous récupérez les données et ainsi de suite.

Petit up.
Comment protéger le code contre la lecture en cours d'exécution (faisable grâce au code ci-dessus) tout en l’empêchant d'être lu directement.
Sinon la croix est cochée, et le mot de passe est enregistré (jusque là ce que je souhaitais).
Je ne veux simplement pas que le code puisse être lu ou modifié en cours.

Bonjour,

Un mot de passe n'arrêtera jamais quelqu'un qui veut vraiment lire le code.

Il suffit de passer en bruit de force pour déprotéger ton code.

Bonjour,

Citation:

---

Nikodemus Je possède un fichier avec plusieurs Userform. Lors de l'ouverture du fichier, je lance le code suivant sur Workbook.Open :
ThisWorkbook.VBProject.VBComponents("UserForm2").Activate

---

A tout hasard, essayez

Code:

---

1 2 3

Private Sub Workbook_Open() Load UserForm2 End Sub

---

Les utilisateurs ne s'y connaissent pas assez pour allez volontairement cracker le mot de passe du projet, mais si le code reste à dispo j'en connais certains qui en profiteraient.

Concernant le

Code:

---

Load Userform2

---

malheureusement ça ne suffit pas. Je dois apparemment obligatoirement lancer :

Code:

---

ThisWorkbook.VBProject.VBComponents("UserForm2").Activate

---

En gros avec mon projet actuel, sans protection ça fonctionne, et avec protection ça ne marche plus car la ligne si dessus doit s'exécuter sans protection.

Toujours avec "à tout hasard" essayez

Code:

---

1 2 3

Private Sub Workbook_Open() VBA.UserForms.Add("UserForm2").Show End Sub

---

Merci PMO2017,
Je n'ai pas pu tester entièrement car après ton code, je n'arrive plus à décharger le formulaire avec :

Code:

---

1 2 3

Unload UserForm2 'ou Unload VBA.UserForms.Add("UserForm2")

---

Et avec le code suivant il m'affiche :

Code:

---

VBA.UserForms.Add("UserForm2").Hide

---

Citation:

---

Erreur d'exécution '402':
Vous devez d'abord fermer ou masquer la feuille modale de premier plan.

---

Une idée ?

Edit:
J'ai réussi avec :

Code:

---

Unload Me

---

Mais mon fichier plante toujours.

C'est bizarre ce qui vous arrive.
Je n'ai pas vraiment d'idée de diagnostic et j'y vais au pifomètre.
En plein brouillard, essayez

Code:

---

1 2 3 4

Private Sub Workbook_Open() VBA.UserForms.Add("UserForm2").Show vbModeless Unload VBA.UserForms(0) End Sub

---

Si cela solutionne votre problème, j'en serais le premier surpris.
Je ne vois pas du tout la raison de faire

Citation:

---

Je possède un fichier avec plusieurs Userform. Lors de l'ouverture du fichier, je lance le code suivant sur Workbook.Open :

ThisWorkbook.VBProject.VBComponents("UserForm2").Activate

---

Tout d'abord merci de prendre du temps afin de m'aider.
Malheureusement ton code ne marche pas non plus.

J'avais trouver cette ligne ici :
http://www.developpez.net/forums/d10...oire-utilisee/.
J'avais un soucis similaire qui à été corrigé grâce à ce code même si je ne comprend pas trop pourquoi.