[Eine Seite zurück] [Übersicht] [Eine Seite vor]

Benutzung auf eigene Gefahr !
Keine Garantie für garnichts !

Excel-Dateien öffnen, ohne Automakros zu starten

Sprache / Programm: Excel ab Version 95
Beschreibung

Das Makro bietet einen Datei-Öffnen-Dialog, bei dem ein oder mehrere Excel. Dateien gewählt werden können. Diese Dateien werden dann geöffnet, ohne Austomakros zu aktivieren.

VBA-Quelltext
Public Sub OhneAutoMakrosÖffnen()
    Dim NameZiel As Variant, Nr As Integer
    NameZiel = Application.GetOpenFilename("Excel-Dateien (*.xl*),*.xl*", , "XL-Dateien mit AUTO_OPEN-Makros auswählen...", MultiSelect:=True)
    Application.EnableEvents = False

    If IsArray(NameZiel) Then                    ' Mehrere Dateien ausgewählt (Multiselect)
        For Nr = LBound(NameZiel) To UBound(NameZiel)
            If InStr(1, Right(NameZiel(Nr), 4), ".xl", 1) = 1 Then Workbooks.Open NameZiel(Nr)
        Next Nr
    ElseIf NameZiel = False Then Exit Sub
    ElseIf InStr(1, Right(NameZiel(Nr), 4), ".xl", 1) = 1 Then Workbooks.Open NameZiel(Nr)    ' Nur eine Datei ausgewählt
    End If

    Application.EnableEvents = True
End Sub