DisplayAlerts = False funktioniert nicht
22.07.2003 11:27:03
Andre
Ich habe folgendes Problem:
Ich möchte, dass in meinem Arbeitsblatt bei Doppelklick auf eine Zelle diese ihre Farbe von rot nach weiß bzw andersherum ändert. Dabei soll aber die Zelle bzgl ihres Inhalts nicht geändert werden dürfen, deshalb habe ich das Blatt geschützt.
In meiner Prozedur habe entschütze ich es dann vor dem Farbwechsel und schütze es danach wieder, das funktioniert auch. Zusätzlich habe ich in der Prozedur den Befehl Application.DisplayAlerts = False eingebracht.
Dennoch kommt beim Doppelklick auf eine Zelle zwar zunächst der Farbwechsel zustande, aber danach erscheint die Fehlermeldung " Sie versuchen eine geschützte Zelle zu bearbeiten......" Dies möchte ich unterbinden
Hier meine Prozedur:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.DisplayAlerts = False
ActiveSheet.Unprotect
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.ColorIndex = 46
Else
Target.Interior.ColorIndex = xlNone
End If
ActiveSheet.Protect
End Sub
Vielen Dank für eure Tipps...
Gruß,
Andre