Office: VBA Öffnen von anderen Dateien

Hallo liebe Community,

ich habe ein (für Euch wahrscheinlich kleines) Problem: Ich frage innerhalb eines Subs zuerst ab bzw. ermittle, um welche Office Version es sich handelt (Mac oder Win) und auf Basis dessen wird ein anderes Sub geöffnet:

Code:

    Sub WINorMAC()
    ' Test for the operating system.
        If Not Application.OperatingSystem Like "*Mac*" Then
            ' Is Windows.
            Call DateienKopierenWin
        Else
            ' Is a Mac and will test if running Excel 2011 or higher.
            If Val(Application.Version) > 14 Then
                Call DateienKopierenMac
            End If
        End If
    End Sub

Das funktioniert einwandfrei.

Innerhalb des darin aufgerufenen Sub können vom Benutzer Dateien ausgewählt werden, die nacheinander geöffnet und Inhalt herauskopiert wird. Eine vorab: Eigentlich funktioniert alles, sowohl für Win als auch für Mac (Mac Script von der Microsoft HP: https://msdn.microsoft.com/de-de/library/office/hh710200%28v=office.14%29.aspx )

Nun zu meinem Problem: In Windows werden die Dateien geöffnet, verarbeitet und wieder geschlossen. Unter Mac werden die Dateien zwar auch geöffnet, allerdings erfolgt für jede Datei die Abfrage, ob die darin enthaltenen Makros aktiviert werden sollen oder nicht. Dies ist hinderlich, wenn z.B. 20 verschiedene Dateien geöffnet werden sollen und jedes mal die Abfrage hoch ploppt. Weiß jemand, wie ich diese Abfrage verhindern kann? Dazu ist vielleich sinnvoll zu wissen, dass die in der geöffneten DAtei enthaltenen Makros für das kopieren hier NICHT notwendig bzw. benötigt werden. Also es ist unerheblich, ob aktivieren oder nicht aktivieren ausgewähöt wird.

Hier noch der Code für das Öffnen der Dateien unter Mac:

Code:

    MyPath = MacScript("return (path to documents folder) as String")
        'Or use MyPath = "Macintosh HD:Users:Ron:Desktop:TestFolder:"

        ' In the following statement, change true to false in the line "multiple
        ' selections allowed true" if you do not want to be able to select more
        ' than one file. Additionally, if you want to filter for multiple files, change
        ' {""com.microsoft.Excel.xls""} to
        ' {""com.microsoft.excel.xls"",""public.comma-separated-values-text""}
        ' if you want to filter on xls and csv files, for example.
        MyScript = _
        "set applescript's text item delimiters to "","" " & vbNewLine & _
                   "set theFiles to (choose file of type " & _
                 " {""com.microsoft.Excel.xls""} " & _
                   "with prompt ""Please select a file or files"" default location alias """ & _
                   MyPath & """ multiple selections allowed true) as string" & vbNewLine & _
                   "set applescript's text item delimiters to """" " & vbNewLine & _
                   "return theFiles"

        MyFiles = MacScript(MyScript)
        On Error GoTo 0

        If MyFiles <> "" Then
            With Application
                .ScreenUpdating = False
                .EnableEvents = False
            End With

            MySplit = Split(MyFiles, ",")
            For intZ = LBound(MySplit) To UBound(MySplit)
           
    '        For intZ = LBound(strDateiname) To UBound(strDateiname)
                Workbooks.Open MySplit(intZ)
    '            Workbooks.Open Pfad & Dateiname
                quellname = ActiveWorkbook.name
      

Vielen Dank für Eure Hilfe!!!

Viele Grüße
Andy