Tastatureingabe für best. Zellen verhindern
16.06.2009 18:04:04
Hermann
ich habe folg MAKRO (aus dem Archiv), welches die jeweilige Zelle in D bis F sperrt, sobald ein Eintrag erfolgt. Die Einträge erfolgen einzeln über die Schnittstelle COM 1; die Positionierung des Cursors erfolgt willkürlich mit der Maus (oder mit den Pfeiltasten, aber das ist bestimmt nicht lösbar; siehe unten Problemstellung).
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, rngBereich As Range
'Nur Spalte D bis F
Set rngBereich = Intersect(Target, Range("D:F"))
If Not rngBereich Is Nothing Then
'Blatt schützen
ActiveSheet.Protect "Passwort", UserInterFaceOnly:=True
For Each c In rngBereich
'Zelle nach Eingabe sperren
If Not IsEmpty(c) Then c.Locked = True
Next c
End If
End Sub
Nun soll sichergestellt werden, daß keine Eingaben über Tastatur (außer den Pfeiltasten) im Bereich D bis F möglich sind, um eine Manipulation oder versehentliche Tastatureingaben auszuschließen. Im übrigen Bereich müssen Tastatureingaben weiterhin erfolgen können!
Im Archiv habe ich die folg. Funktionen gefunden, aber mir fehlen leider die Kenntnisse diese nun für das Problem anzuwenden. Evtl geht es ja auch anders.
.....die Tastatur abschalten geht mit
application.EnableCancelKey=xlCancelDisabled
....und danach wieder einschalten mit
application.EnableCancelKey=xlCancelInterrupt
Gruß
Hermann
Anzeige