Hur infogar man datoranvändarnamnet i ett excelblad?
Tex. om jag loggar in med användarnamnet Nisse i windows så skall det så nisse i ruta [A,1].
Detta skall ändras så om Olle loggar in skall det så Olle i ruta [A,1]

Om du lägger detta i koden för "This workbook" infogas användarnamnet (från MS Office) i cellen A1 i bladet Blad1

Private Sub Workbook_Open()
ActiveWorkbook.Worksheets("Blad1").Cells(1, 1).Value = Application.UserName
End Sub

Vill du ha användarnamn etc från din katalogtjänst får du gå via ADSI.