Makro mit Makro ändern (mit VBAProject Kennwort)
04.05.2015 14:05:19
andy
ich möchte gerne per VBA in mehreren hundert, mit VBAProject Kennwort geschützten, Dateien einen VBA Code ändern. Soweit sogut.
Leider funktioniert die Aufhebung des VBAProject Kennwort-Schutzes nur als eigenständiges Makro, welches "von Hand" gestartet werden muß
siehe hier:
Sub VBA_SchutzAufheben()
'Dieses Makro funktioniert nicht mit anderen VBA Befehlen
'und muss daher immer explizit ausgeführt werden.
SendKeys ("%{f11}")
SendKeys "^r{Tab 7}" '^r entspricht "STRG"+ "r"
'Tab7 = 7xTabulator um auf das zu ändernde Project
'zu gelangen
SendKeys ("{Enter}")
SendKeys ("VBAKW") 'VBA Kennwort
SendKeys ("{Enter}")
SendKeys "^~%{F11}", True 'zurück zur Excel-Oberfläche
End Sub
Hat jmd. eine Idee, mit welchem Befehl man den VBAProject Schutz noch aufheben kann? Und diesen Befehl ggf. in ein bestehendes Makro einbinden kann?
Danke für Eure Antworten!
Gruß andy