Microsoft Excel

Herbers Excel/VBA-Archiv

Verknüpfungen geschützter Dateien aktualisieren

Betrifft: Verknüpfungen geschützter Dateien aktualisieren von: stormlamp
Geschrieben am: 22.09.2014 11:50:18

Hallo Zusammen,

es gibt hier einige Lösungsvorschläge, wie man Verknüpfungen automatisch aktualisiert, aber ich schaffe das nicht bei meiner Konstellation:

Datei1 und Datei2 liegen im Netzwerk im gleichen Ordner. Datei1 und Datei2 werden von jeweils unterschiedlichen Personen bearbeitet.

Datei1/Tabelle1 aktualisiert sich aus Datei2/Tabelle2
und
Datei2/Tabelle3 aktualisiert sich aus Datei1/Tabelle5

Die Aktualisierung wird automatisch alle 3 Minuten durchgeführt durch:

Private Sub Workbook_Open()
    Call intervall
End Sub
--------------
Sub intervall()
    Dim NextTime As Date
    NextTime = Now + TimeValue("00:03:00")  'Zeitintervall festlegen
    Application.OnTime NextTime, "intervall"
    ActiveWorkbook.RefreshAll
    Call Calculate
    ThisWorkbook.Save
End Sub
Beide Dateien sind schreibgeschützt und mal offen, mal geschlossen.

Die Aktualisierung soll immer im schreibgeschützen Zugriffsmodus erfolgen und egal, ob sie offen oder geschlossen sind und ohne Meldungen oder Passwortabfragen.

Kann mir bitte jemand bei der Zusammensetzung eines funktionierenden Codes helfen.

Gruß
Hans

  

Betrifft: AW: Verknüpfungen geschützter Dateien aktualisieren von: stormlamp
Geschrieben am: 22.09.2014 12:54:40

Hallo,

eine zusätzliche Idee dazu, vielleicht führt folgender Weg zum Ziel:

1. Beim Öffnen von Datei1 sofort die Aktualisierung blockieren
2. Gleichzeitig per VBA Datei2 im schreibgeschützten Modus im Hintergrund öffnen
3. Aktualisierung freigeben und durchführen.

Das Gleiche im umgekehrten Sinn in die Datei2 hineinschreiben.

Wie müsste dafür der Programmcode aussehen?

Gruß
Hans


  

Betrifft: Verknüpfungen geschützter Dateien aktualisieren von: Hajo_Zi
Geschrieben am: 22.09.2014 13:09:14

Hallo Hans,

alle verknüpften Dateien öffnen
http://hajo-excel.de/chCounter3/getfile.php?id=72
das muss nur umgestellt werden auf Schreibschutz.

GrußformelHomepage


  

Betrifft: AW: Verknüpfungen geschützter Dateien aktualisieren von: stormlamp
Geschrieben am: 22.09.2014 13:53:48

Hallo Hajo,

danke, funktioniert prima.

Nur das Abschalten der Auto-Update-Funktion für das Starten der ersten Arbeitsmappe klappt nicht. Die Aktualisierung darf erst laufen, wenn alle mappen offen sind. Wo habe ich den Fehler?

Private Sub Workbook_Open()
    Application.AskToUpdateLinks = False
    Application.ScreenUpdating = False              ' Bildschirmaktualisierung aus
    OeffnenAllerVerknuepftenArbeitsmappen           ' verknüpfte Dateien öffnen
    ThisWorkbook.Activate                           ' diese Arbeitsmappe wieder aktivieren
    Application.ScreenUpdating = True               ' Bildschirmaktualisierung ein
    Application.AskToUpdateLinks = True
    Call intervall
End Sub
Gruß
Hans


  

Betrifft: Verknüpfungen geschützter Dateien aktualisieren von: Hajo_Zi
Geschrieben am: 22.09.2014 13:57:01

in der Datei, Verknüpfungen bearbeiten, da gibt es einen Punkt bei Start.

Gruß Hajo


 

Beiträge aus den Excel-Beispielen zum Thema "Verknüpfungen geschützter Dateien aktualisieren"