[Excel VBA] Naam account plaatsen

[Batsies]

Is het mogelijk de naam van persoon die een macro uitvoerd neer te plaatsen. BIjvoorbeeld ik ben in windows ingelogd als "Jan Jansen", dat je dan "Jan Jansen" met een functie kan oproepen en kan plaatsen in je excel document.

In php / asp .... kan het wel met http-request, maar is er ook zoiets in excel, kan er weinig over vinden

[Lustucru]

Afaik heeft excel dit niet ingebouwd, maar met de windows API kom je een heel eind:
eerst definieer je de functie:

code:

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

die je zo aanroept:

code:

 strUserName = String(100, Chr$(0))
 GetUserName strUserName, 100
 strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)

[Batsies]

Makkelijkere functie gekregen: Range("A2").Value = application.Username

In ieder geval bedankt

[Lustucru]

Oh? Afaik geeft application username de gebruikersnaam weer die in Excel staat ingevoerd bij opties, algemeen, en dat is wat anders dan de windows inlognaam. Maar als je blij bent ben je blij.

[Pyrowired]

Ook een mogelijkheid is het gebruik van Environ("USERNAME")

edit:
Klinkers en dubbele aanhalingstekens altijd een brok ellende

[ Voor 41% gewijzigd door Pyrowired op 25-04-2004 14:58 ]