Oft stimmt der Benutzername in Excel (Extras - Optionen -
Allgemein)
nicht mit dem angemeldetem Benutzernamen im Netzwerk überein.
Nicht schlimm ?
Nun, gerade in einem größerem Netzwerk ist es gut zu wissen,
welcher Benutzer gerade diese Datei auf dem Server bearbeitet,
in der man mal schnell eine Änderung vornehmen möchte...!
Setzen Sie die Eigenschaft "IsAddin" unter den
Eigenschaften von
"DieseArbeitsmappe" auf True.
Nachdem Sie den Code in ein Modul eingefügt haben,
speichern Sie die Datei entweder im Ordner
"C:\Programme\Microsoft Office\Office\XLStart"
(Vorgabe-Ordner) ab,
oder aber richten Sie die Datei als Add-In
ein.
Bei jedem Excel-Start wird nun der Benutzername entsprechend
"richtig gestellt".
Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Function NetUser()
Dim s As String
Dim cnt As Long
Dim ret As Long
cnt = 199
s = String$(200, 0)
ret = GetUserName(s, cnt)
If ret <> 0 Then
NetUser = Trim(Left$(s, cnt))
pos = InStr(NetUser, Chr$(0))
If pos > 0 Then
NetUser = Left$(NetUser, pos - 1)
Else
NetUser = NetUser
End If
Else
NetUser = ""
End If
End Function
Private Sub Auto_open()
u = NetUser
If u <> "" Then Application.UserName = u
End Sub
|
