Gebruikersnaam of inlognaam in cel

[Manke]

Hallo,
Graag zou ik de inlognaam van de gebruiker van het excelbestand op het werkblad afgedrukt zien worden.

Hiervoor gebruik ik het volgende script:

Function gebruikersnaam()
gebruikersnaam = Environ("username")
End Function

In een cel type ik dan "=gebruikersnaam()"

Het gaat goed zolang ikzelf dit bestand open, keurig verschijnen dan mijn initialen.
Doet een vriend van mij dat op een andere werkplek, dan verschijnen wederom mijn initialen en niet die van hem.

Weet iemand de oplossing?

Groet,

Manke en alvast een goede jaarwisseling!

 

[Wigi]

Zet

Application.Volatile

aan het begin van je functie. Lukt het dan?

Wigi

 

[Manke]

Ik heb dit nu staan:

Function gebruikersnaam()
Application.Volatile
gebruikersnaam = Environ("username")
End Function

en het werkt helaas nog niet.

 

[Wigi]

Manke

Application.Volatile

zorgt ervoor dat de functie telkens herberekend wordt als ergens anders ook iets herberekend wordt.

Gebruik dit maar eens:

Dim teller As Long

Function gebruikersnaam()
    Application.Volatile
    teller = teller + 1
    gebruikersnaam = Environ("username") & teller
End Function

Dan zie je dat beter. Doe maar eens wat berekeningen op je blad (druk F9).

Wigi

 

[Manke]

Wigi, you did it again.

Ik heb je nieuwe script geplaatst en toen stond keurig de inlognaam gevolgd door een cijfer. Het systeem werkt dus.
Even het script aangepast zodat het cijfer niet meer tevoorschijn kwam.

En inderdaad het gewenste resultaat.

Wigi, nogmaals bedankt en een goede jaarwisseling:thumb:

 

[Wigi]

En inderdaad het gewenste resultaat.

Wigi, nogmaals bedankt en een goede jaarwisseling:thumb:

Blij dat je weeral verder kan.

Voor jou ook prettige feesten en een fijne jaarovergang.

Wigi

 

[Wigi]

Zet hem nog op opgelost als je wil.

 

[jpvs]

of zet dit in ThisWorkbook :

Private Sub Workbook_[B]BeforePrint[/B](Cancel As Boolean) 
  With ActiveSheet.PageSetup 
    .LeftHeader = "" 
    .CenterHeader = "" 
    .RightHeader = Environ("username") 
    .LeftFooter = "" 
    .CenterFooter = "" 
    .RightFooter = "" 
  End With 
End Sub

Pierre

Gebruikersnaam of inlognaam in cel
______________

Er is wel een verschil tussen :

Excelgebruiker = Application.UserName
PC_naam = Environ("COMPUTERNAME")
PC_Inlogger = Environ("USERNAME")

Dit kun je gebruiken voor ComputerName en UserName te zien :

Sub Watte() 
    For i = 1 To 36 
        Cells(i,1) = Environ(i) 
    Next i