Set Excel_Applikation = CreateObject("Excel.Application")
    
'---------------------------------------------------------------------------------------------
If Val(Excel_Applikation.Version) = 8 Then Version = "Excel 97"
 
If Val(Excel_Applikation.Version) = 8 Then
MsgBox "Sie veruchen das Programm mit einer nicht freigegebenen Excelversion zu öffnen. " _
& "Erlaubt sind nur die Excelversion 2000, 2002, 2003 und 2007. Sie verfügen aber über " _
& Version & ". Das Programm wird beendet.", _
vbCritical, "Immorente - Fehler..."
Unload frm_Cal
Exit Sub
End If
'---------------------------------------------------------------------------------------------
 
If Val(Excel_Applikation.Version) = 12 Then
    Excel_Applikation.Workbooks.Open Pfad & Datei2007, Password:=DeCrypt("xxx", "")
Else
    Excel_Applikation.Workbooks.Open Pfad & Datei, Password:=DeCrypt("xxx", "")
End If
    Excel_Applikation.Visible = True
    Set Excel_Applikation = Nothing
 
Unload frm_Cal
Exit Sub