Cursor nur in Eingabefeldern bewegen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

216203    211403

Problem: Der Cursort soll über die TabTaste nur in den Eingabefeldern bewegt werden können. Nur die Eingabezellen sind ungeschützt; der Blattschutz ist gesetzt.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Set rng = ActiveCell
   iColorA = 49
   iColorB = 6
End Sub
ClassModule: Tabelle2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   ActiveSheet.Protect userinterfaceonly:=True
   If Not rng Is Nothing Then
      rng.Interior.ColorIndex = iColorA
      rng.Font.ColorIndex = iColorB
   End If
   Set rng = Target
   iColorA = Target.Interior.ColorIndex
   iColorB = Target.Font.ColorIndex
   Target.Interior.ColorIndex = 6
   Target.Font.ColorIndex = 49
End Sub
StandardModule: Modul1

Public rng As Range
Public iColorA As Integer, iColorB As Integer