21.11.2015, 23:16
Hallo liebes Forum !
Ich habe diesen Code hier gefunden, aber er funktioniert bei mir nicht. Was mache ich falsch ?
Vielen Dank für Eure Hilfe.
Liebe Grüße aus Innsbruck
Helmut
Ich habe diesen Code hier gefunden, aber er funktioniert bei mir nicht. Was mache ich falsch ?
Vielen Dank für Eure Hilfe.
Liebe Grüße aus Innsbruck
Helmut
Code:
'VBA-Projekt-Kennwort per VBA setzen
Sub VBA_Passwort_festlegen()
Dim Passwort As String
Passwort = "hpa"
Application.VBE.MainWindow.Visible = True
SendKeys ("%x") 'Menü EXTRAS
SendKeys ("s") 'VBA-Projekt EIGENSCHAFTEN
SendKeys ("^{PGDN}") 'Register SCHUTZ
SendKeys ("%a") '"Projekt für Anzeige sperren"
SendKeys ("k") 'ins Feld "KENNWORT" springen
SendKeys (Passwort) 'KENNWORT eingeben
SendKeys ("{Tab}") 'in "Kennwort wiederholen" springen
SendKeys (Passwort) 'Kennworteingabe bestätigen/wiederholen
SendKeys ("{Enter}") 'Eingabe abschließen
End Sub