Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 3245 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(2)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Microsoft Office
gelöst Microsoft Office Makro-Fehler unterdrücken (3)

Frage von Akrosh zum Thema Microsoft Office ...

Microsoft Office
Lizenzfrage Microsoft Office 2016 (1)

Frage von ozn089 zum Thema Microsoft Office ...

Windows Userverwaltung
gelöst Kennt jemand ein Berechtigungstool wie 8MAN? (1)

Frage von ALucaK zum Thema Windows Userverwaltung ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...