Herbers Excel-Forum - das Archiv

Dateien mit Makros suchen

Bild

Betrifft: Dateien mit Makros suchen
von: Bettina

Geschrieben am: 20.04.2005 15:50:56
Hallo,
ich möchte in Excel-Makros Änderungen vornehmen. Leider gibt es hier sehr viele Excel-Dateien und man kann ja bekanntlich nicht auf den ersten Blick erkennen, ob diese ein Makro beinhalten oder nicht.
Gibt es eine Möglichkeit, diese Dateien zu erkennen und eine Liste mit Dateinamen und Pfad auszugeben?
Vielen Dank im Voraus.
Bettina
Bild

Betrifft: AW: Dateien mit Makros suchen
von: Rolf Beißner

Geschrieben am: 20.04.2005 16:20:34
Hallo Bettina,
wenn du Bettina Steinbeck bist,
hattest du kürzlich von mir einen
Code bekommen, der die Verweise einer Datei ausgibt
siehe
https://www.herber.de/forum/archiv/596to600/t597867.htm#597867
den könntest du um diese CodeCheck-Funktion, der du als Argument
den Dateinamen (Prämisse: Datei ist geöffnet) übergibst ergänzen.
fG
Rolf

'Code-Check
Function CodeCheck(wb As String) As Boolean
On Error GoTo protected
Dim vb, vbc As Object
Dim cl
cl = 0
Set vb = Workbooks(wb).VBProject.VBComponents
For Each vbc In vb
cl = cl + vbc.CodeModule.CountOfLines
If cl > 0 Then
CodeCheck = True
Exit Function
End If
Next
CodeCheck = False
Exit Function
protected:
If Err.Number = 50289 Then
CodeCheck = True
Else
MsgBox "Beim Codecheck ist ein Fehler aufgetreten" & Chr(10) & _
"Das Programm wird beendet"
End
End If
End Function

Bild

Betrifft: AW: Dateien mit Makros suchen
von: Bettina

Geschrieben am: 20.04.2005 16:24:25
Ja, das bin ich.
Was ist mit "(Prämisse: Datei ist geöffnet)" gemeint? Es sollte, wenn möglich wie auch beim ersten Problem nur ein Verzeichnis angegeben werden müssen.
Aber es ist prinzipiell möglich, herauszufinden, ob eine Datei ein Makro enthält oder nicht?
LG
Bild

Betrifft: AW: Dateien mit Makros suchen
von: Rolf Beißner

Geschrieben am: 20.04.2005 16:39:30
Hallo Bettina,
Datei runter laden + ausprobieren -
und sag mal, ob's klappt.
hG
Rolf
https://www.herber.de/bbs/user/21430.xls
 Bild
Excel-Beispiele zum Thema "Dateien mit Makros suchen"
Alle Dateien im Verzeichnis öffnen Dateien listen
400 leere Textdateien anlegen XL-Dateien in UserForm listen
XL5/7-Dateien nach XL8 konvertieren Dateien aus Listbox auslesen und öffnen
Excel-Dateien eines Ordners listen Alle Dateien ab einem bestimmten Datum listen
Alle Dateien eines Verzeichnisses drucken Textdateien verbinden