Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1936to1940
1936to1940
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zellen Sperren für Windows-Nutzer

Forumthread: VBA Zellen Sperren für Windows-Nutzer

VBA Zellen Sperren für Windows-Nutzer
14.07.2023 06:06:26
Thomas Be
Guten Tag,

ich wollte fragen ist es möglich, dass man Nutzern nur schreibrechte in Ihrer Zeile zulässt bspw. anhand ihrem Windowsnutzer? Zum Beispiel bei einem Urlaubsplan mit Nutzer 1 - 5 und die können nur jeweils in ihrer Zeile Urlaub für sich eintragen?

Vielen Dank im Voraus

Thomas
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zellen Sperren für Windows-Nutzer
14.07.2023 06:19:11
Oberschlumpf
Hi Thomas

- füg ein Blatt hinzu, in dem du dann in Spalte A den Win-Anmeldenamen und in Spalte B den Namen einträgst, der auch im Urlaubsplan verwendet wird
(oder im Url.plan wird direkt der Win-Anmeldename verwendet, dann wird ein zusätzliches Blatt nicht benötigt)
- im Workbooks-Open-Ereignis werden bei jedem Öffnen der Datei erst mal alle Nutzerzellen gesperrt
im nächsten Schritt wird der Win-Anmeldename ausgelesen und in extra Blatt (oder direktt im Url.plan) gesucht
Jetzt wird nur die Zeile entsperrt, zu der der Win-Anmeldename passt

Hilfts?

Ciao
Thorsten

Anzeige
AW: VBA Zellen Sperren für Windows-Nutzer
14.07.2023 06:50:43
Thomas BE
Hallo Thorsten,

erstmal vielen Dank für die schnelle Antwort. Wäre es möglich villeicht nur mal ein Beispiel zu zeigen?
Bekomme es leider nicht ganz hin.

Vielen Dnak im Voraus

Thomas

AW: VBA Zellen Sperren für Windows-Nutzer
14.07.2023 06:59:27
Oberschlumpf
Hi Thomas,

ich kenne deine Datei doch nicht.
Besser wäre, du zeigst uns per Upload eine Bsp-Datei mit Bsp-Daten.

Ich lass den Beitrag offen, da ich gleich weg muss - ich bin aber sicher, es wird sich mit Hilfe deiner Bsp-Datei schnell jemand finden, der auch helfen kann.

Ciao
Thorsten

Anzeige
AW: VBA Zellen Sperren für Windows-Nutzer
14.07.2023 07:41:55
Thomas BE
Ok vielen Dank ! Ich habe die Datei mal hochgeladen zu Testzwecken ich hoffe das mir jemand helfen kann!

Vielen Dank im Voraus

Thomas

https://www.herber.de/bbs/user/159932.xlsx

AW: VBA Zellen Sperren für Windows-Nutzer
14.07.2023 12:31:21
migre
Hallo Thomas!

Versuch mal: https://www.herber.de/bbs/user/159934.xlsm
Makro liegt im Modul der Arbeitsmappe. Grds. würde ich dann auf dem betroffenen Blatt alle Zellen der Spalte A sowie Zeilen 1:3 sperren (Blattschutz).

LG Michael

Anzeige
AW: VBA Zellen Sperren für Windows-Nutzer
14.07.2023 14:01:08
Thomas BE
Hallo Michael,

vielen Dank für deine Hilfe.

AW: VBA Zellen Sperren für Windows-Nutzer
14.07.2023 14:30:14
Daniel
Hi
noch ne möglichkeit:
setze alle Zellen in der Formatierung Schutz auf "gesperrt"
erstelle folgenden Code im Selection_Change-Event des Blattes oder der Mappe, wenn du mehrere Blätter hast für die das zutrifft:
Dieser Code aktiviert und deaktiviert den Blattschutz, je nachdem ob in der ersten Spalte der Windows-Anmeldename steht oder nicht.
somit kann der Anwender nur seine eigenen Daten ändern
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Protect Password:="xxx"
If Target.Row > 3 Then
    If Target.Column > 1 Then
        If Intersect(Target.EntireRow, Columns(1)).Cells.Count = 1 Then
            If Cells(Target.Row, 1).Value = Environ("username") Then
                ActiveSheet.Unprotect Password:="xxx"
            End If
        End If
    End If
End If
End Sub

Anzeige
Fehler im Upload:VBA Zellen Sperren für ..
14.07.2023 19:06:16
Ulf
Fehlerteufel hat zugeschlagen:

Private Sub Workbook_Open()
    Dim strPW As String
    strPW = ThisWorkbook.Worksheets("Users").Range(ThisWorkbook.Worksheets("Users").Names("Passwort").RefersToRange.Address).Value
    If strPW = "" Then
        MsgBox "Bis kein Passwort vergeben ist, kann der Benutzer den Blattschutz aufheben !" & vbCrLf & "In Tabelle Users Benutzer + Passwort eintragen"
    Else
        'Nur diesen Teil stehenlassen
        ausLesen
        '
    End If
End Sub
statt:

Private Sub Workbook_Open()
    Dim pw As String
    strPW = ThisWorkbook.Worksheets("Users").Range(ThisWorkbook.Worksheets("Users").Names("Passwort").RefersToRange.Address).Value
    If strPW = "" Then
        MsgBox "Bis kein Passwort vergeben ist, kann der Benutzer den Blattschutz aufheben !" & vbCrLf & "In Tabelle Users Benutzer + Passwort eintregen"
    Else
        'Nur diesen Teil stehenlassen
        ausLesen
        '
    End If
End Sub
https://www.herber.de/bbs/user/159941.xlsm
Sollte nun funktionieren
hth
Ulf

Anzeige

Forumthreads zu verwandten Themen

VBA Code Zellen kopieren wenn Bedingung erfüllt
Bonduca01

Hallo zusammen,
ich brauche eure Hilfe:
Wenn im Tabellenblatt "Berechnung" O2 kleiner oder gleich Q2 ist, dann sollen sowohl die Werte in B2:M2 und der Wert in P11 in eine Zeile des Tabellenblatts "Ergebnisse" gespeichert werden (beginnend ab Zeile 2). Die Ergebnisse sollen immer in die...
27.07.2015 09:56:34
Thread-ID: 1438665
2 Beiträge
Zahl Zellenbereich sperren, wenn Bedingung erfüllt
Robin

Hallo Community,
meine Frage lautet, ob es möglich ist, Zahlen (wie z.B. die "0") in einem Zellenbereich zu sperren (also sozusagen, dass man die 0 dort nicht mehr eingeben kann), wenn in einer anderen Zelle bestimmte Werte vorliegen.
(zusammenfassend also wenn in c3 die Zahl unter 20 f...
17.01.2017 17:58:04
Thread-ID: 1535628
9 Beiträge
Mit VBA Zellen sperren
Tina.

Hallo
Frage, ich habe ein Arbeitsblatt "Berechnungen" in F17 ist eine Mail Adresse.
Nun möchte ich gerne wenn diese geändert wird,
das im Arbeitsblatt " Rechnung Drucken " bei A22 ein Hinweis erscheint.
Geht dies mit VBA zu machen?
19.08.2017 08:58:46
Thread-ID: 1575243
3 Beiträge
VBA Zellen ein/ausblenden wenn Bedingungen erfüllt
Joe

Hallo zusammen,
ich finde eure Plattform super und habe auch schon eine tolle Lösung für eins
meiner Herausforderungen gefunden: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Me.Range("F78:F86")) Is Nothing And Target.Cells.Count = 1 Then Select Cas...
02.10.2017 10:50:25
Thread-ID: 1583803
5 Beiträge
VBA: Zellen kopieren, wenn Bedingung erfüllt
Anica

Hallo zusammen,
da auch intensives Googeln mich nicht weiter gebracht hat, versuche ich es einmal hier.
Mein Problem ist das folgende:
Wenn in meiner Datei im Reiter "Hauptliste" in Zelle A1 "Stempelaktion" steht, wie folgt in das Tabellenblatt "Stempelkarten" kopiert werden:
Ha...
18.09.2018 16:24:48
Thread-ID: 1646256
7 Beiträge
Excel-Vba;Zellen sperren-überprüfen
onErrorGoTo

Hallo,
Ich bin mitten in meiner Diplomarbeit in der unter anderem Einiges an Excel-Vba Programmierung notwendig ist. Ein Problem ist, dass ich einzelne Zellen in den Excel-Sheets sperren müsste, sodass der User den Inhalt nicht änder kann.
Weiters müsste ich bei vielen Zellen eine Überprü...
05.06.2005 17:36:35
Thread-ID: 620027
5 Beiträge
VBA - Zellen sperren wenn Bedingung nicht erfüllt
Philipp

Hallo zusammen,
ich habe in diesem Forum eine super Hilfe gefunden. Habe von euch den VBA Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then ActiveSheet.Unprotect If Target = "" Then Range("B1") = "" Range("B1").Locked = True Else Range("B1"...
25.07.2006 19:15:08
Thread-ID: 785242
6 Beiträge
Anzeige
VBA bestimmte Zellen sperren ab Datum
Uwe

Hallo zusammen,
ich benötige eure Unterstützung mit einem VBA-Code. Ich arbeite mit Excel 2016 und möchte per folgendes erzielen:
In einem passwortgeschützten Tabellenblatt (Beispieldatei habe ich hochgeladen) sind bestimmte Bereiche durch den Anwender editierbar (im Beispielblatt in...
14.05.2020 08:02:37
Thread-ID: 1759038
5 Beiträge
VBA: Bestimmten Zellenbereich sperren
Janesch

Hallo Excel-Freunde,
ich habe ein Datenbereich von A4:H11 mit unterschiedlichen Datenangaben. In der Spalte B habe ich einen Status (grün, gelb und rot).
Ich würde gerne abhängig vom Status in Spalte B, die folgenden Zellen der jeweiligen Zeile sperren lassen.
Z.B. wenn der Status i...
19.08.2020 17:19:20
Thread-ID: 1777794
4 Beiträge
Anzeige
Zellen sperren wenn Bedingung erfüllt
Rolf

Hallo
ich hoffe ihr könnt mir helfen
C10 : C22 wird mit U oder F bestückt was dann gesamt in C28 gezählt wird und die Bereiche C13 : C15 werden in C27 gezählt
nun möchte ich die Bereich C13 : C15 sperren für die Eingabe wenn C28=8 und C27<3 oder C28<10 und C27<4 oder C28&l...
05.11.2020 19:26:51
Thread-ID: 1791443
5 Beiträge
VBA Zellenbereich sperren
Marko
Hallo,
ich habe bereits im Netz nach einer passenden Lösung gesucht, leider ohne Erfolg. Deshalb meine Frage an Euch:
Wie kann ich mit einem Makro den Zellenbereich des aktuellen Sheets - A90 bis AA94 sperren und wieder entsperren. Mit einem Passwort wäre perfekt.
Vielen Dank für Eure Un...
05.09.2021 14:33:15
Thread-ID: 1846228
5 Beiträge
Eine Zelle bedingt Sperren
Stefan

Hallo ihr fleißigen Helferlein,
Ich habe wieder mal eine Frage an euch. Ich will z.b. das man in die Zelle A2 nur schreiben kann wenn die Zelle A1 den Wert 10 hat wenn nicht soll die Zelle A2 gesperrt sein. Kann man das ohne VBA hinbekommen z.B. mit bedingter Formatierung?
Im Voraus sch...
22.08.2008 14:12:33
Thread-ID: 1003866
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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