Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Zeilen sperren | Herbers Excel-Forum


Betrifft: Zeilen sperren von: hfhansen
Geschrieben am: 05.01.2010 15:01:33

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.

  

Betrifft: AW: Zeilen sperren von: Mike
Geschrieben am: 05.01.2010 15:33:19


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


  

Betrifft: AW: Zeilen sperren von: hfhansen
Geschrieben am: 05.01.2010 15:37:10

Hallo Mike
wir geht das mit einem Button?
Gruß Hans


  

Betrifft: Kannst du lesen.... von: Ramses
Geschrieben am: 05.01.2010 15:34:20

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


  

Betrifft: AW: Kannst du lesen.... von: hfhansen
Geschrieben am: 05.01.2010 15:39:33

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


  

Betrifft: Danach hast du nicht gefragt :-) von: Ramses
Geschrieben am: 05.01.2010 15:54:09

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


Beiträge aus den Excel-Beispielen zum Thema "Zeilen sperren"