anbei mein Makro, es soll prüfen ob der "Richtige" Anwender angemeldet ist.
Leider klappt dies nicht, Warum ?
Sub walter2()
'MsgBox Application.UserName
'---------- erst prüfen, welcher Anwender --------------
Dim WALTER, NORBERT
Application.UserName = WALTER
Application.UserName = NORBERT
If WALTER <> "" Then
MsgBox "Anwender: WALTER vorhanden "
Else
MsgBox "Anwender: WALTER nicht vorhanden ! "
End If
End Sub
gruß walter