Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Kennt jemand für ein Microsoft Office Dokument ein Makro das einen Klick-Counter enthält bzw. wie man sonst herausfinden kann wie oft ein Dokument von Usern geöffnet wird?

Frage Microsoft Microsoft Office

Mitglied: D3ns007

D3ns007 (Level 1) - Jetzt verbinden

16.06.2010, aktualisiert 09:40 Uhr, 3258 Aufrufe, 6 Kommentare

Wir haben im Haus einige Standarddokumente. Mittlerweile sind im Dokumenten-Verzeichnis aber schon sehr viele Dokumente zu finden und es fällt einem schwer das richtige zu finden.

Ziel ist das ein Makro erstellt wird um in einer Datei auszuwerten wie oft die Dokumente geöffnet wurden um nicht genutzte Dokumente löschen zu können. Somit soll die Übersicht gewährleistet werden.
Hat jemand schon Erfahrung mit so was? Hat jemand den Code?

Merci für die Antworten
Grüße

D3ns!007
Mitglied: Snowman25
16.06.2010 um 09:09 Uhr
Standar_dokumente oder Standard_okumente?
eine Möglichkeit, dies zu bewerkstelligen wäre, eine Datei mit dem Namen des Dokuments anzulegen und dort die Zahl der Zugriffe zu speichern.

Gruß
Snow
Bitte warten ..
Mitglied: D3ns007
16.06.2010 um 09:41 Uhr
Das Vorgehen ist mir klar nur die Umsetzung stellt mich vor Probleme. Kenne mich nicht wirklich mit VB aus...

Grüße
D3ns!007
Bitte warten ..
Mitglied: D3ns007
16.06.2010 um 11:09 Uhr
Ich hab hier mal was gegockelt:

"Dateizugriffe protokollieren

Ein kleines Klassenmodul kann behilflich sein,
alle Dateien zu protokollieren, die geöffnet werden.

Dieses Beispiel erstellt die Datei "c:\excel-zugriffe.txt"
und speichert darin Benutzernamen, Datum, Uhrzeit und den
Dateinamen.

Wenn dieses Beispiel als Add-In installiert wird,
wird also jeder Dateizugriff protokolliert.

Fügen Sie diese Zeilen unter "DieseArbeitsmappe" ein:
01.
   
02.
  Dim AppObject As New CAppLog 
03.
 
04.
   Private Sub Workbook_Open() 
05.
      Set AppObject.app = Application 
06.
   End Sub 
07.
 
08.
   Private Sub Workbook_BeforeClose(Cancel As Boolean) 
09.
      Set AppObject.app = Nothing 
10.
   End Sub
Fügen Sie diese Zeilen in ein Klassenmodul mit dem Namen "CAppLog" ein:

01.
   Public WithEvents app As Application 
02.
 
03.
   Private Sub app_WorkbookOpen(ByVal WBook As Excel.Workbook) 
04.
      Benutzer = Application.UserName 
05.
      Datum = Format(Now, "dd.mm.yyyy") 
06.
      Uhrzeit = Format(Now, "HH:MM") 
07.
      Dateiname = WBook.FullName 
08.
      Open "c:\excel-zugriffe.txt" For Append As #1 
09.
        Print #1, Benutzer & vbTab & Datum & vbTab & Uhrzeit _ 
10.
          & vbTab & Dateiname 
11.
      Close #1 
12.
   End Sub
Das sieht ja auch alles ganz schön aus aber wie kann ich das jetzt als VB-Anfänger auf all meine Dokumente ausrollen?
Grüße

D3ns!007
Bitte warten ..
Mitglied: Tigerbaby
16.06.2010 um 17:06 Uhr
Hallo!

Darf ich mal nachfragen, bis wieviel Zugriffen bei dir ein Dokument als "nicht genutzt" gilt, um ein Löschen zu verantworten?
Oder geht eher um dem "letzten Zugriff" auf eine Datei?


^^

Thomas
Bitte warten ..
Mitglied: D3ns007
16.06.2010 um 17:18 Uhr
Klar darfst du =)

Wenn ein Dokument in einem Jahr 2 mal geöffnet wird und ein anderes jeden Tag 10 mal dann lösche ich das erstere.

D3ns!007
Bitte warten ..
Mitglied: Tigerbaby
17.06.2010 um 09:41 Uhr
Moin!

Aha!?
Und wenn es ein Dokument ist, das nur halbjährlich gebraucht wird?
zB. ein Exceldokument das eine Statistik berechnet, die nur zum halbjahr gilt?
Hat dann die Buchhaltung Pech gehabt?

Also bei uns wird es eher so gehandhabt, daß Dateien die 3 Jahre nicht benutzt werden in ein Archiv kommen und dort
wiederum nach 4 Jahren gelöscht werden. Braucht man halt Speicherplatz., aber bei Dokumenten ist das nicht so extrem viel.

Aber egal, ich will hier ja keine Diskusion über Dateiarchivierung lostreten. Da gibst eh schon tausende.


gruß
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Herausfinden ob Ordner einer Unterebene eine Zahl enthält (4)

Frage von StefanK007 zum Thema Batch & Shell ...

Drucker und Scanner
gelöst Kennt jemand das Kyocera Control Center? (17)

Frage von departure69 zum Thema Drucker und Scanner ...

Microsoft Office
gelöst Microsoft Office 2013 Update-Frage (5)

Frage von WinWord zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows 10

Heise Newsticker: Microsoft veröffentlicht das "Fall Creators Update

(8)

Information von Penny.Cilin zum Thema Windows 10 ...

LAN, WAN, Wireless

Schwachstelle im WPA2 Protokoll veröffentlicht

(3)

Information von colinardo zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (23)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (16)

Frage von sunics zum Thema Hosting & Housing ...

Windows 7
gelöst Windows 7 Anmeldedomäne festlegen (13)

Frage von flotaut zum Thema Windows 7 ...