La siguiente función nos devuelve el nombre del usuario de Windows. Muy útil para implementar seguridad dentro de nuestras aplicaciones de Visual Basic o VBA

Declare Function GetUserName Lib “advapi32″ Alias “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long

Public Function UserNameWin() As String
Dim sRet As String
Dim x As Long
Dim sRdo As String
sRet = String(80, Chr(0))
x = GetUserName(sRet, Len(sRet))
sRdo = lpTOstr(sRet)
If Len(sRdo) = 0 Then
sRdo = “Sin nombre”
End If
UserNameWin = sRdo
End Function
Public Function lpTOstr(szTmp As String) As String
Dim ich As Integer
ich = InStr(szTmp, Chr$(0))
If ich Then
lpTOstr = Left$(szTmp, ich - 1)
Else
lpTOstr = szTmp
End If
End Function

Los permisos podrían implementarse así:

Public Function permiso() As Boolean
Dim lista As String
lista = “usuario1,usuario2,usuario3″
If InStr(lista, UserNameWin) > 0 Then
permiso = True
Else
permiso = False
End If

End Function