In un contest lavorativo, a volte è utile poter rilevare chi stà utilizzando un file per poter abilitare o meno l’utilizzo di macro o calibrare quest’ultime in funzione dell’utilizzatore.

Torna utile in questi casi la seguente funzione, non realizzata a me.

In un modulo inserite il seguente codice:

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

Public Function GetUserName() As String
Dim lpBuff As String * 25
Get_User_Name lpBuff, 25

GetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

End Function

Per vedere al volo il valore che restituisce, in un nuovo modulo inserite:

Msgbox (GetUserName)

Per usarla per abilitare o meno un utente ad eseguire una macro, potete scrivere:

If GetUserName = "Riccardo" Then
   'codice macro a piacere
Else
   Msgbox "Non sei autorizato!", VbCritical , "ATTENZIONE"
End if

Riccardo Vincenti