Visual Basic-procedure voor het gebruik van de naam van een huidige gebruiker


Samenvatting


U kunt een Windows API (Application Programming Interface) bellen naar een DLL (Dynamic Link Library) van Microsoft Windows om de huidige gebruikersnaam op te halen. U kunt de huidige gebruikersnaam verkrijgen met behulp van de functie GetUserNameA in ADVAPI32. Bestand.

Meer informatie


Microsoft Excel heeft geen ingebouwde functionaliteit om toegang te krijgen tot de huidige gebruikersnaam van de computer. U kunt echter de instructie Declare in een VBA-macro (Visual Basic for Applications) gebruiken om een Microsoft Windows-functie aan te roepen waarmee de huidige gebruikersnaam wordt geretourneerd. Microsoft biedt voorbeelden van procedures voor Visual Basic for Applications voor alleen een afbeelding, zonder garanties, met inbegrip van of impliciete garanties, met inbegrip van, maar niet beperkt tot de impliciete garanties van verkoopbaarheid en/of geschiktheid voor een bepaald doel. De procedures in dit artikel worden beschreven in de Visual Basic-procedure en Microsoft garandeert niet dat deze kunnen worden gebruikt in alle situaties. Hoewel Microsoft-ondersteuningsmedewerkers de functionaliteit van een bepaalde macro kunnen uitleggen, worden deze voorbeelden niet gewijzigd voor het toevoegen van functies, en kunnen we u helpen bij het maken van macro's om aan uw specifieke behoeften te voldoen. Als u de programmeerervaring beperkt hebt, kunt u een van de Microsoft Solution Providers raadplegen. Solution providers bieden een groot aantal services op basis van services, waaronder het maken van aangepaste macro's. Neem voor meer informatie over Microsoft Solution Providers contact op met Microsoft Customer Information Service (800) 426-9400.

VOORBEELD

  1. Typ de volgende code in een nieuwe module:
        ' Makes sure all variables are dimensioned in each subroutine.     Option Explicit     ' Access the GetUserNameA function in advapi32.dll and     ' call the function GetUserName.     Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _     (ByVal lpBuffer As String, nSize As Long) As Long     ' Main routine to Dimension variables, retrieve user name     ' and display answer.     Sub Get_User_Name()     ' Dimension variables     Dim lpBuff As String * 25     Dim ret As Long, UserName As String     ' Get the user name minus any trailing spaces found in the name.     ret = GetUserName(lpBuff, 25)     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)     ' Display the User Name     MsgBox UserName     End Sub
  2. De macro Get_User_Name uitvoeren. Houd er rekening mee dat de huidige gebruikersnaam in een berichtvak wordt weergegeven.