11.08.2021, 09:50
Liebes Forum,
ich möchte gerne VBA Code in einer Passwort geschützten Exceldatei A im Modul1 ändern/austauschen realisiert über eine zweite Exceldatei B mit einem Macro.
Hintergrund: In der Firma wurden alle Rechner ausgetauscht mit 64-bit Office. Nun sind alle alten Exceldateien (Passwort geschützt mit "altem" Macro) nicht lauffähig (Kompatibilität Fehler im Modul1). (und nein IT stemmt sich dagegen 32bit- Office zu installieren global gibt es EIN Image für ALLE Rechner - Punkt!).
Was geändert werden muss, habe ich inzwischen im einem neuen VBA code realisiert und führe ich auch manuell durch. Manuell sind die Schritte:
1. Exceldatei A öffnen
2. Mit Alt +F11 den VBA Editor öffnen
3. Im Explorer Fenster Auf das "+" neben den Namen klicken
4. Es öffnet sich ein Fenster mit der Passwort abfrage
5. Passwort eingeben
6. Modul1 mit Code aus Exceldatei B ändern
7. Speichern
Das funktioniert auch prima. Nun soll das ganze per Macro umgesetzt werden. Im Internet bin ich auf die Funktion "SendKey" gestoßen. Ich scheitere aber an dem Schritt 3 (->Im Explorer Fenster Auf das "+" neben den Namen klicken). Wie kann ich das den realisieren? Mein Code
Dim CR_Name As String
Dim CR_Path As String
CR_Name = "DATEINAME.xls"
CR_Path = "C:\Test Ordner\"
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Workbooks.Open Filename:=CR_Path & CR_Name
Application.EnableEvents = True
SendKeys ("%{F11}"), True ' open Visual Basic Editor
SendKeys ("^r"), True ' change to Project-Explorer
????
SendKeys ("{ENTER}" & "PASSWORT" & "{ENTER}"), True
Oder gibt es eine andere Lösung wie man das Modul1 aus der Exceldatei A ansprechen/ändern/austauschen kann?
ich möchte gerne VBA Code in einer Passwort geschützten Exceldatei A im Modul1 ändern/austauschen realisiert über eine zweite Exceldatei B mit einem Macro.
Hintergrund: In der Firma wurden alle Rechner ausgetauscht mit 64-bit Office. Nun sind alle alten Exceldateien (Passwort geschützt mit "altem" Macro) nicht lauffähig (Kompatibilität Fehler im Modul1). (und nein IT stemmt sich dagegen 32bit- Office zu installieren global gibt es EIN Image für ALLE Rechner - Punkt!).
Was geändert werden muss, habe ich inzwischen im einem neuen VBA code realisiert und führe ich auch manuell durch. Manuell sind die Schritte:
1. Exceldatei A öffnen
2. Mit Alt +F11 den VBA Editor öffnen
3. Im Explorer Fenster Auf das "+" neben den Namen klicken
4. Es öffnet sich ein Fenster mit der Passwort abfrage
5. Passwort eingeben
6. Modul1 mit Code aus Exceldatei B ändern
7. Speichern
Das funktioniert auch prima. Nun soll das ganze per Macro umgesetzt werden. Im Internet bin ich auf die Funktion "SendKey" gestoßen. Ich scheitere aber an dem Schritt 3 (->Im Explorer Fenster Auf das "+" neben den Namen klicken). Wie kann ich das den realisieren? Mein Code
Dim CR_Name As String
Dim CR_Path As String
CR_Name = "DATEINAME.xls"
CR_Path = "C:\Test Ordner\"
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Workbooks.Open Filename:=CR_Path & CR_Name
Application.EnableEvents = True
SendKeys ("%{F11}"), True ' open Visual Basic Editor
SendKeys ("^r"), True ' change to Project-Explorer
????
SendKeys ("{ENTER}" & "PASSWORT" & "{ENTER}"), True
Oder gibt es eine andere Lösung wie man das Modul1 aus der Exceldatei A ansprechen/ändern/austauschen kann?
