Office: (Office 2013) Zeile Sperren\VBA

Netboss · 4. August 2014

Hallo , in einer Tabelle werden bei einem Eintrag in den Spalten c bis L Werte in den Spalten M bis R ausgegeben. Wie kann ich möglichst mit Passwort nach einer Eingabe in Spalte C bis L und somit Automatischer Ausgabe der Werte in M bis R die entsprechende ZEILE , in der ich den Eintrag gemacht habe Sperren und möglichst die darüber liegenden auch jeweils oder bleiben die gesperrt wenn die einmal gesperrt wurden?

Es geht sich nur um die Sperre.. Der Rest den ich beschrieben habe existiert schon....

:)

Hajo_Zi · 6. August 2014

das geht nur über VBA, Schutz der Tabelle.

Netboss · 6. August 2014

Hallo Hajo, erst einmal vielen lieben Dank. Ich habe das auch schon mal gemacht, leider weis ich nicht mehr genau wie. Könntest Du mir helfen ?

Hajo_Zi · 6. August 2014

ich interpretiere das also richtig es wird in C4 was eingegeben und die Zeile wird gesperrt. Eine Eingabe in D4 ist dann nicht mehr möglich. Passwort sollte man über eine Userform machen, da es dort versteckt eingegeben werden kann. Inputbox ist aufwendig.
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 3 And Target.Column
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Netboss · 6. August 2014

Wie würde das mit einem Button aussehen der da heissen würde Eintragen?
Das heist ich gebe in der Zeile die Werte ein und klicke dann auf einen button eintragen und der sperrt die letzte zeile in der was eingetragen wurde sowie alle darüber liegenden? Wie würde man das machen?

Hajo_Zi · 6. August 2014

alle darüber wurde doch schon bei der Eingabe gesperrt.
Code:

Option Explicit
Dim LoLetzte As Long

Private Sub CommandButton1_Click()
If LoLetzte < 0 Then
ActiveSheet.Unprotect
Rows(LoLetzte).Locked = True
ActiveSheet.Protect
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
LoLetzte = Target.Row
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Netboss · 6. August 2014

mhhh irgendwo ein fehler:

Code:

Sub Schaltfläche1_Klicken()
Option Explicit
Dim LoLetzte As Long

Private Sub CommandButton1_Click()
If LoLetzte < 0 Then
ActiveSheet.Unprotect
Rows(LoLetzte).Locked = True
ActiveSheet.Protect
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
LoLetzte = Target.Row
End Sub
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi · 6. August 2014

das musst Du den Fragen, von dem Du diesen Code hast. Von mir nicht.

Hajo_Zi · 6. August 2014

es muss >0 lauten

Hajo_Zi · 6. August 2014

Code:

Option Explicit
Dim LoLetzte As Long

Private Sub CommandButton1_Click()
If LoLetzte > 0 Then
ActiveSheet.Unprotect
Rows("1:" & LoLetzte).Locked = True
ActiveSheet.Protect
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
LoLetzte = Target.Row
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) Zeile Sperren\VBA

Zeile Sperren\VBA

Zeile Sperren\VBA

Zeile Sperren\VBA

Zeile Sperren\VBA

Zeile Sperren\VBA - Similar Threads - Zeile SperrenVBA

VBA in einer Zeile zu lang

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Buchsatz mit Word: untere Zeile der Seiten immer auf der gleichen Höhe

leere Zelle in Zeile finden

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Zeilen anders anordnen (oberste nach unten, usw.)

Spalte und Zeile durchsuchen