Excel avec code source protégé

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.