wie kann man per VBA Dateien mit deaktivierten Makros öffnen?
Hintergrund: Ich möchte in allen Dateien eines Ordners (alle gleicher Aufbau) Änderungen vornehmen (nur eine kleine Sortierroutine) und sie wieder speichern. In den Dateien gibt es aber Ereigniscodes mit der End-Anweisung, die mein aufrufendes Makros natürlich beendet. Die Events auszuschalten funktioniert auch nicht.
Wie geht das?
Hier der Vollsändigkeit halber mein Code:
Option Explicit
Sub Alle_Dateien()
Const PFAD As String = "H:\Eigene Dateien\Mein Ordner"
Dim i As Long
With Application.FileSearch
.LookIn = PFAD
.Filename = "*.xls"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Call mach_was(.FoundFiles(i))
Next icounter
End With
End Sub
Sub mach_was(S As String)
Dim Wb As Workbook
Dim Ws As Worksheet
Set Wb = Workbooks.Open(S)
Set Ws = Wb.Worksheets("Tabelle1")
With Ws
'Hier kommt die Sortierroutine
End With
Wb.Close True
End Sub
Grüße Boris