Kürzel des USERS in Fusszeile
02.02.2004 08:19:11
urs
im Gespräch mit einem guten Excel-Player wurde ich gebeten den Code und mein Anliegen erneut zu posten.
Dies ist Hiermit geschehen.
Problem:
Eine Excellvorlage wird von mehreren Usern aufgerufen. Beim Aufrufen der Vorlage soll in die linke Fusszeile das
Erstellungsdatum und der Kürzel des Users geschrieben werden.
Das Datum bekomme ich beim Aufstarten rein aber nicht den Kürzel.
Wo klemmt's? Vielen dank für Eure Hilfe.
Gruss Urs
IN DER ARBEITSMAPPE STEHT:
Private Sub Workbook_Open()
If footer_left = "" Then
Call ShowUserName
End If
End Sub
IM MODUL STEHT:
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Sub ShowUserName()
Dim Buffer As String * 100
Dim BuffLen As Long
Dim Signatur As String
Dim Sign As String
BuffLen = 100
GetUserName Buffer, BuffLen
Signatur = Left(Buffer, BuffLen - 1)
If Signatur = "Urs Stäuble" Then 'angemeldete USER bei LOGIN
Sign = "Stä"
End If
If Signatur = "Bernhard Bürki" Then
Sign = "Bür"
End If
For Each ws In Worksheets
ws.PageSetup.LeftFooter = Format(Date, "d.m.yyyy") & " Erst.: " & Sign
Next ws
Application.ScreenUpdating = True
End Sub