VBA User ermitteln der das Dokument geöffnet hat

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Markus

ich lade jetzt in Word ein Addin, das den Usernamen ermittelt und dann den
richtigen "Vornamen Namen" in die WordOptionen einstellt.
Das Addin lädt die Infos aus einer INI Datei vom Server.

Code Teilweise

Declare Function WNetGetUser Lib "mpr.dll" _
  Alias "WNetGetUserA" (ByVal lpName As String, _
     ByVal lpUserName As String, lpnLength As Long) As Long
Private Const NoError = 0

'Ermittelt die NTKennung des angemeldeten Users.
Public Function NTKennung()
  Const lpnLength As Integer = 255
  Dim status As Integer
  Dim lpName, lpUserName As String
  lpUserName = Space$(lpnLength + 1)
  status = WNetGetUser(lpName, lpUserName, lpnLength)
  If status = NoError Then
    lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
  End If
  NTKennung = lpUserName
End Function

Code eingefügt mit Syntaxhighlighter 2.1

Public Function BenutzerInfo()
  On Error GoTo ErrorHandler    ' Fehlerbehandlung aktivieren.
  CustomizationContext = NormalTemplate
  Pfad = CheckStandort
  Chk = Dir(Pfad)
  If Chk = "" Then
    INIDateiFehlt
    Exit Function
  End If
  Sektion = NTKennung
  Application.UserName = System.PrivateProfileString(FileName:=Pfad, _
    Section:=Sektion, Key:="UserName")
  Application.UserInitials = System.PrivateProfileString(FileName:=Pfad, _
    Section:=Sektion, Key:="UserInitials")
  Application.UserAddress = System.PrivateProfileString(FileName:=Pfad, _
    Section:=Sektion, Key:="UserAdress")
  NormalTemplate.Save
  Exit Function

ErrorHandler:    ' Fehlerbehandlungsroutine.
    Select Case Err.Number    ' Fehlernummer auswerten.
        Case 5986    ' Adressbuch kann nicht geschrieben werden
            Exit Function
        Case 4248
            Exit Function ' Kein Dokument geöffnet...
        Case Else
            Errortext = "mod_BenutzerInfo"
            Call MsgError(Err.Number, Err.Description, Errortext)
            Exit Function ' Andere Fälle hier bearbeiten...
    End Select
    Resume    ' Ausführung in der Zeile fortsetzen, die den Fehler ausgelöst hat.

End Function

Code eingefügt mit Syntaxhighlighter 2.1

Dadurch wird auch der Username von Excel eindeutig festgelegt.
Die User bekommen dadurch den richtigen Usernamen angezeigt.
Leider kann dieser Username über die Optione vom User auch geändert werden.
Wird aber bei jedem Word start wieder überschrieben.

Mit diesen Macros kann man in Excel feststellen ob das geöffnete Dokument von einem anderen User gesperrt ist?

http://support.microsoft.com/support/kb/articles/Q138/6/21.asp
XL: Macro Code to Check Whether a File Is Already Open

http://support.microsoft.com/support/kb/articles/Q291/2/95.ASP
XL2002: Macro Code to Check Whether a File Is Already Open

http://support.microsoft.com/support/kb/articles/Q213/3/83.ASP
XL2000: Macro Code to Check Whether a File Is Already Open

http://support.microsoft.com/support/kb/articles/Q184/9/82.ASP
WD97: VBA Function to Check If File or Document Is Open

The first 3 are all basically the same macro and the last uses pretty much
the same approach.

Gruß
bongartz

Beliebteste Forumthreads (12 Monate)

VBA User ermitteln der das Dokument geöffnet hat

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread