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
|
