Gebruikersnaam functie automatisch aanroepen bij openen werkblad

[iAmRenzo]

Ik heb een rooster in Excel waarin ik de huidige gebruiker wil highlighten. Die formule voor voorwaardelijke opmaakt loopt prima. Echter heb ik een probleem met het opvragen van de gebruiker.

Ik heb deze VBA code:

Sub Auto_Open()
 UserName
 MsgBox ("Test")
End Sub
Public Function UserName()
    UserName = Environ$("UserName")
    MsgBox ("Naam")
End Function

Beide test berichten komen in beeld, dus dat werkt.

In een cell heb roep ik de functie =UserName() aan. Als ik een collega de sheet laat openen, blijft mijn naam er in staan. Niet de zijne.

Hoe krijg ik Excel zo ver dat hij de cell waarde (de username van de gebruiker die de sheet opent) wijzigt?

 

[snb]

Gebruik:

private sub Workbook_open()
   msgbox environ("Username")
end sub

PS. Maar vooral: gebruik geen VBA-code die je niet begrijpt.

 

[iAmRenzo]

*knip*
nevermind, de beveiliging stond natuurlijk aan bij collega's.