Supportnet / Forum / Tabellenkalkulation
Dateien bei passwortgeschützeten Arbeitsmappen mit einen Makro übertragen
Frage
Hallo, wenn man drei Arbeitsmappen hat mit jeweils einer Exceltabelle in den Arbeismappen und alle Arbeitsmappen sind mit verschiedenen Passwörtern geschützt. Nun soll mit einen Makro das in Arbeitsmappe 3 mit einer Tastenkombienation gestartet wird, bestimmte Daten nach Arbeitsmappe 1 und 2 übertragen werden. Ohne Passwörter ist das Kei Problem, aber mit ???
Antwort 1 von piano
Hallo
Wenn Workbook oder Worksheet mit Passwort gesichert ist, kannst du mit
die Sperre aufheben und analog mit
Ist es ein Lese/Schreibschutz auf Windows-Ebene, dann geht das so:
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -
Wenn Workbook oder Worksheet mit Passwort gesichert ist, kannst du mit
ActiveWorkbook.Unprotect ("Passwort")Sheets(...).Unprotect ("Passwort")die Sperre aufheben und analog mit
ProtectIst es ein Lese/Schreibschutz auf Windows-Ebene, dann geht das so:
Application.Workbooks.Open "C:\Test.xls", , , , "Passwort"
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -
Antwort 2 von Fiab
Hallo
bekomme es leider nicht hin, kann einer HELFEN.
Hier ein Beispiel über den Istzustand .
Wie gesagt ohne Passwort kei Problem,aber mit???
Sub Makro1()
´
´ Makro1 Makro
´ Makro am 15.04.2006 von xxx aufgezeichnet
´
´ Tastenkombination: Strg+y
´
ChDir "C:\Dokumente und Einstellungen\xxx\Desktop\Test"
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\xxx\Desktop\Test\aa.xls"
Range("A1").Select
Selection.Copy
Windows("Mappe1.xls").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub
bekomme es leider nicht hin, kann einer HELFEN.
Hier ein Beispiel über den Istzustand .
Wie gesagt ohne Passwort kei Problem,aber mit???
Sub Makro1()
´
´ Makro1 Makro
´ Makro am 15.04.2006 von xxx aufgezeichnet
´
´ Tastenkombination: Strg+y
´
ChDir "C:\Dokumente und Einstellungen\xxx\Desktop\Test"
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\xxx\Desktop\Test\aa.xls"
Range("A1").Select
Selection.Copy
Windows("Mappe1.xls").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub
Antwort 3 von piano
Hallo
Du mußt dich an die in AW 1 angebotenen Statements halten! Was ist denn eigentlichg geschützt ?
Gruß piano
Du mußt dich an die in AW 1 angebotenen Statements halten! Was ist denn eigentlichg geschützt ?
Gruß piano
Antwort 4 von Fixab
Hallo
hat funktioniert, siehe unten.
Ginge das auch wenn der Benutzer von Mappe1 sein Passwort wechselt, also das Mappe1 quasie mit einem Masterpasswort über ein Macro in Mappe2 geöffnet wird?
Sub Gescüzte_Daten_übernehmen()
´
´ Gescüzte_Daten_übernehmen Makro
´ Makro am 18.04.2006 von xxx aufgezeichnet
´
´ Tastenkombination: Strg+y
´
Workbooks.Open "C:\Dokumente und Einstellungen\xxx\Desktop\Macros\Arbeitsmappen u. Blatt geschüzt\Mappe1.xls", , , , "wert"
Range("A1:C1").Select
Selection.Copy
Windows("Mappe2.xls").Activate
Range("A1:C1").Select
ActiveSheet.Paste
Windows("Mappe1.xls").Activate
ActiveWorkbook.Close
End Sub
hat funktioniert, siehe unten.
Ginge das auch wenn der Benutzer von Mappe1 sein Passwort wechselt, also das Mappe1 quasie mit einem Masterpasswort über ein Macro in Mappe2 geöffnet wird?
Sub Gescüzte_Daten_übernehmen()
´
´ Gescüzte_Daten_übernehmen Makro
´ Makro am 18.04.2006 von xxx aufgezeichnet
´
´ Tastenkombination: Strg+y
´
Workbooks.Open "C:\Dokumente und Einstellungen\xxx\Desktop\Macros\Arbeitsmappen u. Blatt geschüzt\Mappe1.xls", , , , "wert"
Range("A1:C1").Select
Selection.Copy
Windows("Mappe2.xls").Activate
Range("A1:C1").Select
ActiveSheet.Paste
Windows("Mappe1.xls").Activate
ActiveWorkbook.Close
End Sub