Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen nach Eingabe sperren

Forumthread: Zellen nach Eingabe sperren

Zellen nach Eingabe sperren
Frank
Hallo Experten,
kann mir bei dem Code (er ist wohl aus diesem Forum) jemand helfen. Ich möchte die Ausführung auf die Tabellenblätter Januar-Dezember und die Bereiche (in jedem Blatt gleich) A1:I40 erweitern.
Der Code sperrt Zellen (Speicherung vorausgesetzt) , wenn sie Werte enthalten. 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim zelle As Range
Sheets("September").Unprotect
For Each zelle In Sheets("September").UsedRange
If zelle.Value  "" Then
zelle.Locked = True
Else
zelle.Locked = False
End If
Next
Sheets("September").Protect
End Sub

Vielen Dank
Frank
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellen nach Eingabe sperren
26.09.2009 21:50:00
Josef
Hallo Frank,
probier mal.
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Dim intIndex As Integer, rng As Range, objSh As Worksheet
  
  On Error Resume Next
  
  For intIndex = 1 To 12
    Set objSh = Sheets(Format(DateSerial(1, intIndex, 1), "MMMM"))
    If Not objSh Is Nothing Then
      With objSh
        .Unprotect
        Set rng = .Cells
        rng.Locked = False
        Set rng = .UsedRange.SpecialCells(xlCellTypeFormulas)
        If Not rng Is Nothing Then rng.Locked = True
        Set rng = .UsedRange.SpecialCells(xlCellTypeConstants)
        If Not rng Is Nothing Then rng.Locked = True
        .Protect
      End With
      Set objSh = Nothing
    End If
  Next
  
  On Error GoTo 0
  
  Set rng = Nothing
  
End Sub

Gruß Sepp

Anzeige
AW: Zellen nach Eingabe sperren
26.09.2009 22:08:10
Frank
Hallo Sepp,
vorab erstmal vielen Dank für die schnelle Antwort:
die Erweiterung auf die anderen Blätter funtioniert.
was nicht mehr funktioniert: leere Zellen können nicht mehr befüllt werden.
Der Bereich A1:I40 wäre wichtig (es könnten auch die Spalten A-I sein)
kannst Du mir da noch weiterhelfen?
Grüße
Frank
Anzeige
AW: Zellen nach Eingabe sperren
26.09.2009 22:10:23
Josef
Hallo Frank,
dann halt so.
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Dim intIndex As Integer, rng As Range, objSh As Worksheet
  
  On Error Resume Next
  
  For intIndex = 1 To 12
    Set objSh = Sheets(Format(DateSerial(1, intIndex, 1), "MMMM"))
    If Not objSh Is Nothing Then
      With objSh
        .Unprotect
        Set rng = .Range("A1:I40")
        rng.Locked = False
        Set rng = .Range("A1:I40").SpecialCells(xlCellTypeFormulas)
        If Not rng Is Nothing Then rng.Locked = True
        Set rng = .Range("A1:I40").SpecialCells(xlCellTypeConstants)
        If Not rng Is Nothing Then rng.Locked = True
        .Protect
      End With
      Set objSh = Nothing
    End If
  Next
  
  On Error GoTo 0
  
  Set rng = Nothing
  
End Sub

Gruß Sepp

Anzeige
AW: Zellen nach Eingabe sperren
26.09.2009 22:24:45
Frank
Hallo Sepp,
es läuft noch nicht rund, die Bereiche sind ok, aber unbefüllte Zellen werden auch gleich gesperrt. Teilweise werden beim Markieren zwei Zellen markiert.
Noch eine Idee?
Gruß
Frank
AW: Zellen nach Eingabe sperren
26.09.2009 22:32:26
Josef
Hallo Frank,
kann deine Prob leme nicht nachvollziehen. Beispieltabelle?
Gruß Sepp

Anzeige
AW: Zellen nach Eingabe sperren
26.09.2009 22:39:33
Frank
Hallo Sepp,
ich kann sie Dir senden - muss dazu einige Erklärungen geben - z.B. muss der Menüpunkt Makros per Passwort eingeblendet werden.
Per Mail?
Grüße
Frank
;

Forumthreads zu verwandten Themen

Zellen/Eingabe während Berechnung sperren
Koeffi

Hallo liebe Leute,
ich habe folgendes Problem.
In meinen Sheet werden nach der Auswahl mit einer Combo-Box eine Reihe Berechnungen (SVERWEISE) ausgeführt. Leider werden diese Unterbrechungen unterbrochen, wenn man mit der Maus klickt, oder auf der Tastatur eine Eingabe macht.
Ich wü...
20.08.2008 18:37:26
Thread-ID: 1003277
4 Beiträge
Löschen von best. Zelleninhalt
best.

Guten Mittag :-)
Ich habe mal wieder einen Wunsch *gg*
Ich würde gerne aus einem bestimmten Tabellenbereich (Spalte A) das man nach einen bestimmten Suffix (heißt das so ? :-) Sucht, und dann alles was davor steht löscht.
der Suffix heißt " | "
Vorher
001 | Testbsp1 002 |...
04.11.2008 11:06:00
Thread-ID: 1021519
7 Beiträge
Anzeige
summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
Abgleich von Zellenbereichen in 2 versch.Arbeitsbl
Zellenbereichen

Hallo Excel-Anwender,
als Anlage habe ich eine Excel-Datei mit 2.Arbeitsblättern beigefügt. Das 1.Arbeitsblatt heißt Ber.Blatt, das 2. Tabelle 2009. Auf dem 1.Arbeitsblatt ist in Zelle B3 eine Vergütungsbezeichnung angegeben. Im 2.Arbeitsblatt sind in der Spalte A5-A28 ebenfalls Vergütungsb...
21.11.2008 11:54:00
Thread-ID: 1026680
4 Beiträge
Zeilen oder Range mit Makro nach Eingabe schützen
Joachim

Hi,
ist es möglich, dass man in einem Excel Sheet, nachdem man Daten eingegeben hat, einen kompletten Bereich schützt. Die Daten in diesem Bereich sollen sich nicht mehr überschreiben lassen.
Also, es soll kein Blattschutz sein, der das ganze Blatt schützt, sondern nur ein bestimmter Be...
21.11.2008 19:03:28
Thread-ID: 1026815
13 Beiträge
Anzeige
Bestimte Zeichen von Zelleninhalt auswählen
Zelleninhalt

Hallo Excelperten,
ich lese via VBA zwei Tabellen ein und erstelle daraus eine Liste. Ich überprüfe dabei, ob es bei den aktuellen Tabellen Änderungen im Vergleich zur alten Liste gibt und übertrage diese Änderungen. Dazu lese ich den Zelleninhalt (eine Product-ID) aus den einzelnen Zeilen...
08.12.2008 11:07:00
Thread-ID: 1031015
3 Beiträge
verketten unter nutzung von zelleninhalt füllen
zelleninhalt

hallo,
ich stelle derzeit in einer Notenliste die Namen der Schüler zusammen mit dem befehl:
=VERKETTEN('GT-M2 07'!C7&", "&'GT-M2 07'!D7)
wobei GT-M2 07 sich auf eine Namensliste in einem anderen Tabellenblatt bezieht. Dort sind Vor- und Zuname in einzelnen Zellen eingetrage...
21.01.2009 09:00:46
Thread-ID: 1042040
3 Beiträge
Beträge einlesen abhängig von Zellenkombination
Zellenkombination

Hallo Excelfreaks
steht vor folgendem Problem
Ausgangslage: Budgetauswertung, aufgebaut in Spalten Kostenstelle/Konto/€-Wert.
Die Kostenstellen/Kontenkombinationen finden sich in der monatlich erstellen Budgetplanwerten und Istkosten wieder.
In eine Budgetauswertung möchte ich f...
28.01.2009 17:57:00
Thread-ID: 1044655
2 Beiträge
Kopieren von Zellen in Editor
Zellen

Hallo,
wir führen eine Teileliste in Excel, die künftig in regelmäßigen
Abständen in eine txt.-Datei kopiert werden soll.
Problem hierbei sind die Leerstellen im Editor!
Gibt es einen Trick oder eine Möglichkeit den "Satz" so zusammen
zu führen, das immer nur eine Leerstell...
03.02.2009 20:54:00
Thread-ID: 1046784
3 Beiträge
Zelle nach eingabe schützen
Andre

Hallo!!
Ich möchte gern, daß wenn ich in einer Zelle eine Eingabe tätige diese Zelle mit einem Passwort gegen Änderung gesichert wird.
Kann mir da jemand helfen?
Mit freundlichen Grüßen
Andre
05.02.2009 13:55:26
Thread-ID: 1047380
3 Beiträge
Einfügen von Zeilen, Spalten u. Zellen verhindern.
Zeilen,

Hallo
Wie kann ich mit VBA das einfügen und löschen von Zeilen, Spalten und Zellen verhindern.
Wäre lieb von Euch wenn jemand mir helfen könnte
Gruß
Dino
08.03.2009 18:06:43
Thread-ID: 1057918
2 Beiträge
Addition abhängig von anderen Zelleninhalten
anderen

Hallo ich habe ein Problem, bei dem ich leider nicht weiterkomme.
In den Zellen C8, D8, und E8 können jeweils bis zu 3 verschiedene Begriffe stehen.
In meinem Fall „Central Location“ „In-Field“ und „n/a“. Es kann sein, dass ein Argument nur 1x oder bis zu 3x vorkommt mit allen mögliche...
09.03.2009 12:35:38
Thread-ID: 1058115
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige