Discussion :

[Nikodemus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

bonjour, as-tu essayé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm2.Show

[Nikodemus]

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.

[EngueEngue]

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.

[PMO2017]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
Load UserForm2
End Sub

[Nikodemus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Load Userform2

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[PMO2017]

Toujours avec "à tout hasard" essayez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nikodemus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Unload UserForm2
'ou
Unload VBA.UserForms.Add("UserForm2")

Et avec le code suivant il m'affiche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Unload Me

Mais mon fichier plante toujours.

[PMO2017]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Nikodemus]

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.