ich möchte in meiner Mappe ein Passwortschutz (Projekt für die Anzeige sperren) per VBA setzen und wieder aufheben. Habe im Net folgendes zusammengetragen (Autor Nepumuk):
Private Sub setzen() 'VBA-Kennwort setzen
SendKeys "%{F11}%xi{TAB 9}{RIGHT}{tab}a{tab}" & "Dein Kennwort" & _
"{TAB}" & "Dein Kennwort" & "{tab}{enter}%q"
End Sub
Private Sub aufheben() 'VBA-Kennwort aufheben
SendKeys "%{F11}%xi{TAB 9}" & "Dein Kennwort" & "{tab}{enter 2}%q"
End Sub
Wenn ich diese Codes nun in ein Modul in der selben Mappe kopiere, und aus einem anderen Code heraus mit Application.Run "setzen" bzw. Application.Run "aufheben" aufrufe, tut sich garnichts.
Was mache ich falsch?
Danke für eure Antworten!
Gruß Henner