eine vorgefertigte Beispieldatei soll bearbeitet werden und danach abgespeichert werden. Es soll nicht möglich sein die Datei unter dem gleichen Namen zu speichern. Bisheriger Code

Private WithEvents oAppEvents As ApplicationEvents

Public Sub autoopen1()

Dim oApp As Inventor.Application
Set oApp = ThisApplication
Set oAppEvents = oApp.ApplicationEvents
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

End Sub

Private Sub oAppEvents_OnSaveDocument(ByVal DocumentObject As Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, HandlingCode As HandlingCodeEnum)
Dim oApp As Inventor.Application
Set oApp = ThisApplication

If BeforeOrAfter = kBefore Then

MsgBox ("Speichern unter angegebenen Namen nicht möglich.Vorlage kann nicht überschrieben werden!")
HandlingCode = kEventCanceled
Call Speichern_unter_neuem_Namen

End If



If BeforeOrAfter = kAfter Then
MsgBox ("Dokument gespeichert")
End If

End Sub


Sub Speichern_unter_neuem_Namen()
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="", Filefilter:="*.iam")
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
End Sub


Leider bekomme ich im untersten Sub bei Neuer_Dateiname=.... einen Fehler Objekt erforderlich. Hat jemand eine Idee?

mfG, Florian