Office: Zellen rückwirkend auf "gesperrt" setzen

Hallo zusammen,

Folgendes Problem:

Ich habe ein excel-sheet zur Produktionsdatenerfassung erstellt. In den Spalten A-C kommen datum und zeitwerte. Diese werden per Doppelklick generiert. Ich bin jetzt so weit, dass ich, wenn ich die Zellen in der genannten Range verlasse, nix mehr am Wert ändern kann. Das heißt beim anklicken einer gefüllten Zelle springt die markierung auf eine andere die geschützt ist.

Es geht darum, dass Zeit und Datum nicht manipuliert werden dürfen.

Also zusammengefasst: Ich kann die Zellen nach einem Eintrag nicht mehr bearbeiten.
Ich kann diese jedoch einfach überschreiben. Das bedeutet ich kann eine leere zelle anklicken und über die eingetragene ziehen und hab an der Stelle wieder ne leere Zelle! Sprich es ist wieder manipulierbar.
ich hätte gerne dass sich die Zellen über ein Vba programm bei aktivem Blattschutz irgendwie selbst auf >>Formatierung>>gesperrt setzen sobald ich diese bearbeitet habe.

Ich hoffe die Erklärung ist verständlich, ich bin am verzweifeln und setze auf eure Hilfe^^!

Danke im voraus!

Gruß TG8

 

Du hast also bei Doppelklick die Zelle schon auf gesperrt gesetzt? und Du hast die Tabelle schon geschützt?

 

Hi,

nicht ganz ich habe das Blatt geschützt, aber damit ich die Zellen in der Range A2-C2000 bearbeiten kann sind die entsprechend nicht gesperrt. Ich brauche den aktiven Blattschutz um einige andere Zellen mit Formeln etc. zu schützen.
Und per Doppelklick werden meine Datum und Zeitwerte eingegeben!

 

Du hast meinen Beitrag schon komplett gelesen?

 

okay.. eher überflogen..:-)

nein also das ist eg das Ziel ich möchte bei Doppelklick meine Zelle auf gesperrt setzen. das muss halt auch mit dem Rest des Codes irgendwie harmonieren:

hier der Code

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("a2:a5000")) Is Nothing Then
Target = IIf(Target = "", Date, "")
Cancel = True

End If


If Not Intersect(Range("b2:c2040"), ActiveCell) Is Nothing Then
ActiveCell.Value = Format(Now, "hh:mm:ss")

End If

If Intersect(ActiveCell, Range("f2:k2040")) Is Nothing Then Exit Sub
Cancel = True
If ActiveCell = "X" Then
ActiveCell = ""
Else:
ActiveCell = "X"
End If

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("A2:C2040")
' ActiveSheet.Unprotect
For Each RaZelle In Range(Target.Address)
' Für jede Zelle im Bereich der Wirksamkeit
If Intersect(RaZelle, RaBereich) Is Nothing Then
Else
Application.EnableEvents = False
If RaZelle <> "" Then Range("E1").Select
Application.EnableEvents = True
End If
Next RaZelle
' ActiveSheet.protect
End Sub

ich habs auch schon mit makro-aufzeichnen versucht aber das war irgendwie auch nix

 

ich möchte dazu sagen ich bin kein pro in vba.. ich hab mir die codes aus diversen foren zusammengemeistert! :-)

 

ich habe mich nun nur um das gekümmert was Frage war.

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
    ActiveSheet.Unprotect
    If Not Intersect(Target, Range("a2:a5000")) Is Nothing Then
        Target = IIf(Target = "", Date, "")
        Cancel = True
        Target.Locked = True
    ElseIf Not Intersect(Range("b2:c2040"), ActiveCell) Is Nothing Then
        Target = Format(Now, "hh:mm:ss") ' es wird Text eingetragen
        Cancel = True
        Target.Locked = True
    ElseIf Intersect(ActiveCell, Range("f2:k2040")) Is Nothing Then Exit Sub
        If Target = "X" Then
            Target = ""
        Else:
            Target = "X"
        End If
        Cancel = True
        Target.Locked = True
    End If
    ActiveSheet.protect
End Sub

 

Hey.. super mein arbeitstag ist gerettet!!!!!!!!!
es funktioniert!!!

Vielen, vielen Dank und einen schönen Tag noch!!!

Gruß TG8

 

oh warte noch nicht... kannst du mir bitte noch zeigen wie ich ein passwort einbauen kann? also für den Blattschutz!

 

protect "Passwort"

 

okay.. ich glaub ich hab mich zu früh gefreut :-)

wenn ich nach protect "passwort" eingebe fragt excel mich beim Doppelklick auf die Zelle danach...

ich hatte mich wohl falsch ausgedrückt
ich möchte den blattschutz mit passwort sichern
das heißt wenn jemand versucht den blattschutz aufzuheben (über die Menü-Leiste) soll nach einem passwort gefragt werden

ich habe noch einige Formeln in Spalte D z.B.
und die sollen halt auch geschützt bleiben

ich hoffe ich habs verständlich beschrieben :-)

 

bei Schutz hast Du schon abgewählt auswahl geschützter Zellen?
Die Zellen auf die Du klickst sind nicht geschützt?

 

Genau die zellen für die eingaben sind nicht gesperrt! Das passt auch alles so... das problem ist ich kann den blattschutz einfach aufheben.

wenn ich das blatt über die menüleiste mit passwort schütze dann sind die zellen mit den formeln zwar geschützt
...aber die zellen für die eingabe sind dann auch passwort-geschützt - sprich - ich klicke doppelt auf die leere Zelle und muss erst das passwort eingeben um einen Zeit oder Datumwert zu erzeugen das soll ja nicht sein die sollen ja trotz blattschutz für eine einmalige eingabe zugänglich sein

 

das kann ich nicht nachvollziehen unter meinen Vorgaben.

 

okay.. ich poste noch mal den kompletten code und beschreibe systematisch das problem :-)

Der blattschutz ist aktiviert und passwortgeschützt

die Zellen in den Spalten a,b,c sollen quasi gesperrt sein sobald ich doppelt drauf klicke, ich meine damit dass sie über vba das format gesperrt annehmen (diese Funktion mit dem kontrollkästchen) unter "Zellen formatieren", Reiter "Schutz"...

Spalte D ist bereits gesperrt, sodass ich ich bei aktivem blattschutz nichts ändern kann.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
ActiveSheet.Unprotect
If Not Intersect(Target, Range("a2:a5000")) Is Nothing Then
Target = IIf(Target = "", Date, "")
Cancel = True
Target.Locked = True
ElseIf Not Intersect(Range("b2:c2040"), ActiveCell) Is Nothing Then
Target = Format(Now, "hh:mm:ss") ' es wird Text eingetragen
Cancel = True
Target.Locked = True
ElseIf Intersect(ActiveCell, Range("f2:k2040")) Is Nothing Then Exit Sub
If Target = "X" Then
Target = ""
Else:
Target = "X"
End If
Cancel = True
Target.Locked = True
End If
ActiveSheet.Protect

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' erstellt von Sergej Enns 02.03.2011
' Diese Syntax sorgt dafür,dass gewisse Zellen geschützt sind
' Andy Hinweis an dich siehe "Road-Map"
' Eine bereits ausgefüllte Zelle in einem
' Bereich darf nicht nochmal
' angewählt werden
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("A2:C2040")
' ActiveSheet.Unprotect
For Each RaZelle In Range(Target.Address)
If Intersect(RaZelle, RaBereich) Is Nothing Then
Else
Application.EnableEvents = False
If RaZelle <> "" Then Range("E1").Select
Application.EnableEvents = True
End If
Next RaZelle
' ActiveSheet.protect
End Sub

und das ist der zugehörige code...

wäre echt super, wenn wir das hinkriegen