Hi zusammen,

ich baue gerade eine Mappe die folgende Funktionen erfüllen soll:

1. Beim Starten der Mappe soll nur die Hauptmappe [Dashboard] erscheinen (klappt)
2. Anlegen von Tabellenblättern, diese werden dann automatisch in eine Liste [Daten] übertragen (klappt)
3. Der Admin kann in der Liste Passwörter den einzelnen Abteilungen zuweisen MASTER-Passwort: 111 (klappt)

Ich möchte nun, wenn die Abteilung ihr Passwort eingeben nur deren Tabellenblatt geöffnet wird (Abteilung C, Blatt C, usw.)

Hier ist der Code:

Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim blatt As Worksheet

'Code OK
If Worksheets("Dashboard").Range("c3") = Worksheets("Daten").Range("e3") Then
Worksheets("c3").Activate
'MsgBox "Alles klar"

'Mastercode OK
ElseIf Worksheets("Dashboard").Range("c3") = Worksheets("Daten").Range("b3") Then

For Each blatt In Sheets
blatt.Visible = True
Next blatt

Else
MsgBox "NIX"

End If

Danke für Eure Hilfe und ein tolles WE.

Gruß Dieter

P.S.: hier noch die Datei:
https://www.herber.de/bbs/user/172599.xlsm