User auflisten
19.06.2007 12:54:27
Walter
wie kann ich die User, die Freigeschaltet sind, in einer MSGBOX auflisten?
Die stehen ja in der Zeile 17-21 !
Hier meine beiden Makros:
Function IstBerechtigtSpeichernV() As Boolean
Dim rng As Range, i As Integer
With Sheets("Eingang")
Set rng = .Range(.Cells(17, 16), .Cells(21, 16).End(xlUp))
End With
For i = 1 To rng.Rows.Count
If LCase(rng.Cells(i, 1)) = LCase(Environ("Username")) Then
IstBerechtigtSpeichernV = True
Exit Function
End If
Next
End Function
Sub BerechtigungSpeichern()
If Not IstBerechtigtSpeichernV Then
MsgBox "Sie haben keine Berechtigung, " & Chr(13) & Chr(13) _
& "die Datei ins Laufwerk ' V ' " & Chr(13) & Chr(13) _
& "zu speichern ! " & Chr(13) & Chr(13) _
, 48, " Hinweis !"
' MsgBox "Berechtigung für: " & Application.UserName & " "
Exit Sub
Else
End If
End Sub
Danke im voraus,
mfg Walter MB