Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon afetinci vom 16.04.2021, 14:20 Options

Zellen/Zeilen per VBA sperren

Hallo nochmal,

ich war heute schon sehr oft hier. Aber man kriegt so tolle Antworten.

Ich habe eine Tabelle in der mehrere Daten eingetragen werden. Die Tabelle besitzt 2000 Zeilen und knapp 30 Spalten. Die Daten werden von A: bis BI: eingetragen. Angefangen von A:.

Nun möchte ich, dass sich die unteren Zeilen indem sich keine Daten befinden nicht verändern lassen, also keine Dateeingabe ermöglichen ohne das ich vorher eine Eingabe in Spalte A gemacht habe.

DAS HEISST: Die Dateneingabe für die 2000 Zeilen soll immer erst dann möglich sein, wenn ich voher in Spalte A: etwas eingetragen habe.

Gruß
afetinci

Antwort schreiben

Antwort 1 von Beverly vom 17.04.2021, 08:12 Options

Hi,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Count = 1 Then
            ActiveSheet.Unprotect
            Range(Cells(Target.Row, 2), Cells(Target.Row, 31)).Locked = False
            ActiveSheet.Protect
        End If
    End If
End Sub

Bis später,
Karin

Antwort 2 von afetinci vom 17.04.2021, 11:28 Options

Hallo Karin,

danke für den Code. Kann ich die Zellen komplett sperren wenn in Spalte A kein Eintrag ist? Also auch in der Auswahl der Zellen?

Gruß
afetinci

Antwort 3 von Beverly vom 17.04.2021, 15:48 Options

Hi,

mir ist deine Frage nicht ganz klar - meinst du die Zellen ab Spalte B wieder sperren wenn der Eintrag in Spalte A gelöscht wird? Oder meinst du etwas anderes?

Bis später,
Karin

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken