Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1776to1780
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
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Bestimmten Zellenbereich sperren

VBA: Bestimmten Zellenbereich sperren
19.08.2020 17:19:20
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 in der Spalte B4 = "grün", sollten alle folgenden Zellen C4 bis H4 gesperrt werden.
Bei Status "gelb" oder "rot" sollte nichts passieren.
Leider konnte ich es nicht über die Gültigkeitskriterien lösen, da diese bereits in einigen Spalten (C oder F) als Auswahl enthalten sind.
Eventuell kann es jemand hier mit VBA lösen.
Siehe auch unten die angehängte Datei.
https://www.herber.de/bbs/user/139711.xlsx
Vorab vielen Dank für jede Unterstützung bzw. Tipp
Gruß Janesch

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Bestimmten Zellenbereich sperren
19.08.2020 17:44:22
Werner
Hallo,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 3 Then
Unprotect Password:="DeinPasswort"
Target.Offset(, 1).Resize(, 6).Locked = IIf(Target = "grün", True, False)
Protect Password:="DeinPasswort"
End If
End Sub
Code gehört ins Codemodul vom Blatt Daten
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren
Der Code reagiert automatisch auf Zelländerung in Spalte B ab B4.
Derzeit wird ein Blattschutz ohne Passwort gesetzt.
Das Passwort mußt du im Code noch anpassen.
Wird der Status geändert, dann wird werden die Zellen wieder "entsperrt".
Gruß Werner
Anzeige
AW: VBA: Bestimmten Zellenbereich sperren
19.08.2020 18:01:50
Janesch
Hallo Werner,
vielen Dank für deine Hilfe.
Alles funktioniert, wie gewünscht :-) Top. !!!!
Gruß
Janesch
Gerne u. Danke für die Rückmeldung. o.w.T.
19.08.2020 18:08:45
Werner

310 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

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
4
4
9
8
2
5
2
2
1
6
2
12
1
7