Sub close_XL()
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Excel Object
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If Not XS Is Nothing Then
    Set XS = Nothing
    If Not XW Is Nothing And XW.FullName = "D:\temp\Beispiel.xls" Then
        XW.Close True ' speichern + schließen der Datei Beispiel.xls
    End If
    For Each XW In XL.Workbooks ' prüfen, ob es versteckte Workbooks gibt
        If XL.Windows(XW.Name).Visible Then Exit For
    Next XW
    If XW Is Nothing Then ' Es gibt keine sichbaren Workbooks
        For Each XW In XL.Workbooks
            XW.Close True ' speichern + schließen der versteckten Workbooks
        Next XW
        XL.Quit ' Beenden von Excel
        Set XL = Nothing
    End If
End If
End Sub