Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1080to1084
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1080to1084
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zugriffsrechte für Windows-User mit Rechtetabelle

Zugriffsrechte für Windows-User mit Rechtetabelle
16.06.2009 14:13:51
Thorsten
Hallo liebe Excel-Gemeinde,
nach langem Suchen mal wieder nichts gefunden, was mich allein auf die Lösung bringt.
Ich möchte anhand einer Zuordnungstabelle auf einem separaten Blatt die Zugriffsrechte eingeloggter Windowsuser zu bestimmten Bereichen (mit Namen versehen) auf einem anderen Blatt zuordnen.
Dazu soll es noch einen Administrator geben der als einziger das Zuordnungsblatt sehen und bearbeiten darf.
Ich hab da mal was vorbereitet :)
https://www.herber.de/bbs/user/62471.xls
Vielen Dank im Voraus!
Gruss
Thorsten

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zugriffsrechte für Windows-User mit Rechtetabelle
16.06.2009 14:31:49
Matze
Hallo Thorsten.
Hatte mal eine sehr ähnliche Aufgabe.
Das Hauptproblem war die Abfrage des angemeldeten Benutzer.
Mit VBA.Environ("Username") kann man den User abfragen.
Z.B.:

Sub BenutzernameAbfragen()
Sheets(1).Range("A1").Value = VBA.Environ("Username")
End Sub


Ich nehme an, das ein Benutzer zur Zeit die Mappe geöffnet hat?
Andernfalls ginge da was mit "Arbeitsmappe Freigeben". Ist aber hackelig
Grundsäzlich bist Du mit der Tabelle schon richtig.
Über den Blattschutz, Blatt ausblenden und Gesperrte Zellen kann man die Berechtigungen dann festlegen.
Die Mappe muss erstmal komplett gesperrte Zellen haben und dann mit der Abfrage des Users die Berechtigungen setzten. Denn sonst kann ja einer die Makros deaktivieren und sich der Tabelle bedienen!
Hoffe Dir geholfen zu haben, Matze.

Anzeige
AW: Zugriffsrechte für Windows-User mit Rechtetabelle
16.06.2009 14:51:22
Thorsten
Ok - verstanden. Ich werde das mal für die Admingeschichte machen. Das Blatt soll dann IRGENDWIE nur sichtbar werden, wenn einer die Tabelle öffnet der als Admin deklariert ist.
Eigentlich werden die Anwender nicht versuchen den Schutz zu umgehen. Es soll im wensentlichen verhindert werden, dass Änderungen auch ausversehen in Bereichen gemacht werden, von denen einer keine Ahnung hat. In sofern wäre die Zuordnung der SChreibrechte über die Tabelle sehr hilfreich. Und da weiss ich leider nicht wie es geht.
AW: Zugriffsrechte für Windows-User mit Rechtetabelle
16.06.2009 15:50:58
Ramses
Hallo
Warum so kompliziert ?
Wenn du Office 2007 hast, dann "Überprüfen - Benutzer dürfen Bereiche bearbeiten" und dem Assistenten folgen.
Unter der Schaltfläche "Berechtigungen" kannst du spezifischen Windowsusern, für die natürlich ein Account lokal oder in der Domäne bzw. ActiveDirectory, vorhanden sein muss, zuweisen.
Gruss Rainer
Anzeige
AW: Zugriffsrechte für Windows-User mit Rechtetabelle
16.06.2009 16:15:15
Thorsten
Danke schonmal.
Jau - würde gehen, aber folgende Dinge stören mich daran:
  • ich MUSS Passwörter unabhängig von Windows vergeben

  • ich kann die User nicht so einfach definieren, wenn die gleiche Person auch mit andern Usern arbeitet (wie zu Hause zum Beispiel

    • Mir schwebt vor den Usernamen auszulesen und mit der Liste zu vergleichen. Hätte jemand einen Code für sowas?
    Danke!
    Quadratur des Kreises. Unmöglich
    16.06.2009 16:26:12
    Ramses
    Hallo
    "...# ich kann die User nicht so einfach definieren, wenn die gleiche Person auch mit andern Usern arbeitet (wie zu Hause zum Beispiel..."
    Dann nützt dir auch das auslesen des windows-Usernamen nichts.
    Woher willst du wissen wie der User auf dem anderen PC heisst wenn er zuhause arbeitet oder der User an einem anderen PC arbeitet mit einem anderen angemeldeten Windows User ?
    Dann mach die Abfrage über eine integrierte Userform in der der User einen Namen und das Passwort angeben muss. Das kannst du in deiner hinterlegten Tabelle abfragen und dann die entsprechenden Bereiche anzeigen
    Gruss Rainer
    Anzeige
    AW: Quadratur des Kreises. Unmöglich
    16.06.2009 17:06:28
    Thorsten
    Hi,
    naja - wenn jemand mit einem anderen Rechner arbeiten will, dann wird er mir den User mit dem er das macht sicher mitteilen können. Die Tabelle wird nicht von 100 Leuten oder so bearbeitet.
    Lassen wir die Spielerei mal weg. Zur Erhöhung der Akzeptanz einer solchen Excel-Liste, wie sie ja immer gern und leicht verschrieen werden, wäre die Arbeit ohne die Eingabe eines PW wirklich toll.
    Gibts dazu eine Möglichkeit? Die Quadratur des Kreises ist das glaube ich nicht ... :). Die Attribute die dazu nötig sind müssten sich doch mit VBA beschreiben lassen.
    Danke und Gruss
    Thorsten
    Anzeige
    AW: Quadratur des Kreises. Unmöglich
    16.06.2009 17:35:32
    Ramses
    Hallo
    "...Gibts dazu eine Möglichkeit?..."
    So wie du es willst (Unterschiedliche Benutzer/Unterschiedliche Bereiche bearbeiten),... nein.
    Da hilft auch VBA nicht.
    Es muss schon eine eindeutige Identifikation/Erlaubnis da sein.
    Gruss Rainer
    AW: Quadratur des Kreises. Unmöglich
    16.06.2009 17:39:16
    Thorsten
    Schade ... aber danke an alle.
    Ich gebe noch nicht auf und versuche mir eine Lösung zu stricken ... sollte ich was finden poste ich das hier ... :)
    Gruss
    Thorsten
    AW: Zugriffsrechte für Windows-User mit Rechtetabelle
    17.06.2009 10:36:40
    Thorsten
    Hab mir nun selbst geholfen. Vielleicht interessant für andere.
    Diesen Code hab ich mir zusammen geklaut.
    
Sub Zugriffsrechte()
Dim user, rechte As String, i As Integer
user = Environ("UserName")
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 3).Value = user Then
rechte = Cells(i, 4)
Range(rechte).Locked = False
End If
Next i
Sheets("Liste").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True,  _
AllowFiltering:=True
End Sub


    Hier ist das File:
    https://www.herber.de/bbs/user/62502.xls
    Danke für die Anregungen.
    Gruss
    Thorsten

    Anzeige

    Links zu Excel-Dialogen

    UserForm

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige