Zellschutz

Hallo Zusammen,
ich dreh mich momentan ein wenig im Kreis. Folgendes Problem:
Es existiert eine Liste über die nur per Formular Daten geschrieben werden dürfen. Das würde sich ja noch mit Zellen schützen und Blattschutz realisieren lassen.
Bei Doppelklick auf die Zelle öffnet sich das Formular mit den Daten aus der angeklickten Zeile (hier komme ich mit Blattschutz, gesperrte Zellen nicht anklicken nicht weiter, da ich sonst nicht erkennen kann welche Zeile angeklickt wurde).
Wenn jemand jetzt einen linksklick in die Zelle macht, soll er den Wert in der Zelle nicht ändern können. Das könnte ich mit aktivieren einer leeren anderen Zelle verhindern.
Das führt aber dazu, dass bei Doppelklick auf eine Zelle beim ersten doppelklick die aktivierte Zelle registriert wird und erst beim 2. Dopppelklick auf die richtige Zelle reagiert wird.
Also Zusammengefasst: Linksklick soll zwar der Inhalt der Zelle in den Zwischenspeicher kopiert werden, aber das Ändern des Wertes soll nicht möglich sein
Bei Doppelklick soll registriert werden in welche Zelle der Dopppelklick gemacht wurde.
Hat jemand dazu eine Idee?
Danke
yummi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
eine Tabelle kann ich derzeit leider nicht hochladen. Mach mal ne neue Excel auf. Im Tabellenblatt 1 Spalte A trag bitte in verschiedene Zellen irgend etwas ein.
Dann Bitte das Blatt schützen, hierbei "Gesperrte Zellen auswählen" und "Nicht gesperrte Zellen auswählen" anhaken. Anschließend das Blatt schützen Passwort Werner
Rechte Maustaste auf Tabelle 1, Code anzeigen, und den Code reinkopieren.
Ist in Spalte A eine Zelle leer und du klickst doppelt drauf dann kommt ne MsgBox "Eintrag möglich" hier kannst du deinen Code einsetzen um über eine Userform Eintragungen zu ermöglichen.
Klickst du in Spalte A in eine Zelle in der schon etwas drin steht dann kommt ne MsgBox "Kein Eintrag möglich".
Hier der Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
Dim zelle As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Worksheets("Tabelle1").Protect Password:="Werner"
If target.Column = 1 Then
For Each zelle In target
If IsEmpty(zelle) Then
MsgBox "Eintrag möglich"
Else
MsgBox "Kein Eintrag möglich"
End If
Next zelle
End If
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Worksheets("Tabelle1").Protect Password:="Werner"
cancel = True
End Sub

Meinst du das so?
Gruß Werner

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean) Dim zelle As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If target.Column = 1 Then For Each zelle In target If IsEmpty(zelle) Then Worksheets("Tabelle1").Unprotect Password:="Werner" zelle = "Hier gehts" Worksheets("Tabelle1").Protect Password:="Werner" Else MsgBox "Kein Eintrag möglich" End If Next zelle End If Application.CutCopyMode = False Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True cancel = True End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellschutz

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread