AW: XLTM mit Hyperlink öffnen --> XLSM
16.08.2017 09:43:51
Aaron
... Ergänzung:
Ich habe im Netz ein wenig recherchiert und bin auf ein ähnliches Problem in Word gestoßen:
http://www.office-loesung.de/ftopic236551_0_0_asc.php
Den dortigen Code habe ich nun versucht auf Excel anzupassen ...
Sub AutoOpen()
If ActiveWorkbook = ThisWorkbook Then
Workbooks.Add Template:=ThisWorkbook.FullName
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
... und in in "DieseArbeitsmappe" gepackt:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Visible = True
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_Open()
Application.Visible = False
UF_Ladebildschirm_laden
' Userprüfung
' BefüllteTabellenblätterAnzeigen
'Alle Anzeigen aktivieren
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
End Sub
Sub AutoOpen()
If ActiveWorkbook = ThisWorkbook Then
Workbooks.Add Template:=ThisWorkbook.FullName
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
Wenn ich den "AutoOpen" in "Workbook_Open" schreibe und von dort starte, erhalte ich die Fehlermeldung:
Laufzeitfehler '438':
Objekt unterstützt diese Eigenschaft oder Methode nicht
Wenn ich teile des Codes
Workbooks.Add Template:=ThisWorkbook.FullName
ThisWorkbook.Close SaveChanges:=False
In den "Workbook_Open" schreibe, dann meckert er rum, von wegen "kann keine Kopie öffnen, wenn Original geöffnet" ...
Jetzt komme ich nicht mehr weiter.
Vielleicht hilft die Ergänzung noch weiter.
Ich freue mich auf eure Rückmeldung.
Gruß
Aaron