Excel VBA Benutzerbeschränkung auf Tabellenblätter

Nadine · 2024-04-08T07:22:58+00:00

Hallo Zusammen, Leider benötige ich für den letzten Schliff noch einige Anpassungen, die mit meinem bisherigen Wissens nicht so funktionieren wie ich will. Kurz zur Excel: User öffnet diese Datei, Anmeldefenster öffnet sich, wo dann jeweils der Benutzername ausgewählt werden soll, wer man ist (mit Passwort), das ist wichtig für Datenschutz bzw. soll nicht der eine Bearbeiter die Daten des anderen Bearbeiters sehen können. User (außer ADMIN) bekommt nur die Startseite zu sehen, wo er dann auf seine Kachel (Makro hinterlegt) klickt und sich eine Userform öffnet, er gibt dann seine Daten dort ein und speichert, im Hintergrund kopiert sich dann immer die "aktuellen" Daten in den Admin Reiter rein. Für den ADMIN ist alles sichtbar. Nun mein Problem: - User meldet sich an und kann trotzdem auch die anderen Kacheln mit den Makros ausführen -> soll bitte nicht sein, sondern er DARF nur seine eigene Kachel nutzen - Weiterhin soll auf der Startseite die Zeilen 30:38 ausgeblendet werden, da dies nur für den ADMIN sichtbar sein soll - Blattschutz soll auch auf der Startseite sein, dass das Makro trotzdem funktioniert - In den Tabellenblättern der User soll immer die Spalten G:I ausgeblendet sein, weil die nur für den Kopiervorgang in das Adminblatt erforderlich sind (Hintergrund ist, das in der Userform die Tabelle angezeigt wird und somit auch die Spalten G:I , die den User nicht interessieren Da die Datei leider viel zu groß mit und ohne Makro ist, müsste man Punkt für Punkt durchgehen und ich würde den jeweiligen Code und Ansicht schicken. ;-( Ich hoffe mir kann zeitnah einer helfen. Lieben Dank Nadine

Hallo zusammen,

lieben Dank für eure Hilfen. Ich hab das soweit eingebaut, allerdings hab ich mich glaube grade etwas verrannt im Code :-(
Ich habe in dem Tabellenblatt "Zugriffsrechte" die Benutzernamen mit Passwörter, was für den Login (Userform) benötigt wird drin, sowie von D10:D13 die Benutzergruppe, was ich nun gerne abfragen würde, um die Rechtecke (was meine Kacheln sind) anzusprechen, auf denen das Makro verwiesen ist, um die Userform je Benutzer zu öffnen.
Ich möchte aber gerne alle Rechtecke sichtbar belassen, da ich separat ein Rechteck mit dem Makro drüber gelegt habe, was dann jeweils ein- und ausgeblendet wird, wenn der korrekte Benutzer dazu sich angemeldet hat.

Private Sub Buttonanmelden_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
Dim rng As Range
On Error GoTo Ende

'Benutzername suchen
Set rng = Range("tblZugriffsrechte[Benutzername]").Find(what:=txtBenutzernamen1.Value, lookat:=xlWhole)

'Prüfen, ob Benutzername angelegt
If rng Is Nothing Then

'Benutzer benachrichtigen
MsgBox "Dieser Benutzername ist nicht angelegt."

'Prozedur beenden
Exit Sub

End If

'Prüfen, ob Passwort korrekt ist
If rng.Offset(0, 1).Value > txtPasswort.Value Then

'Benutzer benachrichtigen
MsgBox "Das Passwort ist nicht korrekt."

'Prozedur beenden
Exit Sub

End If

'Prüfen, ob Benutzer Admin ist
If rng.Offset(0, 2).Value = "Admin" Then

End If

If rng.Offset(0, 2).Value = "Admin" Then

For Each ws In ThisWorkbook.Worksheets

'Tabellenblatt einblenden
ws.Visible = xlSheetVisible

If rng.Offset(0, 2).Value = "Admin" Then

For Each blaetter In ThisWorkbook.Sheets
For Each texte In blaetter.Shapes

'erst mal einblenden
texte.Visible = True
Next
Next
End If
Next ws

'_________________________________________________StQ_____________________________________________________________

ElseIf rng.Offset(0, 2).Value = "StQ" Then
Call Benutzermodus

'Schleife über alle Tabellenblätter
For Each ws In ThisWorkbook.Worksheets

'prüfen, ob Tabellenblatt TPA ist
If ws.Name > "Admin" And ws.Name > "Startseite" Then

'Tabellenblatt einblenden
ws.Visible = xlSheetVisible

End If
If rng.Offset(0, 2).Value = "StQ" Then
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False

End If
Next ws

'Schleife ueber alle Blaetter
For Each blaetter In ThisWorkbook.Sheets
For Each texte In blaetter.Shapes

'Wenn der Name des Shapes in der Liste ist, dann
If InStr(1, UCase(Sheets("Zugriffsrechte").Cells(0, 4).Value), UCase(texte.Name)) = "StQ" Then

Dim shShape As Shape
Dim strName As String

texte.Shapes("TPA").Visible = False
texte.Shapes("ZivPers").Visible = False

Select Case Target
Case 1
texte.Shapes("StQ").Visible = True

End Select

'Ende Wenn der Name des Shapes in der Liste ist, dann
End If

Next
Next

Ich hoffe, ihr könnt auch ohne Datei das Wirrwarr entzerren. Ich seh den Wald voller Bäume nicht mehr, da ich 4 Benutzergruppen habe und den Code somit entsprechend anpassen muss.

Danke sehr
Nadine

Hallo Oberschlumpf,

danke für deine Kritik.

Blattschutz war ein Gedanke, das wenn man den VBA Code schreibt und einschränkt, dass vielleicht mit Einstellen des Blattschutzes vielleicht irgendwas nicht funktioniert. Wenn es aber aus deiner Sicht nichts gibt, dann ignoriere diesen Punkt.

Die Testdatei hab ich schon so weit runtergebrochen, dass diese immer noch mit über 7.000 KB nicht hochgeladen werden kann. Daten stehen keine drin, aber es gibt eine Userform zum Anmelden beim Öffnen der Excel, was relevant ist für meine Anfragen, dann die Buttons auf der Startseite mit dem Makro dahinter, wo ebenfalls der Code zum Öffnen der Userform drin steht. Die Datei hat selbst nur die "Startseite" und das Tabellenblatt "Zugriffsrechte", was für den Code zur Abfrage des Logins benötigt wird.

Ich werde einfach mal die übrigen Codes hier einfügen, vielleicht hilft das.

Private Sub Buttonanmelden_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)

'Variable dimensionieren
Dim rng As Range

'Benutzername suchen
Set rng = Range("tblZugriffsrechte[Benutzername]").Find(what:=txtBenutzernamen1.Value, lookat:=xlWhole)

'Prüfen, ob Benutzername angelegt
If rng Is Nothing Then

'Benutzer benachrichtigen
MsgBox "Dieser Benutzername ist nicht angelegt."

'Prozedur beenden
Exit Sub

End If

'Prüfen, ob Passwort korrekt ist
If rng.Offset(0, 1).Value > txtPasswort.Value Then

'Benutzer benachrichtigen
MsgBox "Das Passwort ist nicht korrekt."

'Prozedur beenden
Exit Sub

End If

'Prüfen, ob Benutzer Admin ist und Bearbeitungsleiste anzeigen

If rng.Offset(0, 2).Value = "Admin" Then
Call Entwicklermodus

End If

'Prüfen, ob Benutzer Admin ist
If rng.Offset(0, 2).Value = "Admin" Then

'Schleife über alle Tabellenblätter
For Each ws In ThisWorkbook.Worksheets

'Tabellenblatt einblenden
ws.Visible = xlSheetVisible

If rng.Offset(0, 2).Value = "Admin" Then

End If

Next ws

ElseIf rng.Offset(0, 2).Value = "ZivPers" Then
Call Benutzermodus

'Schleife über alle Tabellenblätter
For Each ws In ThisWorkbook.Worksheets

'prüfen, ob Tabellenblatt TPA ist
If ws.Name > "Admin" And ws.Name > "StQ" And ws.Name > "TPA" And ws.Name > "Dashboard" And ws.Name > "Zugriffsrechte" And ws.Name > "Hilfstabellen" Then

'Tabellenblatt einblenden
ws.Visible = xlSheetVisible

End If
If rng.Offset(0, 2).Value = "ZivPers" Then
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False

End If
Next ws
End If

Unload Me

End Sub

Private Sub UserForm_Initialize()

With UfLogin.txtBenutzernamen1

.AddItem "Admin"
.AddItem "ZivPers"

End With

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then 'Cancel = True

ThisWorkbook.Close SaveChanges:=False
End If
End Sub

Button Makro:

Sub ZivPers_Kachel()

UfÜbersichtZivPers.Show (Userform)

End Sub

Hier ist ja nun die Frage, wie schreibe ich den Code, dass die Person die beim Login "ZivPers" ausgeführt hat, nun nur genau diese ZivPers_Kachel ausführen KANN und alles andere nicht?

Dankeschön
Nadine

	A	B	C	D	E
1	Name	Passwort	Elemente	Element1	Element2
2	willi	geheim	Textbox 1;Textbox 2;	Textbox 1	Textbox 2

Zelle	Formel
C2	=TEXTVERKETTEN(";";WAHR;D2:Q2)&";"

Excel VBA Benutzerbeschränkung auf Tabellenblätter

Forumthread: Excel VBA Benutzerbeschränkung auf Tabellenblätter

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Excel VBA Benutzerbeschränkung auf Tabellenblätter

Forumthread: Excel VBA Benutzerbeschränkung auf Tabellenblätter

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread