Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makros aufspüren

Makros aufspüren
13.11.2002 14:05:00
andyG
Ich habe folgendes Problem!
Ich versuche verzweifelt aus ca. 6000 Excel Dateien diejenigen herauszufiltern welche Makros enthalten, ohne jede Einzelne öffnen zu müssen. Hat jemand eine Idee oder evtl. ein Programm mit dem ich das realisieren kann?
Danke im Voraus!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makros aufspüren
13.11.2002 14:55:15
Otto Ecker
Hallo Andy,

ohne öffnen geht da nichts. Lade eine Datei nach der anderen per VBA, prüfe ob Module vorhanden sind. Ist ein Modul vorhanden dann...... und Datei schliessen. Nächste Datei.....

Hier ein Ansatz wie Du Module ausliest:

For Each VBPro In ActiveWorkbook.VBProject.VBComponents
If VBPro.Type = 1 Then _
Module = Module & VBPro.Name & Chr(13)
If VBPro.Type = 2 Then _
Klassenmodule = Klassenmodule & VBPro.Name & Chr(13)
If VBPro.Type = 3 Then _
Forms = Forms & VBPro.Name & Chr(13)
If VBPro.Type = 100 Then _
Mappen = Mappen & VBPro.Name & Chr(13)
Next VBPro

Gruß Otto

PS wie man alle Dateien eines Verzeichnisses öffnet findest Du im Archiv bzw. auf der CD von Hans

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige