Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1592to1596
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
1592to1596
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausblenden von Tabellenblatt anhand Benutzername

Ausblenden von Tabellenblatt anhand Benutzername
18.11.2017 09:18:24
Tabellenblatt
Hallo Excel-Benutzer
ist es möglich ein Zellenblatt anhand eines Benutzernamens beim Start ein und Auszublenden: Also wenn beutzer Hans Müller oder hans meier das Dok öffnet, das Tabellenblatt "Einstellungen" ausblenden, sonst wenn stefan maier oder käthe liese dann einstellungen einblenden.Berechtigungen würde ich dann gerne auf dem Einstellungsblatt vergeben, indem ich die einzelnen benutzer dort in einen zellbereich eingebe. Zb. A1:A5 alle berechtigten benutzer, b1:B5 alle nicht berechtigten benutzer.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausblenden von Tabellenblatt anhand Benutzername
18.11.2017 09:45:51
Tabellenblatt
Ja dass geht falls es um Excel geht und nicht Dokument.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster, Test, Mappe, Beispiel, Fehler, Kalender usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: Ausblenden von Tabellenblatt anhand Benutzername
18.11.2017 09:49:47
Tabellenblatt
Hallo Andy,
das würde ich über die entsprechenden Windows Anmeldenamen machen.
Private Sub Workbook_Open()
'Windows Benutzername
Select Case Environ("Username")
'Einblenden bei
Case "stefan maier", "käthe liese"
Worksheets("Einstellungen").Visible = True
'bei allen anderen wird ausgeblendet
Case Else
Worksheets("Einstellungen").Visible = False
End Select
End Sub

Gruß Werner
AW: Ausblenden von Tabellenblatt anhand Benutzername
18.11.2017 10:04:04
Tabellenblatt
Werner, das hat geklappt. Super danke, jetzt nur noch die Frage, ob ich für die berechtigten einen zellbereich angeben kann, wo die alle eingetragen werden?
Anzeige
AW: Ausblenden von Tabellenblatt anhand Benutzername
18.11.2017 10:08:04
Tabellenblatt
Hallo Andy! 
Private Sub Workbook_Open()
If Application.Match(Environ("Username"), Worksheets("Einstellungen").Range("A1:A5"), 0) Then
Sheets("Einstellungen").Visible = xlVeryHidden
ElseIf Application.Match(Environ("Username"), Worksheets("Einstellungen").Range("B1:B5"), 0)  _
Then
Sheets("Einstellungen").Visible = True
End Select
End Sub
Gruß Gerd
AW: Ausblenden von Tabellenblatt anhand Benutzername
18.11.2017 10:17:58
Tabellenblatt
Dankeschöööön mal wieder:) hat geklappt :)
Kann geschlossen werden.
AW: Ausblenden von Tabellenblatt anhand Benutzername
18.11.2017 12:35:15
Tabellenblatt
Doch noch ein Fehler... Er sagt immer End select ohne Case ?
mir würde der Code auch voll ausreichen, wenn man nur die berechtigten angibgt in einem Bereich, und für alle anderen ausgeblendet ist. Wie kann man das noch umschreiben?
Anzeige
AW: Ausblenden von Tabellenblatt anhand Benutzername
18.11.2017 20:13:58
Tabellenblatt
Hallo Andy,
im Code von Gerd ist ein End Select übrig geblieben, das gehört da nicht hin.
Hier noch eine Version mit CountIf: 
Private Sub Workbook_Open()
With Worksheets("Tabelle1") 'Blatt mit den berechtigen Benutzern ggf. anpassen
If WorksheetFunction.CountIf(.Range("A1:A5"), Environ("Username")) > 0 Then
Worksheets("Einstellungen").Visible = True
Else
Worksheets("Einstellungen").Visible = xlVeryHidden
End If
End With
End Sub
Übrigens bräuchtest du dann auch noch ein Workbook bevor close Ereignis, damit gesichert ist, dass das Blatt Einstellungen beim Schließen der Datei auch immer ausgeblendet wird. 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Einstellungen").Visible = xlVeryHidden
End Sub

Gruß Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige