ich habe im Archiv einen Code gefunden, mit dem ein VBA-Projekt entsperrt werden kann. Wenn ich ihn aufrufe erscheint allerdings nur das Fenster "Seite einrichten" mit einer Textbox "Verweis ungültig". Auch das Ändern der SendKeys Anweisungen entsprechend der manuellen Vorgehensweise um ein Projekt zu entsperren brachte nichts. Wißt ihr da weiter?
Hier der Code aus dem Archiv:
Sub ToggleVBA1()
Const C_PASSWORT As String = "passwort"
Application.VBE.MainWindow.Visible = True
' Hinweise für die Keys
' % = Alt
' ^ = Strg
' + = Shift
SendKeys ("%x")
' Short-Cut für Eigenschaften von VBA-Project
' differiert in den Excel-Versionen
If (Val(Application.Version) = 8) Then ' Office 97
SendKeys ("s")
Else ' ab Office 2000
SendKeys ("k")
End If
SendKeys ("^{PGDN}")
SendKeys ("%a")
SendKeys ("k")
SendKeys ("+{end}")
SendKeys (C_PASSWORT)
SendKeys ("{Tab}")
SendKeys (C_PASSWORT)
SendKeys ("{Enter}")
End Sub
Gruß
Matthias