Benutzergruppen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Benutzergruppen
von: thomas
Geschrieben am: 18.02.2005 14:21:40
Hallo Alle
wie kann ich die Benutzergruppe ermitteln zu dem ein User gehört.
Ich kann mit folgenden Befehl den Usernamen ermitteln.
name = Environ("username")
Jetzt müßte ich über eine große Select Case Anweisung prüfen wer
was machen kann. Dies bedeutet einen großen Pflegeaufwand. Besser
wäre es wenn ich ermittel könnte zu welche Gruppe er gehört, und
danach die Berechtigungen vergebe.
Thomas

Bild

Betrifft: AW: Benutzergruppen
von: UweD
Geschrieben am: 18.02.2005 15:56:03
Hallo Thomas
so ginge es:
Die User werden in einer Tabelle verwaltet.
Tabelle1
 AB
1UserGroup
2ABCA
3CDEA
4Heidi 
5WernerC
6HennerB
 

Beim öffnen der Mappe wird dann die Gruppe ermittelt:


      
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 



Mustermappe: https://www.herber.de/bbs/user/18294.xls
Gruß UweD
Bild

Betrifft: AW: Benutzergruppen
von: Thomas
Geschrieben am: 18.02.2005 16:07:01
Danke für diesen Tip
ich will die Gruppen nicht in einer Tabelle verwalten. Wir haben auf unseren Server
eine Gruppenverwaltung für die einzelnen Verzeichnise. Wenn der User zur Gruppe
gehört die Schreibe/Lese Rechte auf diesen Verzeichnis hat soll das Dokument in lese schreibe Modus möglich sein.
Thomas
 Bild

Beiträge aus den Excel-Beispielen zum Thema "bedingte Formatierung"