Dateien mit Makros suchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Dateien mit Makros suchen"