Code wird durch Doppelklick übergangen

Computer: Software & Programmierung Office Software
1

Hallo,
ich habe so ungefähr gar keine Ahnung von Makros und habe mir über Foren geholfen und es funktioniert auch alles ganz gut. Aber jetzt habe ich bemerkt, dass man den Code einfach mit einem Doppelklich übergehen kann.

Es ging mir darum, dass man die Daten, die zu einem bestimmten Datum gehören, am nächsten Tag nicht mehr verändern kann. Ich habe also das Datum in die Spalte A gesetzt und folgenden Code eingefügt:

**Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column > 1 And Target.Column

es klappt auch eigentlich ganz gut. Wenn ich nun jetzt aber in die geschützte Zelle klicke, das „Sie dürfen hier keine Änderungen mehr vornehmen“-Feld erscheint, auf ok klicke und erneut mit Doppelklick in die Zelle gehe, kann ich Änderungen vornehmen :frowning:

Kann mir jemand helfen? Wo ist der Fehler?? Bzw. was muss ich ändern, damit es klappt?

Danke für eure Hilfe :smile:

LG und ein schönes hoffentlich nicht so eisiges WE
Linda**

2

Hallo Linda,

Spalte A? In deinem code läßt du A-F zu.

Ohne das jetzt korrigiert zu haben, probiers mals so:

Private Sub Worksheet\_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column \> 6 Then Exit Sub
If IsDate(Cells(Target.Row, 1).Value) Then
 If CDate(Cells(Target.Row, 1).Value) 6 Then Exit Sub
If IsDate(Cells(Target.Row, 1).Value) Then
 If CDate(Cells(Target.Row, 1).Value) 

Gruß
Reinhard