Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1936to1940
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
1936to1940
1936to1940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Anzeige
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

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

305 Forumthreads zu ähnlichen Themen

VBA-Problem Zellen Sperren
Bruehmi

Hallo liebe Excel-Fan-Gemeinde!
Ich habe durch euch schon einige Probleme lösen können. Jedoch stehe ich im Moment vor einem Problem, auf das ich keine Antwort weiß.
Ich müsste per VBA Zellbereiche zum Einen dauerhaft sperren und zum Anderen einzelne Zellen in Abhängigkeit sperren.
...
14.11.2008 14:12:00
Thread-ID: 1024580
12 Beiträge
Anzeige
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
Anzeige
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 & Blattschutz-xlunlockedcells setzen&behalten
Christian

Hallo zusammen!
Ich habe folgendes Problem:
Ich muss ganz viele Blätter anschauen, evtl. ändern und dann schützen.
Das mache ich im Moment mit einem Makro und shortcut.
So, jetzt habe ich den Auftrag bekommen, die Option "gesperrte Zellen auswählen" rauszunehmen, heißt, der user...
06.09.2005 14:25:09
Thread-ID: 663260
4 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
VBA Code um einzelne Zellen zu sperren
Christian

Grüßt euch,
ich benötige für mein Projekt eure Hilfe. Beim durchsuchen des Forums habe ich zwar einige Einträge gefunden, welche sich mit dem Sperren von Zellen beschäftigen, jedoch hat sich keiner direkt mit meinem Problem beschäftigt.
Erste Frage:
Der Bereich A1 bis A4 und B4 in T...
23.09.2019 19:14:15
Thread-ID: 1714377
4 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

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
11
1
8
2
4
6
4
3
5
3
4
3
4
4
2
6
3
3
2
2
1
2
1
6
8