Aktualisierung von Verknüpfungen abschalten

29/08/2014 - 18:28 von Ralf Gläßer | Report spam
Hallo,

aus einer Arbeitsmappe wird von einem Blatt eine Sicherheitskopie
erstellt und gespeichert.
In dieser Kopie befindet sich eine Zelle mit einer Verknüpfung.
Wenn ich also die Sicherheitskopie öffne, will Excel aktualisieren. Das
soll nicht passieren.
Diese Aktualisierung will ich schon beim Erstellen der Sicherheitskopie
für die Sicherheitskopie abschalten.
aber wie? Die Variante ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
funktioniert nicht.

aktueller Code:

Sub xxxxx_sichern()
Dim NameNeu1 As String
Sheets("xxxxx").Copy
ActiveSheet.Unprotect
'Schaltflàchen in SIK löschen
ActiveSheet.Shapes("Schaltflàche 1").Select
Selection.Cut
ActiveSheet.Shapes("Schaltflàche 2").Select
Selection.Cut

'Aktualisierungsabfrage abschalten
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever

'Speichern unter
NameNeu1 = Application.Dialogs(xlDialogSaveAs).Show("xxxxx.xlsx")

'Abfragen ob speichern erfolgreich war
If NameNeu1 = True Then
MsgBox "Datei erfolgreich unter: " & ActiveWorkbook.FullName &
" gespeichert!", vbInformation
Else
MsgBox "Speichern gescheitert!", vbCritical
End If
ActiveWorkbook.Close savechanges:=False
Range("A2").Select
ActiveSheet.Protect
End Sub
 

Lesen sie die antworten

#1 Claus Busch
29/08/2014 - 21:08 | Warnen spam
Hallo Ralf,

Am Fri, 29 Aug 2014 18:28:34 +0200 schrieb Ralf Glàßer:

aber wie? Die Variante ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
funktioniert nicht.



kann es sein, dass das Workbook nicht das aktive ist?
Warte bis nach dem Speichern und spreche es dann mit dem Namen an:
Workbooks("xxxx.xlsx").UpdateLinks = xlUpdateLinksNever

Oder stelle es hàndisch unter Daten => Verknüpfung bearbeiten
entsprechend ein.



Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen