Probleme pour deverouiller le code VBE OleExcel

Suite a un poste de Sunchaser demandant comment deverouiller un code VBE pour effectuer des modifications et reverouiller le code VBE (en connaissant le mot de passe bien sur), j'ai trouve un exemple que j'essaie de traduire en OleExcel et la j'ai un probleme le code appel une boite de dialogue pour entrer le mot de passe et une fonction passe le mot de passe et valide, deja je ne suis pas sur que j'appel la boite de dialogue mais de plus la fonction qui doit passer le mot de passe ecrit jusque dans le code BCB si quelqu'un a une idee.
Je joind le code VBE

Citation:

---

Sub TestUnprotect()
UnprotectVBProject Workbooks("Proteger_deproteger.xls"), "motdepasse"
End Sub

Sub UnprotectVBProject(WB As Workbook, ByVal Password As String)
Dim vbProj As Object
Set vbProj = WB.VBProject
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

---

et ce que j'ai commence a coder

Code:

---

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

Variant vbProj, ID, recursive;   vbProj = vXLWorkbook.OlePropertyGet("VBProject");   if (vbProj.OlePropertyGet("Protection") != 1) { ShowMessage("erreur"); // a traiter plus tard Then Exit Sub } // on ouvre la boite de dialogue password vMSExcel.OlePropertyGet("VBE").OlePropertyGet("ActiveVBProject") = vbProj; // on ecrit le password et on valide vMSExcel.OleFunction("SendKeys", "jp", & "~~"); // la ligne suivant provoque une erreur //vMSExcel.OlePropertyGet("VBE").OlePropertyGet("CommandBars", 1).OleProcedure("FindControl", (ID = 2578, recursive = True)).OleProcedure("ID", 2578);//.OlePropertyGet("recursive", True).OleFunction("Execute");

---

Salut,

Un truc qui me fait marrer, je me suis retrouvé avec le même type de code que toi (après avoir regardé le code en VBA que tu as donné dans le forum approprié) et un problème dans la même 'région' :mouarf:
Juste une (ou deux) petites intérrogation ...
Ne devrais t on pas utiliser qqchose comme OlePropertySet(...) pour désigner le ""ActiveVBProject" ?
(Je n'ai pas réussi a trouver la bonne syntaxe encore dans ce cas)
Quand je lance :

Code:

---

1 2	vMSExcel.OleFunction("SendKeys","mauxdepasse", & "~~");

---

je me retrouve avec le mot de passe écris dans une cellule dans la première page ouverte du fichier excel en cours de traitement... :?

@ + ;)

Pour le cas qui t'interresse dans l'immediat, je mettrais le code VBE dans un fichier TXT, je l'importerais et j'executerais le code VBE en VisualBasic, la je suis sur qu'il fonctionne, et cela te permettrais de travailler tes fichiers le temps que l'on trouve comment faire fonctionner ce satane code.

Je viens de faire un essai en ouvrant un deuxieme classeur et la je n'ecrit plus le mot de passe dans une feuille Excel ou dans mon code BCB mais ca ne deverrouille toujours pas.
J'ai traduit Application par vMSExcel mais je ne suis pas sur que ce soit bon.
OlePropertySet c'est pour ecrire il y a aussi OleFunction ou OleProcedure
Quand a la fonction SendKeys elle ecrit dans la fenetre active.

Sunchaser connais tu un moyen d'afficher la variable "vbProj" dans un TLabel pour voir ce que l'on a selectionne a la limite on valide peut etre n'importe quoi.

Je n'ai toujours pas reussi a trouver la solution je cherche a afficher les valeurs en Variant dans TLabel afin de savoir les valeurs des Variants aux endroits ou je suis passe pour certains Variants pas de probleme pour d'autres j'ai un message d'erreur.
Affichages d'un Variant ne provoquand pas d'erreur.

Code:

---

1 2 3 4 5 6 7 8

Variant vFileName; vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Classeur1.xls";   Label1->Caption = AnsiString(vFileName); ShowMessage(AnsiString(vFileName)); Label2->Caption = WideString(vFileName); Label3->Caption = String(vFileName);

---

Affichage provoquand une erreur.

Code:

---

1 2 3

vbProj = vXLWorkbook.OlePropertyGet("VBProject"); ShowMessage(AnsiString(vbProj));

---

Je joind le message d'erreur.
J'aimerais savoir la valeur renvoyee par vbProj c'est peut etre la source du probleme

Je n'ai toujours pas trouve la solution mais je pense avoir progresse il me reste une erreur sur FindControl "membre introuvable", je n'ecrit plus dans la feuille ni dans mon code avec la fonction SendKeys.

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

Variant vMSExcel, vXLWorkbooks, vXLWorkbook; Variant vFileName, vNotUsed; Variant vbProj, ID, recursive, WB; vNotUsed = Unassigned;   vMSExcel = Variant::CreateObject("Excel.Application"); vMSExcel.OlePropertySet("Visible", true);   vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Classeur1.xls";   vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks"); vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed, vNotUsed, vNotUsed);   vXLWorkbook = vMSExcel.OlePropertyGet("Workbooks", "Classeur1.xls");   vbProj = vXLWorkbook.OlePropertyGet("VBProject");   if (vbProj.OlePropertyGet("Protection") != 1) { ShowMessage("erreur"); // Then Exit Sub }   vMSExcel.OlePropertyGet("Application").OlePropertyGet("VBE").OlePropertyGet("ActiveVBProject") = vbProj;   vMSExcel.OleProcedure("SendKeys", "jp", & "~~");   vMSExcel.OlePropertyGet("VBE").OlePropertyGet("CommandBars", 1).OlePropertyGet("FindControl", ID = 2578, recursive = true).OleFunction("Execute"); }

---

J'ai toujours un probleme avec FindControl qui renvoie "membre introuvable", je n'arrive pas trouver comment l'ecrire.
Voila la ligne en VBE

Citation:

---

Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute

---

Voici ce que j'ai essaye

Code:

---

1 2 3 4 5 6

vMSExcel.OlePropertyGet("VBE").OlePropertyGet("CommandBars", 1).OlePropertyGet("FindControl", "2578", true).OleFunction("Execute"); ou vMSExcel.OlePropertyGet("VBE").OlePropertyGet("CommandBars", 1).OlePropertyGet("FindControl", ID = 2578, recursive = true).OleFunction("Execute"); ou vMSExcel.OlePropertyGet("VBE").OlePropertyGet("CommandBars", 1).OlePropertyGet("FindControl", "ID = 2578", "recursive = true").OleFunction("Execute");

---

si quelqu'un a une idee?