VBA-Programm Ergänzung Schreibschutz
05.01.2018 23:06:04
Maximus
ich habe ein VBA-Programm, womit ich in der Lage bin, in bestimmten Zellen durch Doppelklick ein X zu erzeugen (siehe unten).
Ich bräuchte folgende Ergänzung (Bedingung) in dem Programm,wenn möglich:
Wenn in D24 UND E24 je ein Wert steht, dann sollen B13 und F13 einen Schreibschutz haben, sprich dann soll es nicht möglich sein durch Doppelklick ein X zu erzeugen.
Anders ausgedrückt, wenn nur in D24 ODER E24 ein Wert steht, dann soll es weiterhin möglich sein, u.a. in B13 und F13 durch Doppelklick ein X zu erzeugen.
Vielen Dank für die Mühen!
Gruss Markus
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A3:I3,A13:C15,E13:G20"), Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = IIf(Target.Value = "x", "", "x")
Application.EnableEvents = True
Cancel = True
End If
End Sub