Zellschutz Fehlermeldung obwohl nicht geschützt
Fettertiger
Hallo liebe Experten,
manchmal treiben einen die einfachsten Dinge in den Wahnsinn:
Mit dem Before double click event öffne ich eine kleine Userform mit dem Datepicker.
Vor dem Öffnen der Userform schalte ich events und Blattschutz aus. Die Userform füllt das Datum korrekt ein. Erst mit dem EndSub des BeforeDoubleclick makros kommt pötzlich die Fehlermeldung:
"The cell or chart that you are trying to change is protected and therefore read-only."
Was mache ich falsch?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("L:dc")) Is Nothing Then
Application.EnableEvents = False
Select Case Target.Column
Case 50 'date
If Cells(Target.Row, Target.Column).Value = Empty Then
ActiveSheet.Unprotect ("PassWort")
UF_DATEPICK.Show
End If
case 20 'do other things
end select
End If
ActiveSheet.Protect ("PassWort")
End Sub
Private Sub OK_bttn_Click()
Dim Answer As String
If CDate(UF_DATEPICK.DTPicker1.Value) > Date Then
Answer = MsgBox("Do you really want to confirm the activity with a future date?", _
vbQuestion + vbYesNo, "Future Date")
If Answer = vbNo Then
Exit Sub
End If
End If
Me.Hide
ActiveSheet.Unprotect ("PassWort")
ActiveCell = CDate(UF_DATEPICK.DTPicker1.Value)
End Sub
Theo
Anzeige