Dateien mittels Makro in Excel suchen und anzeigen

Ich bin IT-Sicherheitsbeauftragter und möchte die Rechner der User nach verbotenen Dateien durchsuchen. Mein ehemaliger Chef hatte so etwas schon mal vorbereitet...

Hallo alle zusammen.

Ich habe da ein kleines Problem.

Wie schon kurz angesprochen bin ich IT-Sibe und möchte meine Arbeit ein wenig erleichtern.
Ich muss die Rechner der User überprüfen ob Daten vorhanden sind die eigentlich nicht auf einem
Dienstlichen Rechner zu suchen haben. Mein Ehemaliger Chef hat mal ein Excel-Makro geschrieben, wo durch einen
klick mehrere Daten gesucht werden, und aufgelistet. so das man einen Überblich hat wo eventuell Daten sein können die
nicht auf den Rechner gehören. Die Suche wir mit einem Button gestartet. Danach muss man das Ergebnis über einen anderen Button importieren und es werden zusätzliche Schaltflächen geöffnen wo dann die Pfade der Dateien stehen. Zusätzlich werden die Ergebnisse nochmal in 3 Dateien ausgegeben...

Ich habe das Makro ausgeführt ("suchen" Button) und bekomme jedesmal einen Fehler:
Entweder Anwendungs- oder Objektdefinierter Fehler

Beim Debugen markiert er mir immer die Zeile:
.Refresh BackgroundQuery:=False

Keine Ahnung was daran falsch sein soll. Ich muss auch leider zugeben das ich von VBA keine Ahnung habe. Ich habe lediglich
den Code übernommen. Ich hoffe mir kann jemand von euch weiterhelfen.
Hier ist nochmal der gesammte Code:

Sub Schaltfläche6_BeiKlick()

Open "c:\DATEI1.txt" For Output As #1 ' Datei zur Ausgabe öffnen.
Open "c:\DATEI2.txt" For Output As #2
Open "c:\DATEI3.txt" For Output As #3

With Application.FileSearch

Write #2,
Write #2, " Laufwerk C: "
Write #2, " ============"
Write #2,

.FileType = msoFileTypeAllFiles
.LookIn = "C:\"
.Filename = "*.exe"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .exe Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.com"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .com Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.mp3"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .mp3 Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.avi"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .avi Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.mpg"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .mpg Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.jpg"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .jpg Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.bmp"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .bmp Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.gif"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .gif Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.ppt"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .ppt Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.pps"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .pps Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .xls Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #3, .FoundFiles(i)
Next i
End If

.Filename = "*.doc"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .doc Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #3, .FoundFiles(i)
Next i
End If

.Filename = "*.mdb"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .mdb Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #3, .FoundFiles(i)
Next i
End If

' Laufwerk D:\
'====================================================================
Write #2,
Write #2, " Laufwerk D: "
Write #2, " ============"
Write #2,
.LookIn = "D:\"
.Filename = "*.exe"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .exe Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.com"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .com Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.mp3"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .mp3 Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.avi"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .avi Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.mpg"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .mpg Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.jpg"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .jpg Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.bmp"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .bmp Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.gif"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .gif Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.ppt"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .ppt Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.pps"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .pps Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
End If

.Filename = "*.xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .xls Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #3, .FoundFiles(i)
Next i
End If

.Filename = "*.doc"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .doc Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #3, .FoundFiles(i)
Next i
End If

.Filename = "*.mdb"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Write #2, "Es wurden " & .FoundFiles.Count & _
" .mdb Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
Write #3, .FoundFiles(i)
Next i
End If

Close

End With

End Sub

Sub Schaltfläche12_BeiKlick()

Sheets.Add
ActiveSheet.Select
ActiveSheet.Name = "Ergebnis"
Sheets("Ergebnis").Select
Sheets("Ergebnis").Move After:=Sheets(2)
Sheets.Add
ActiveSheet.Select
ActiveSheet.Move After:=Sheets(3)
ActiveSheet.Select
ActiveSheet.Name = "Spaß"
Sheets.Add
ActiveSheet.Select
ActiveSheet.Move After:=Sheets(4)
ActiveSheet.Select
ActiveSheet.Name = "PersDat"
Sheets("Ergebnis").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\DATEI2.txt", _
Destination:=Range("A1"))
.Name = "DATEI2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
End With
Sheets("Spaß").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\DATEI1.txt", _
Destination:=Range("A1"))
.Name = "DATEI1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
'Columns("A:A").Select
'Selection.Sort Key1:=Columns("A"), Order1:=xlAscending, Header:=xlGuess _
', OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
Sheets("PersDat").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\DATEI3.txt", _
Destination:=Range("A1"))
.Name = "DATEI3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
Columns("A:A").Select
Selection.Sort Key1:=Columns("A"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
Sheets("Ergebnis").Select
End Sub

Sub Schaltfläche13_BeiKlick()
'
' Schaltfläche13_BeiKlick Makro
'

'
Sheets("Ergebnis").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Spaß").Select
ActiveWindow.SelectedSheets.Delete
Sheets("PersDat").Select
ActiveWindow.SelectedSheets.Delete
End Sub

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 95254

Url: https://administrator.de/contentid/95254

Ausgedruckt am: 26.11.2024 um 14:11 Uhr

14 Kommentare

Neuester Kommentar

hallo,

als SiBe weisst du ja sicherlich, das du eigentlich ohne die Erlaubnis des Users und/oder des Betriebsrates keine solche Durchsuchung durführen darfst oder habe ich da was verpasst, das es nun doch erlaubt ist und wenn ja, unter welchen Voraussetzungen?

davon mal abgesehen...
mit welcher Excel-Version wurde das Makro erstellt und mit welcher Excel-Version versuchst du es zu starten?
z.B. kommt 2000 nicht mit XP oder 2003er Makros zurecht, so das das Makro umgebastelt werden müsste

Ja ich weiss das man direkte Durchsuchungen nicht machen darf. Aber ich darf mir die Metadaten anschauen. Was ich nicht darf ist direkt in die Dateien schauen. Dazu müsste ich den ADSB mit hinzunehmen und auch nur bei einem begründetem Verdacht. Oder sehe ich das falsch?
Was ich hier machen möchte ist einfach nur in beisein des Users eine Durchsuchung wo ich sehe ob Spiele oder eventuell Dokumente mit Persönlichen Daten auf der Festplatte gespeichert sind. Was bei uns verboten ist.
Durch das Makro werden mir ja auch nur die Dateinamen aufgelistet. Mehr will und darf ich nicht sehen.

Das Makro wurde mit 2000 geschrieben und jetzt auch verwendet. Das komische ist ja, dass es schon mal funktioniert hat.

unter Excel 2003 läuft es ohne Probleme, auch wenn es erst nach Anpassung in Unterordnern sucht
zu Hause habe ich noch ein 2000er, wo ich es testen könnte

Was heißt nach Anpassungen in Unterordnern sucht? Was muss denn noch angepasst werden? Wäre ich dir sehr dankbar wenn du es ausprobieren könntest. Das komische ist ja das es vor kurzem schon mal kurz geklappt hat. Aber nur einmal. Kann mir da echt keinen Reim draus machen.
Oder hast du eine andere Idee wie man ansonsten nach Dateien suchen kann ohne sie jedesmal einzelln durch die Dateisuche zu jagen?
Ist jetzt auch nicht so dringend...

sorry, konnte es erst jetzt testen und bei mir funktioniert es einwandfrei unter Excel 2000 SP3
wenn ich das richtig gesehen habe, dann kommt die .Refresh BackgroundQuery:=False nur im Makro "Schaltfläche12_BeiKlick" vor
werden denn die Tabellenblätter überhaupt richtig angelegt?

Ja der Fehler kommt nur in dieser Zeile. Die Tabellenblätter werden immer richtig angelegt. Aber leider werden sie nicht befüllt. Der Fehler ist anscheinend davor. Wo steht denn eigentlich in diesem Script das die drei Dateien angelegt werden sollen? Ih finde nur die Zeile wo er auf diese Dateien zugreifen möchte...

angelegt werden sie wohl gleich am Anfang im Makro "Schaltfläche6_BeiKlick":

Open "c:\DATEI1.txt" For Output As #1  
Open "c:\DATEI2.txt" For Output As #2  
Open "c:\DATEI3.txt" For Output As #3  

.Refresh BackgroundQuery:=False schlägt bei mir nur dann fehl, wenn die Datei nicht existiert
lass doch mal den ersten Teil des Makros laufen und guck dann mal nach, ob die Dateien überhaupt angelegt werden
eigentlich müssten sie das, denn das erste Makro läuft ja wohl ohne Fehler durch

Also die Dateien werden angelegt. Das hab ich schon geprüft. Aber irgendwie übernimmt er sie nicht in die Tabelle...
Aber in die Dateien schreibt er was rein.

kopier das Makro mal in eine komplett neue Datei rein und probier es dann noch mal aus

Das sagst du so einfach. Ich hatte dir schon erählt das ich noch nie ein Makro gemacht habe oder? Ich bekomme es zwar einigermaßen hin einen Code zu lesen, aber nicht einen zu schreiben. Was muss ich denn machen wenn ich den Code rein kopiere? Gehe auf Extras --> Makro --> Visual Basic-Editor
Dann muss ich ja links ein Modul neu erstellen oder? Und dort kopiere ich dann alles rein. Aber ich brauch ja auch noch die Buttons... Wie bekomm ich die am besten da rein und richtig beschrieben? Wenn ich einfach so auf start drücke kommt.
"Index außerhalb des gültigen Bereiches"!

ich habe es so gemacht:
Extras -> Makro -> Visual Basic-Editor
doppelklick auf "Diese Arbeitsmappe" -> einfügen
dann klickst du einfach in das Makro "Schaltfläche6_BeiKlick" und drückst einfach F5
das Makro startet und ist irgendwann fertig
anschliessend gehst du ins Makro "Schaltfläche12_BeiKlick" udn drückst wieder F5
entweder es kommt wieder ein Fehler oder (hoffentlich) nicht

Er sagt mir dann einen Laufzeitfehler:
"Nicht genügend Speicher" Hab aber nix weiter auf als 3 Web-Fenster... Geht aber auch nicht wenn ich den Rechner neu gestartet habe...

wenn die Fehlermeldung kommt, existieren dann die 3 TXT-Dateien auf C:?

Ja die existieren dann schon. In einem der Dateien steht auch schon was drin. Aber nur eine Zeile. Und ich kann mir nicht vorstellen das er nur eine Datei gefunden hat. Deswegen wird er wahrscheinlich nach dem erstellen gleich abbrechen. Aber ich wüsste nicht wieso...

gelöst Frage Microsoft Microsoft Office

Mehr von Silencer1981

Intel Core 2 duo mehr als 3,5 GB Arbeitsspeicher?Silencer1981 - 8 Kommentare

Lotus Notes ProblemeSilencer1981 - 3 Kommentare

Wo bekomme ich ein Update vom rbfg.exe her?Silencer1981 - 2 Kommentare

Auf 2 Laufwerken von 2 verschiedenen servern gleichzeitig speichernSilencer1981 - 1 Kommentar

Heiß diskutiert