Passwort des VBA-Projektes festlegen

13.06.2002


Der direkte Zugriff auf die Eigenschaften eines VBA-Projketes
ist in diesem Fall leider nicht möglich.
Hier ist der Sendkeys-Befehl sehr hilfreich.
Alle nötigen Shortcuts werden ausgeführt und
das Passwort 'test' vergeben: 
Sub ProjektPasswort()
    Passwort = "test"
    Application.VBE.MainWindow.Visible = True
    SendKeys ("%x")
    SendKeys ("s")
    SendKeys ("^{PGDN}")
    SendKeys ("%a")
    SendKeys ("k")
    SendKeys ("+{end}")
    SendKeys (Passwort)
    SendKeys ("{Tab}")
    SendKeys (Passwort)
    SendKeys ("{Enter}")
End Sub