Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Benutzergruppen

Benutzergruppen
18.02.2005 14:21:40
thomas
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Benutzergruppen
UweD
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
Anzeige
AW: Benutzergruppen
18.02.2005 16:07:01
Thomas
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige