Снять защиту с VBProject с кода VB
Как я могу снять защиту моего проекта 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. Он отображает аутентификациюS окно и распечатать пароль в моей IDE.
Затем моя цель - снять защиту с моего VBproject без отображения этого окна.
Спасибо за любую помощь.