Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblatt unter bestimmten Bedingungen freigeben

Forumthread: Tabellenblatt unter bestimmten Bedingungen freigeben

Tabellenblatt unter bestimmten Bedingungen freigeben
15.08.2024 08:23:17
BwFHotte
Hallo liebe Gemeinde ,
Ich habe eine Idee und brauche mal Schwarmwissen und Hilfe bzw.auch anderen Ideen .
Ich habe eine Datei mit 50 Tabellenblätter (Jeder Mitarbeiter hat sein eigenes ).
Ich habe mir ein Deckblatt erstellt wo mittels Dropdown der Name angewählt wird und dann bei ckick auf den Button das Blatt aufgemacht wird .Alle anderen sind verborgen .
Jetzt ist es möglich ,das jeder des anderen Blattes öffnen kann und dort Änderung durchführen kann.

Ich würde gerne etwas haben wollen ,dass nur die Tabelle zum jeweiligen Mitarbeiter geöffnet wird.

Meine Idee
Ich würde in jedes Blatt in A1 die Personalnummer schreiben,und somit wird nur das Blatt geöffnet ,was der Personalnummer entspricht .

Ausnahme natürlich der Admin und einige Schichtleiter.
Im Prinzip eine Auswahl von 4 bis 5 Personalnummern die ebenfalls öffnen können .

Für weitere Ideen und Hilfe wäre ich euch sehr dankbar


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel geeignet?
15.08.2024 08:44:50
Fennek
Hallo,

Excel ist eigentlich für solche Aufgabe ungeeignet, aber es ist schon möglich die Latte etwas höher zu hängen.

Als Idee

- Daten in einer xlsx, alle sheets bis auf Deckblatt xlVeryHidden
- VBA muss möglich sein
- Für jeden MA eine "Personal.xlsb" installieren, die nur das Blatt des MA freischaltet


Es kommern öfter solche Fragen, aber sehr selten eine Umsetzung.

mfg
Anzeige
AW: Excel geeignet?
15.08.2024 11:13:15
BwFHotte
Hallo Zusammen,

Fennek danke für Deine Idee, aber das wird wohl an den Kollegen scheitern.

Eben beim Laufen hatte ich eine Idee die sogar im kleinen klappt, ich denke das wird was.

Ich mache auf meiner Liste (wegen dropdown) hinter dem Namen noch die Persnummer. Die wird dann mittels Sverweis auf eine Zelle gezogen.
Jetzt lasse ich mir beim Starten der Datei die Persnummer neben dem Sverweis auslesen.

benutze dann den Code
Private Sub CommandButton1_Click()

If Range("A2") = Range("B2") Then
ThisWorkbook.Sheets(Range("a1").Value).Select
Else
MsgBox "Du kommst hier nicht rein", vbOKOnly
End If
End Sub

somit wird nur bei Übereinstimmung geöffnet.
das sollte gehen!

Anzeige

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige