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

You are here:

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

S tímto tématem se setkáte na našich kurzech ExcelTown.
Vzhledem k uvolnění opatření kolem koronaviru předpokládáme, že se kurzy budou normálně konat.

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

1	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

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

1	cells(1,1).value = uzivatel

nebo vytvořit vlastní funkci.

Návody