Bonsoir le forum,

Voici mon problème, je manipule avec perl des fichiers Excel dont le code source, le classeur et les feuillets sont protégés. Avec perl, j'arrive à déverrouiller le classeur et les feuillets, mais pas le code source. J'utilise Win32::OLE.
J'ai donc besoin de déverrouiller le code pour faire mes manipulations. Je connais le mot de passe et j'ai trouvé ce bout de code en VBA:

Sub UnprotectVBProject(WkBk As Workbook, ByVal Pwd As String)
Dim vbProj As Object
Set vbProj = WkBk.VBProject
If vbProj.Protection <> 1 Then Exit Sub ' already unprotected
Set Application.VBE.ActiveVBProject = vbProj
SendKeys Pwd & "~~"
Application.VBE.CommandBars(1).FindControl(ID:=2578,
recursive:=True).Execute
End Sub

Le problème est que je n'arrive pas à traduire cela en perl. Si quelqu'un pouvait m'aider ce serait vraiment génial, je suis un peu en galere là.

Merci beaucoup de votre aide,

Cordialement.