[Excel] GebruikStatestieken v.e. file bijhouden

[Zerveza]

ik wil de gebruiks statestieken bijhouden voor een file.

Zoals ik het voor ogen heb, zit er in mijn bestand een hidden tap. Op die tab zijn twee colommen, te weten time stamp en user name. Iedere keer als excel wordt geopend, wordt er aan die tab een regel toegevoegd met de actuele tijd, en de computer of user name die de file opent.

Mijn VB kennis is beperkt, ik ben iets tegengekoment met "getusername" maar kan daar nix mee.

Iemand ervaring met een dergelijk concept, iemand die mee kan denken. Of iig wat zoektermen voor Google kan verzinnen... ik krijg ze niet verzonnen, en kan niets vinden op Google

[Bolukan]

Zoiets ... succes met het aanpassen

ThisWorkbook

Visual Basic:

Private Sub Workbook_Open()

 With ThisWorkbook.worksheets("LOG").range("A1").end(xlDown).offset(1,0)
    .value = GetRealUserName(GetUserName())
    .offset(0,1).value = now()
 End With
  
End Sub

modUserName

Visual Basic:

Option Explicit

Private Declare Function GetUserNameA Lib "advapi32.dll" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetUserName() As String
Dim lngResult As Long
Dim strUserName As String
On Error Resume Next
 
 ' Initialise
 strUserName = String(100, vbNullChar)
 
 ' Run
 lngResult = GetUserNameA(strUserName, Len(strUserName))
 
 ' Return
 If lngResult = 0 Then
    GetUserName = ""
  Else
    GetUserName = Left(strUserName, InStr(strUserName, vbNullChar) - 1)
 End If

End Function

Public Function GetRealUserName(UserID As String) As String
Dim RetValue As String

 UserID = UCase(UserID)
 Select Case UserID
   Case "AB1234": RetValue = "Zerveza"
   Case "CD5678": RetValue = "Bolukan"
   Case Else: RetValue = UserID
 End Select
 GetRealUserName = RetValue
 
End Function

[Witte]

Da's een handige functie:
GetRealUsername