ich schreibe gerade an einem Makro in einer Excel-Datei A mit dem ich Module und Formulare aus einer Excel-Datei B exportieren lasse. Im Anschluss importiere ich diese in eine Excel-Datei C.
Das funktioniert auch soweit hervorragend, solange die Module in Datei B nicht mit einem Passwort geschützt sind. Hierzu habe ich schon verschiedenste Beiträge gefunden und wahrscheinlich kann man es mit der Sendkeys Anweisung irgendwie hinbekommen. Meine Versuche sind bisher allerdings gescheitert.
Probiert habe ich es bisher mit:
wbQuelle.Activate
SendKeys "%{F11}%xi{TAB 9}" & "test" & "{tab}{enter 2}%q"
Hat nur funktioniert wenn ich es in Datei B angelegt habe und anstelle "wbQuelle" "ThisWorkbook" schreibe. Schreibe ich die Zeilen in Datei A wo Datei B als Workbook "wbQuelle" angelegt ist, gehts nicht.
Im Forum habe ich weiterhin noch das gefunden:
Sub VBA_unlocking()
SendKeys ("%{f11}")
SendKeys ("%xi")
SendKeys ("test") 'VBA Kennwort
SendKeys ("{Enter}")
SendKeys ("{Enter}")
End Sub
Wollte leider auch nicht klappen.
Kennt eventuell einer einen Weg zur Lösung des Problems?
Liebe Grüße