Visualizzare data e nome utente ultima modifica
Post date: Sep 9, 2015 9:28:32 AM
Comunque, partendo da qui:
http://www.erlandsendata.no/english/index.php?d=envbaosusername
Con questo codice da mettere in un modulo:
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function ReturnUserName() As String
Dim rString As String * 255
Dim sLen As Long
Dim tString As String
tString = ""
On Error Resume Next
sLen = GetUserName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen > 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
ReturnUserName = UCase(Trim(tString))
End Function
E questo da mettere nell'evento Open di
ThisWorkbook:
Private Sub Workbook_Open()
Dim nr As Long
With Worksheets("FoglioDiLog")
nr = .Range("A65536").End(xlUp).Row
.Cells(nr + 1, 1).Value = ReturnUserName
.Cells(nr + 1, 2).Value = Format(Date, "mm/dd/yyyy")
.Cells(nr + 1, 3).Value = Format(Now, "hh:mm:ss")
End With
End Sub
Avendo preventivamente creato un foglio
chiamato FoglioDiLog, ogni volta che un
utente mi apre il file, viengono scritti:
Nome utente
Data
Ora
Ti metto qui un esempio: