VBA – jak získat login aktuálně přihlášeného uživatele

Tento článek popisuje, jak v rámci VBA získat uživatelské jméno aktuálně přihlášeného uživatele.

Znát uživatele je vhodné ve chvíli, kdy chceme, aby se aplikace chovala jinak podle toho, kdo je přihlášený do Windows – například aby různí uživatelé měli různá práva. (Samo o sobě to ale samozřejmě nelze doporučit pro opravdovou ochranu důvěrných dat atd.).

Tento příkaz uloží jméno přihlášeného do proměnné uzivatel:

uzivatel = Application.UserName

Takto vypadá celé makro, které rovnou i název přihlášeného uživatele zobrazí:

Sub uzivatelske_jmeno()
dim uzivatel as string
uzivatel = Application.UserName
MsgBox (uzivatel)
End Sub

Pokud chceme uživatele uložit do buňky, můžeme použít buď VBA:

cells(1,1).value = uzivatel

nebo vytvořit vlastní funkci.