Lese-Kennwort nicht eingeben müssen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Matthias,
ich sehe, dass ich noch viel dazulernen muss!
Die Listboxen sehe ich. Es sind zwei. Ich werde mich etwas daran versuchen.
Ist es zu bewerkstelligen, dass die Datei "Quelle" ohne geöffnet zu werden, von der Zieldatei abgefragt werden kann? In meinem Fall ist es nämlich so, dass die Datei "Ziel" zwar die Daten der "Quelle" beziehen soll, dem Anwender aber nicht alle Daten offen legen darf. Das wäre nämlich der Fall, wenn die "Quelle" geöffnet wird. So könnte der Anwender Veränderungen in der "Quelle" anstellen. Auch ein schreibgeschütztes Öffnen wäre nicht gut.
Vielleicht so:


Private Sub Workbook_Open()
Workbooks.ASK Filename:="Quelle.xls", Password:="12345"
ThisWorkbook.Activate
End Sub

Das ASK soll sowas wie "aktualisiere" heißen.
Du, ich bin dir für deine Hilfe sehr dankbar!
Gruß
Erdogan

Private Sub Workbook_Open() Application.ScreenUpdating = False Workbooks.Open Filename:="E:\TCO99\Quelle.xls" ThisWorkbook.Activate Sheets("Tabelle1").Range("A1").Value = Workbooks("Quelle.xls").Sheets("Tabelle1").Range("A1").Value Workbooks("Quelle.xls").Close SaveChanges:=False Application.ScreenUpdating = True End Sub

Hallo Matthias,
>> in der Befürchtung, deine Geduld zu strapazieren :-( <<
Das ist eine gute Möglichkeit, glaube ich. Ich glaube auch, verstanden zu haben, dass der User nichts vom Öffnen der Quelle mitbekommt, weil du es mit:

Application.ScreenUpdating = False
unterdrückst. Aber bei diesem Codebeispiel müsste ich, wenn ich, sagen wir mal, 1000 Verknüpfungen habe, den Code um das zigfache erweitern. Richtig? Also Ergänzen von Zeilen, die statt der "A1" z.B. "A2" enthalten.


Private Sub Workbook_Open()
Application.ScreenUpdating = False
Workbooks.Open Filename:="E:\TCO99\Quelle.xls"
ThisWorkbook.Activate
Sheets("Tabelle1").Range("A1").Value = Workbooks("Quelle.xls").Sheets("Tabelle1").Range("A1").Value
Workbooks("Quelle.xls").Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub

Ich hatte die Variante gewählt, die du mit dem Hinweis "Aktualisieren...Ja/Nein" meintest. Ich wünschte mir, dass beim Klick auf "Ja" > Aktualisieren, keine Kennwortabfrage erscheint.
Wie wäre es mit einer dritten Variante:


Private Sub Workbook_Open()
Application.ScreenUpdating = False
Workbooks.Open Filename:="Quelle.xls", Password:="12345"
ThisWorkbook.Activate
Workbooks("Quelle.xls").Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub

Den Code habe ich frecherweise aus deinen Vorschlägen zusammengestellt :-)
Und versteht meine Datei dann überhaupt, dass dieser Code für das Aktualisieren der Verknüpfungen sein soll? Nicht das die Quelle geöffnet und dann geschlossen wird und es dann aber nichts mit dem Aktualisieren der Verknüpfungen zu tun hat.
Wenn du keine Zeit oder Lust mehr hast, zu antworten, bin ich dir nicht böse, ich bin mit dieser Hilfe schon einen rießen Schritt weiter!
Vielen Dank!
Erdogan

Private Sub Workbook_Open() Application.ScreenUpdating = False Workbooks.Open Filename:="E:\TCO99\Quelle.xls", Password:="12345" ThisWorkbook.Activate 'kopiert A1:A20... Workbooks("Quelle.xls").Sheets("Tabelle1").Range("A1:A20").Copy '...ab A1 in die andere Mappe Sheets("Tabelle1").Range("A1").PasteSpecial Application.CutCopyMode = False 'entfernt den Kopierrahmen (Laufrahmen) Workbooks("Quelle.xls").Close SaveChanges:=False Range("A1").Select Application.ScreenUpdating = False End Sub

Private Sub Workbook_Open() Application.ScreenUpdating = False Workbooks.Open Filename:="Quelle.xls", Password:="12345" ThisWorkbook.Activate Workbooks("Quelle.xls").Close SaveChanges:=False Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Lese-Kennwort nicht eingeben müssen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread