Se forfatter / bruger

Jeg kender ikke nogen funktionder kan hente brugernavn, men vedlagte kode kan gøre det.

Den umiddelbare løsning er at tage username fra Tools/options/general.

I den engelske udgave ser det sådan ud (du må selv oversætte):

Sub InsertName()
Dim xName

xName = Application.UserName
Cells(1, 1) = xName

End Sub

Hvis du er interesseret i at få oplysningerne fra logon, så skriv til mig på mpc@gn.dk

mvh

Øhh, skulle der være en som kan oversætte ovennævnte.........

Send mig din e-mail på mpc@gn.dk, så sender jeg et regneark tilbage, med et stykke kode, der løser dit problem.

Jeg takker for hjælpen.........

Kunne vi andre ikke for lov til at se koden til ovenstående ?

Hvis det er muligt at få en kopi at den kode  der henter oplysningerne fra logon, kan det sendes til peter_cort@hotmail.com

Hvis andre er interesserede så er koden til funktionen:

==> Kongebro: Jeg sender koden direkte til dig som en visual basic export fil.


Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'#######################################################
'###
'### Indtast funktionen =ReturnUserName() i en celle
'###
'#######################################################
Function ReturnUserName() As String ' returns the NT Domain User Name

Dim rString As String * 255, sLen As Long, tString As String

tString = ""
   
    On Error Resume Next
    sLen = GetUserName(rString, 255)
    sLen = InStr(1, rString, Chr(0))
   
    If sLen > 0 Then
        tString = Left(rString, sLen - 1)
        Else: tString = rString
    End If
   
    On Error GoTo 0
   
    ReturnUserName = UCase(Trim(tString))

End Function

Funktionen kan findes under Insert - functions ( under kategorien "userdefined") eller ved at indsætte =ReturnUserName() i en celle. Virket både i Win95 og NT med office 97.