AW: Verknüpfungen übertragen nicht alles
24.09.2003 11:30:30
alex
Verknüpfungen mit OLELinks funktionieren leider nicht.
Die Seite mit den Zielen der Verknüpfung ist geschützt. Wenn ich doppelt auf die entsprechende Zelle klicke, geht die Quelldatei auf.Nach schliessen der Quelldatei hab ich auch wieder den kompletten Text.
NUR beim nächsten LinkUpdate besteht das selbe Problem wieder.
Hier mal der komplette Code der in DieseArbeitsmappe steht.
Public zoom As Integer
Public kz As String
Sub Workbook_Open()
DieseArbeitsmappe.zoom = 63
If ActiveWorkbook.Name = "ablage_client.XLS" Then
GoTo neueMappe
End If
If DieseArbeitsmappe.kz = "" Then
DieseArbeitsmappe.kz = Sheets("Master").Range("i2")
End If
If DieseArbeitsmappe.kz = "" Then
DieseArbeitsmappe.kz = InputBox("Bitte geben sie Ihr Kürzel ein")
Sheets("Master").Range("i2") = DieseArbeitsmappe.kz
End If
Sheets(DieseArbeitsmappe.kz + "_mappe").Protect Password:="ak", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFiltering:=True
Sheets("MASTER").Protect Password:="ak", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFiltering:=True
Call KalenderClient_AufgabenUebernehmen2
GoTo ende1
neueMappe:
DieseArbeitsmappe.kz = InputBox("Bitte geben Sie Ihr Kürzel ein.")
Sheets("Master").Range("i2") = DieseArbeitsmappe.kz
Sheets("Master").Protect Password:="ak", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFiltering:=True
ende1:
End Sub
Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim wkb As Workbook
Set wkb = Application.ActiveWorkbook
If Sh.Name = "Master" Then
ActiveSheet.Unprotect Password:="ak"
ActiveWorkbook.UpdateLink Name:= _
"M:\KFIS2000Neu\VERKAUF_MARKETING\GLVT\ablage_master.XLS", Type:=xlExcelLinks
ActiveSheet.Protect Password:="ak", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFiltering:=True
End If
End Sub
Gruß Alex.