Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1904to1908
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
1904to1908
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Benutzer dürfen Bereiche bearbeiten-VBA

Benutzer dürfen Bereiche bearbeiten-VBA
21.11.2022 11:30:50
blistix87
Hallo zusammen,
ich suche nach einer VBA-Umsetzung für die Funktion "Benutzer dürfen Bereiche bearbeiten".
Hintergrund ist ein Personalplan, in dem die Urlaubsliste digital "unterschrieben" werden soll. Dabei soll Excel den Windows-Anmeldenamen auslesen und die entsprechende Zeile für den jeweiligen Benutzer freigeben, alles andere aber gesperrt lassen.
Die Einstellung über die normale Excel-Funktion ist mir geläufig. Da sich aber doch immer wieder Personalrochaden ergeben würde ich mir die Arbeit gerne erleichtern und dann nur den Code entsprechend anpassen müssen.
Danke für Eure Mithilfe und viele Grüße
Bill

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Benutzer dürfen Bereiche bearbeiten-VBA
21.11.2022 11:59:19
Oberschlumpf
Hi,

Sheets("Blattname").Unprotect passwort
Sheets("Blattname").Range("DeineZelleFürUsername").Value = Environ("username")
Sheets("Blattname").Protect passwort
anstelle von "Blattname",passwort und "DeineZelleFürUsername" musst du natürlich die jeweils richtigen Werte eintragen.
Hilfts?
Nein?
Dann zeig bitte per Upload eine Bsp-Datei mit allem, was erforderlich ist.
Ciao
Thorsten
AW: Benutzer dürfen Bereiche bearbeiten-VBA
21.11.2022 12:12:43
blistix87
Danke für die schnelle Antwort.
Der Kern ist getroffen. Leider springt die Abfrage nicht auf den Usernamen an. Das Feld ist also auch für den User zu bearbeiten der nicht bei environ in Klammern steht.
Viele Grüße
Bill
Anzeige
AW: Benutzer dürfen Bereiche bearbeiten-VBA
21.11.2022 12:15:48
blistix87
https://www.herber.de/bbs/user/156291.xlsx
hier noch die Beispieldatei.
in der Reihe "Unterschrift Mitarbeiter" sollen dann die verschiedenen Benutzer schreiben können oder auch nicht.
AW: Benutzer dürfen Bereiche bearbeiten-VBA
21.11.2022 12:23:54
Oberschlumpf
aha, da is ja doch ne Bsp-Datei, ok.
Aber WAS genau soll nun WANN genau und WO genau geschehen?
Mein Username z Bsp ist "UserGobi"
so, ich öffne deine Datei; direkt nach Öffnen wird mein Username ausgelesen
Woher "weiß" nun die Datei...
- WO darf ich schreiben?
- DARF ICH überhaupt in der Datei schreiben?
...DAS versteh ich noch nicht...
deine Bsp-Datei hatürbrigens null Einträge, weil deine Formeln mit einer Datei verknüpft sind, die uns nicht zur Verfügung steht
(aber vllt ist das für uns ja auch unwichtig, ich weiß es nicht)
Anzeige
AW: Benutzer dürfen Bereiche bearbeiten-VBA
21.11.2022 12:28:38
blistix87
Die Einträge sind tatsächlich unwichtig.
Es geht mir um die Reihe "Unterschrift Mitarbeiter" also 36. Hier soll der Mitarbeiter mit dem Usernamen "Meier" in der Zelle B36 schreiben dürfen, sonst nirgends.
Außerdem "Bauer" in C36, sonst nirgends, usw.
Ich will quasi die Funktion "Benutzer dürfen Bereiche bearbeiten" mit VBA-Code ersetzen, weil mir das bei Änderungen einiges an Zeitersparnis bringen würde.
Viele Grüße
Bill
AW: Benutzer dürfen Bereiche bearbeiten-VBA
21.11.2022 12:42:27
Oberschlumpf
aha? ähhhh?
und WIE soll die DAtei/der Code wissen, dass "Meier" nur in B36 reinschreiben darf?
nirgendwo in der Datei steht der Name "Meier"
Und....ist "Meier" dann auch - wirklich - der Anmeldename von Meier?
Mein Anmeldename ist ja "UserGobi", aber natürlich heiße ich anders.
Brauchts da vielleicht ein zusätzliches, von mir aus ausgeblendetes, Tabellenblatt, in dem in der einen Spalte - alle! - Anmeldenamen der Leute stehen, die mit der Datei arbeiten - und in der Nachbarspalte halt die zugehörigen Realnamen?
Denn SO wäre es z Bsp möglich:
- nach Öffnen der Datei mit Environ Anmeldename auslesen
- Anmeldename in neuer Tabelle so lange suchen, bis gefunden - jetzt Eintrag (Realname) aus Nachbarspalte auslesen
- ach ja, in der eigentlichen Kalendertabelle fehlts ja auch noch, dass keiner weiß, dass "Meier" nur in B36 schreiben darf
- kann es sein, dass du vergessen hast, in Zeile 3 die (Real)Namen aller Leute einzutragen?
Vielleicht hilft es, wenn du uns eine neue Bsp-Datei mit allen erforderlichen Einträgen zeigst, wenn ich mit meinen Vermutungen irgdwo recht habe.
Anzeige
AW: Benutzer dürfen Bereiche bearbeiten-VBA
21.11.2022 12:48:37
blistix87
Das wäre ja gerade die Anforderung an den Code.
Mit der normalen Funktion "Benutzer dürfen Bereiche bearbeiten" kann ich ja gerade eine Zelle auswählen und über Berechtigungen den jeweiligen User hinterlegen der die Zelle ohne Passworteingabe beschreiben darf.
Wenn das möglich ist, indem ich ein zusätzliches Blatt mache oder die Usernamen irgendwo hinterlege - sehr gerne.
Für mich waren die Realnamen und die Benutzernamen erstmal irrelevant, deshalb auch die leere Datei. Zumindest nach meinem Verständnis hatte die Datei auch keine Einträge benötigt.
AW: Benutzer dürfen Bereiche bearbeiten-VBA
21.11.2022 12:52:38
Oberschlumpf
ok, da kann zumindest ich nich weiterhelfen.
wenn ich Username auslese, MUSS ich eine Vergleichstabelle haben, um an den Realnamen zu kommen, damit ich dann mit Realname in Kalendertabelle die richtige Spalte finde.
weiter viel Erfolg!
Anzeige
noch offen...
21.11.2022 12:53:24
Oberschlumpf
...für andere Helfer, die besser helfen können als ich
AW: noch offen...
23.11.2022 12:15:51
Andreas
Der Code macht genau das was gefordert wurde, entsprechend nur die richtigen Dinge einfügen (Passwort etc.)
Diesen Code in "DieseArbeitsmappe"

Private Sub Workbook_Open()
Dim TB As Worksheet, RNG As Range
Set TB = Sheets("Tabelle1")
TB.Unprotect "ABC"
'Reset
TB.Cells.Locked = True
Select Case LCase(Environ("Username"))
Case "meier"
TB.Range("A1").Locked = False
Case "bauer", "weber", "schmidt"
TB.Range("B1").Locked = False
Case "mrx"
' Bereich
TB.Range("A1:C1").Locked = False
Case "admin"
' alles
TB.Cells.Locked = False
Case Else
'mach nix
End Select
TB.Protect "ABC"
End Sub

Anzeige
AW: Benutzer dürfen Bereiche bearbeiten-VBA
21.11.2022 12:17:31
Oberschlumpf
versteh ich nicht, denn bei Protect = True und natürlich "DeineZelleFürUsername".Locked = True ist sowohl Blattschutz aktiv, als auch "DeineZelleFürUsername" darf nicht bearbeitet werden.
Aber ok, eine Bsp-Datei zeigst du ja nicht. Da bin ich dann auch überfragt.
Weiter viel Erfolg!

28 Forumthreads zu ähnlichen Themen

Benutzer dürfen Bereiche bearbeiten
Eggi

Hallo Zusammen
Habe eine grundsätzliche Frage:
Einige Tabellen sind mit (Benutzer dürfen Bereiche bearbeiten) versehen und der Rest ist gesperrt.
Diese Datei läuft unter Excel 2003 einwandfrei. Lasse ich die gleiche Datei unter Excel 2000 laufen erhalte ich Fehler, dass nicht auf di...
12.08.2008 20:43:52
Thread-ID: 1001307
8 Beiträge
Anzeige
Nicht gesperrte Zellen farblich hinterlegen
Loewelutz

Liebe Ex(cel)perten,
kleines Problem mit der Bitte um Hilfe:
Zur besseren Übersicht möchte ich in einer Tabelle nicht geperrte Zellen mit einer bedingten Formatierung farblich hinterlegen. Bei der Suche habe ich eine Formel für die Markierung gesperrter Zellen gefunden:
=ZELLE("Prot...
06.12.2009 20:04:13
Thread-ID: 1122093
5 Beiträge
Benutzer dürfen Bereiche bearbeiten
Reinhard

Hallo Wissende,
diese Option war mir neu. Jetzt habe ich das ausprobiert und mir selbst erlaubt in einem gesperrten Blatt etwas zu tun.
Diesen Vorgang habe ich als Makro aufgezeichnet, leider stand nix drin :-(
Gibt es eine Möglichkeit dies "auszulesen"?
Also welcher Benutzer wa...
17.06.2011 22:10:17
Thread-ID: 1218730
3 Beiträge
Anzeige
Benutzer dürfen Bereiche bearbeiten - Blattschutz
Jessica

Hallo,
ich hab gerade ein Problem, bei dem Versuch ein Blatt zu schützen.
Ich habe mehrere Tabellenblätter.
In dem einen habe ich folgendes gemacht:
1. Benutzer dürfen Bereiche bearbeiten
2. Neu
3. Name vergeben
4. Bereich gewählt
5. Passwort ausgelassen
6. Ü...
06.05.2014 21:51:07
Thread-ID: 1360162
3 Beiträge
Nicht gesperrte Zellen löschen
Sven
Hallo zusammen!
Da sich meine Arbeitsmappe laufend ändert, weil ich an ihr noch verbesserungen im laufenden Betrieb vornehme, brauche ich irgendwann mal wieder eine Reinversion (Version ohne bereits vorgenommene Einträge) von ihr.
Ich würde sie gerne per Makro am Besten aufrufbar durch eine...
01.07.2014 13:10:18
Thread-ID: 1368385
5 Beiträge
Inhalt nicht gesperrter Zellen leeren
dani

Hallo zusammen
Ich habe eine Datei die ich Blattgeschützt habe (ohne Passwort) und in welcher nur einzelne Zellen zwecks einer Eingabe frei sind. Nun möchte ich die Inhalte dieser Zellen mittels VBA löschen lassen.
Einen Code um die Zellen einzufärben habe ich gefunden, doch wie ich ans...
29.11.2014 22:15:50
Thread-ID: 1395312
4 Beiträge
Alle nicht gesperrten Zellen löschen
Bernhard

Hallo VBA-Experten,
ich wähle in einem Blatt einen Zellenbereich aus z.B. Range(A1:G5). Darin befinden sich gesperrte und nicht gesperrte Zellen. Ich will alle Zellen löschen lassen, die nicht gesperrt sind. Wie mache ich das ?
Frohe Weihnachten
Bernhard
24.12.2014 15:33:23
Thread-ID: 1399545
3 Beiträge
Alle nicht gesperrten Zellen löschen: Problem
Bernhard

Happy new year liebe VBA Experten
für mich gilt leider: "still: VBA very poor"
In Tabelle1 sollen beim Öffnen der Datei alle Checkboxen zurückgesetzt und alle nicht gesperrten Zellen geleert werden. In einer Testdatei funktionierte das mit dem unten dargestellten Makro (mit Hilfe dieses...
08.01.2015 21:46:39
Thread-ID: 1401584
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
4
2
2
2
4
3
2
2
13
4
5
1
5
2
6
7
7
4
5
7
9
2
7