Benutzung auf eigene Gefahr ! |
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 |