Zugriffe zählen



Excel-Version: 8/9
  

UserLogbuch fur Einzeldateien

von: Jürgen Wenzel
Geschrieben am: 13.04.2002 - 16:25:19


Hallo Jo,

Nachfolgendes Modul aus meiner Modulküche erfasst jede Nutzung der Datei, in der dieses Modul enthalten ist und dokumentiert dieses in einem Logbuch.
Der Zielpfad für das Logbuch muß natürlich noch angepasst werden.
Mit einer entsprechenden "IfThen-Abfrage" kann die Erstellung eines Eintrages im Logbuch dann natürlich auch auf bestimmte Aktivitäten begrenzt werden.


Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName _
    As String, ByVal lpUserName As String, lpnLength As Long) As Long
Dim DatNam$, Time1 As Date
Function GetUser() ' Geprüft mit Win2K und NT
    Dim strUser As String
    Dim lngResult As Long
    strUser = Space(255)
    lngResult = WNetGetUser("", strUser, Len(strUser))
    If lngResult = 0 Then
        GetUser = Left(strUser, (InStr(strUser, Chr(0)) - 1))
    Else
        GetUser = ""
    End If
End Function

Sub Auto_Open()
    Time1 = Time
End Sub

Sub Auto_Close()
    DatNam = ActiveWorkbook.Name
    Open "C:\Winnt\Profiles\wenzel.juergen\XL-UserLog\452011-e.jwd" For Append As #2
    Print #2, "Dateinutzung durch:  " & GetUser & "  " & Date & " /" _
        & Time1 & " / " & Time & " / " & DatNam & Chr(9)
    Close #2
End Sub

Desweiteren wäre da noch die Möglichkeit der Erfassung aller Excel-Aktivitäten durch ein entsprechendes AddIn .

Gruss
Jürgen

  

Re: UserLogbuch fur Einzeldateien

von: jo
Geschrieben am: 14.04.2002 - 16:23:44


Hi Jürgen!

Vba ist leider nicht meins und Makros anpassen daher auch nicht.
Dieses Makro aus dem Archiv zählt bei jedem Ausdruck um eins höher. Könnte man es anpassen, daß es bei jedem Klick auf Zelle E1 höher zählt?

'StandardModule: modMain Sub SerienDruck() Dim intCounter As Integer Application.ScreenUpdating = False For intCounter = 1001 To 1003 ActiveSheet.PrintOut Range("A1") = Left(Range("A1"), 5) & _ CInt(Right(Range("A1"), 4) + 1) Next intCounter End Sub

Danke für die Hilfe

Gruß jo

nach unten

Betrifft: Zugriffe zählen
von: jo
Geschrieben am: 13.04.2002 - 13:52:36

Hallo!

Gibt es eine (einfache?) Möglichkeit, die Anzahl der Zugriffe auf ein Tabellenblatt zu zählen? Z.B. die Klicks auf ein Dropdownfeld in einer sonst geschützten Tabelle.
Und vielleicht auch bei der Suche mit dem Autofilter?

Danke und Gruß jo


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "optionbutton wert in tabellenblatt (nochmals)"