VBA Passwort per VBA festlegen

[heli]

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

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

[mumpel]

Hallo!

Der Code ist sicher für Office 2002-2003 geschrieben. Funktioniert in neueren Versionen (Office 2010-2016) so nicht mehr. Es ändern sich immer wieder mal die Tastenkombinationen. Aber auch sonst ist SendKeys keine gut Wahl.

Gruß, René

[snb]

Obwohl 'schützen' in Excel ziemlich sinnlos ist, warum nicht im Design Mode ?