| Tabelle1 | |||||||||||||||||||||
| |||||||||||||||||||||
Private Sub Workbook_Open()
'gehört in Diese Arbeitsmappe
Dim User$, Group$, TB, c
Set TB = ActiveWorkbook.Sheets("Tabelle1") ' Bitte anpassen
'++++++++++
'User = Environ("Username")
User = "Werner" ' nur zum Testen
'++++++++++
If User = "" Then User = "Gast"
With TB.Range("a:a")
Set c = .Find(User, Lookat:=xlWhole, LookIn:=xlValues)
If Not c Is Nothing Then
Group = c.Offset(0, 1)
If Group = "" Then
MsgBox User & " gefunden, aber ohne Gruppe"
Exit Sub
End If
End If
End With
Select Case Group
Case "A" 'Superuser
MsgBox User & " ist Superuser"
' mach was du möchtest
Case "B" ' Naja
MsgBox User & " ist MöchtegernProfi"
Case "C" ' Gäste
MsgBox User & " , lass es lieber"
Case Else
MsgBox User & " nicht gefunden"
End Select
End Sub