Geschützte Zellen
20.02.2003 10:10:21
Wolfgang
Habe schon so einiges ausprobiert, leider aber nicht erfolgreich.
Ich möchte verhindern, das bei gesperrten Zellen der Doppelklick zulässig ist. Kann ich erreichen, dass dann z.B. die Systemmeldung kommt. Oder wie kann ich es abfangen?
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Target = Cells(Target.Row - 1, Target.Column)
Cancel = True
End Sub
Gleichzeitig hierzu noch eine zweite Frage. Im Moment steht das modul in der Arbeitsmappe, es soll aber nur in bestimmten Blättern wirksam sein.
Mit Dank für jede Anregung.
Gruß
Wolfgang