Spalten benutzterabhängig freigeben

Hallo liebe Forumsmitglieder,

ich habe eine Datei mit mehreren Tabellen. (Momentan 16). In 14 dieser Tabellen sollen nun immer wieder andere Spalten für verschiedene Personen zur Bearbeitung freigegeben werden. Habe es auch schon mit "Bearbeiten von Bereichen zulassen" probiert. Beim Testen konnte ich trotzdem die Bereiche bearbeiten, obwohl ich nicht eingetragen war. Daher die Idee es über VBA zu lösen.

Beispiel:
Tabelle 1
Spalten C-D darf Person A bearbeiten,
Spalten G-H Personen B,C und D,
Spalten E-G Personen A und B

Tabelle 2
Spalten B-E darf Person B bearbeiten
Spalten G-H Personen X und Y,
Spalten F-G Personen A und B

usw.

Jede Tabelle hat eine unterschiedliche Anzahl von Spalten und die entsprechenden Spalten sollen von verschiedenen Personen bearbeit werden dürfen. Alle anderen Spalten müssen schreibgeschützt werden.

Und es gibt Personen, die alles bearbeiten dürfen.

Wenn es geht, würde ich das Freigeben der Spalten mit dem Anmeldenamen verknüpfen, so das kein Passwort erforderlich ist. Könnte mir aber auch vorstellen, eine Tabelle anzulegen, mit den Personen und den dazugehörigen Passwörtern.

Ich lade mal eine ganz vereinfachte Datei dazu hoch. https://www.herber.de/bbs/user/163825.xlsx

Kann mir jemand helfen? Das wäre super. Ich hoffe ich habe mich halbwegs verständlich ausgedrück.´t.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim bolDARF As Boolean Select Case LCase(Environ("username")) Case "lieschen.müller" Select Case Target.Column Case 2 To 5, 12, 13, 20, 21: bolDARF = True End Select Case "franz.schmidt", "egon.meier" Select Case Target.Column Case 8, 9, 15, 17: bolDARF = True End Select Case "darf.alle": bolDARF = True 'etc. End Select If Not bolDARF Then Application.Undo End Sub

Hallo Tanri!

Für eine bessere Verwaltung hab ich die Namen u Sheets u. Spalten in einen Tabellenbereich gepackt (der auch später versteckt/ geschützt werden könnte)

-	A	B	C
1
2	adam	Sorte 1	1,2,3,4
3	adam	Sorte 2	2,4,6,8
4	beate	Sorte 1	4,5,6
5	beate	Sorte 2	2,3,4,6
6	Cäsar	Sorte 1	2,5,8
7	Cäsar	Sorte 2	1,3,5,7

Hier wird jeder Name verglichen, geprüft und ggf. die Eingabe rückgängig gemacht.

Der Code ist kurz u. knackig:

Ins Modul des Arbeitsblattes:

Private Sub Worksheet_Change(ByVal Target As Range)



    zulässig ActiveSheet, Target



End Sub

Ins allgemeine Modul

Sub zulässig(ws As Worksheet, ziel As Range)



    Dim name As String

    Dim i As Single

    Dim erlaubt As Boolean

    

    name = Application.UserName

    name = "adam" 'Eintrag entfernen

    

    With Sheets("Startseite")

        For i = 1 To .UsedRange.Rows.Count

            If .Cells(i, 1) = name And .Cells(i, 2) = ws.name Then

                erlaubt = InStr(.Cells(i, 3), ziel.Column) > 0

                Exit For

            End If

        Next i

    End With

    

    If Not (erlaubt) Then

        With Application

            .EnableEvents = False

            .Undo

            .EnableEvents = True

        End With

    End If

End Sub

Gruß, MCO

Private Sub Worksheet_Change(ByVal Target As Range) Dim bolDARF As Boolean On Error GoTo ERREXIT Application.EnableEvents = False Select Case LCase(Environ("username")) Case "lieschen.müller" Select Case Target.Column Case 2 To 5, 12, 13, 20, 21: bolDARF = True End Select Case "franz.schmidt", "egon.meier" Select Case Target.Column Case 8, 9, 15, 17: bolDARF = True End Select Case "darf.alle": bolDARF = True 'etc. End Select If Not bolDARF Then Application.Undo ERREXIT: Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Spalten benutzterabhängig freigeben

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten benutzterabhängig freigeben

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread