Makro für gesperrte Zellen

[octopussy9]

ich habe ein Excelblatt mit 6 Spalten
da kommen pro Tag immer 3-4 Zeilen dazu
ich möchte, wenn man die ersten 6 Eingaben in der ersten Zeile gemacht hat, dass dann diese zellen gesperrt sind, mit Passwort öffnen möglich
dann kann ich die nächste Zeile ein tragen und dann sind erste und zweite Zeile gesperrt , immer soweiter
bekommt man das mit einem Makro hin?
könnt ihr mir da helfen?

  A1      B1       C1         D1     E1       F1
123    29.7.    Tochter     5,-      -        5,-

das sind die 6 Spalten

danke für euere Hilfe

[derHoepp]

Moin,

seit deiner Frage von vor knapp zwei Jahren hat sich nichts entscheidendes verändert: https://www.clever-excel-forum.de/Thread...n-Eingaben

Jeder Versuch mit einem Makro ist sehr wackelig. Du musst exakt festlegen, welche Teile zu welchem Zeitpunkt gesperrt werden soll und genau das in Code umsetzen. Dazu musst du zwischen allen Eingaben den Blattschutz an der richtigen Stelle setzen und entfernen um zwischendurch die .Protected -Eigenschaft der betroffenen Zellen zu setzen.

Ich würde mir persönlich das nicht zutrauen, das zuverlässig umzusetzen.

Viele Grüße 
derHoepp

[UweD]

Hallo


Vorbereitung:
- Bei allen Zellen den Schutz setzen 
- A: F markieren und Schutz rausnehmen

- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- rechts diesen Code reinkopieren


Bei Eintrag in Spalte A bis F prüft das makro, ob in de aktuellen Zeile im Bereich A:F bereits 6 Einträge vorhanden sind

Wenn ja, wird der Bereich gesperrt und das Blatt, was vorher entsperrt wurde, wieder geschützt.

LG UweD

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim RNG As Range, PW As String
    Set RNG = Range("A:F")
    PW = "ABC"
   
    If Not Intersect(Target, RNG) Is Nothing Then
        With Intersect(Target.EntireRow, RNG)
            If WorksheetFunction.CountA(.Cells) = 6 Then
                Me.Unprotect PW
                .Locked = True
                Me.Protect PW
                .Cells(1, 1).Offset(1, 0).Select
            End If
        End With
    End If
End Sub