HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal

Thema: Zeilen sperren | Herbers Excel-Forum

Zeilen sperren
hfhansen

Ich habe ein Excel Arbeitsblatt wo Materialdaten mit Preise stehen. Die Preise habe ich ausgeblendet und das Blatt mit Blatt schützen und Arbeitsblatt sperren geschützt. Es sollen aber von anderen Benutzer Zeilen eingefügt und beschrieben werden. Nur diese Zeilen müssen sich beim einfügen automatisch entsperren.
Wie kann man das hinbekommen.

AW: Zeilen sperren
Mike

Hey Unbekannter,
ein Gruss zu Beginn und am Schluss sowie eine realer (Vor)Name machen Dein
Anliegen bei uns freundlicher .. ;-) ... wir sind ja keine Antwortroboter.
Entweder werden die Daten in einem separaten Blatt oder einem separten
Bereich erfasst oder Du löst es mit einem Button "Eingabe", der für kurze Zeit
das Blatt entschützt und später wieder schützt.
Das so als Ideen.
Gruss
Mike
AW: Zeilen sperren
hfhansen

Hallo Mike
wir geht das mit einem Button?
Gruß Hans
Kannst du lesen....
Ramses

Hallo
Wenn du den Blattschutz vergibst, kannst du im Dialogfeld doch definieren, WAS möglich sein soll.
Da musst du doch bloss das Häkchen vor "Zeilen einfügen" setzen.
Dann sollte das doch möglich sein
Gruss Rainer
AW: Kannst du lesen....
hfhansen

Hallo Rainer
Wenn du Zeilen einfügen freigibst sind die eingfügten Zeilen aber auch gesperrt.
Und das mit dem lesen geht noch ganz gut.
Gruß Hans
Danach hast du nicht gefragt :-)
Ramses

Hallo
... dass die Zeilen dann auch noch bearbeitet werden sollen.
Das lässt sich ohne aufwändige VBA Programmierung nicht lösen.
Ein einfacher workaround wäre folgender
Option Explicit

Sub InsertRow()
    Dim newRow As Range
    On Error Resume Next
    Set newRow = Application.InputBox("Markieren Sie die Zelle an der OBERHALB eine neue Zeile eingefügt werden soll", "Neue Zeile", Type:=8)
    If Not newRow Is Nothing Then
        ActiveSheet.Unprotect Password:=""
        Rows(newRow.Row).Insert
        Rows(newRow.Row - 1).Locked = False
        ActiveSheet.Protect Password:=""
    End If
    Set newRow = Nothing
End Sub

Gruss Rainer