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"