从VB代码取消保护VBProject

Question

从VB代码取消保护VBProject

如何从vb宏取消保护我的VB项目？我找到了这段代码：

    Sub UnprotectVBProject(ByRef WB As Workbook, ByVal Password As String)
  Dim VBProj As Object
  Set VBProj = WB.VBProject
  Application.ScreenUpdating = False
  'Ne peut procéder si le projet est non-protégé.
  If VBProj.Protection <> 1 Then Exit Sub
  Set Application.VBE.ActiveVBProject = VBProj  'Utilisation de "SendKeys" Pour envoyer le mot de passe.

  SendKeys Password & "~"
  SendKeys "~"
  'MsgBox "Après Mot de passe"
  Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
  Application.Wait (Now + TimeValue("0:00:1"))End Sub

但是此解决方案不适用于Excel 2007.它在我的IDE中显示验证的窗口和打印密码。

然后，我的目标是取消保护我的VBproject而不显示此窗口。

谢谢你的帮助。