从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而不显示此窗口。谢谢你的帮助。