'セル移動を制御するサンプルマクロ1

'MakeSheet1を実行してサンプルシートを作成してください。

Option Explicit

Sub MakeSheet1()
    Worksheets.Add
    With Range("A1")
        .Value = "Tabキーでセル移動するサンプルシート"
        With .Font
            .ColorIndex = 5
            .Bold = True
        End With
    End With
    Range("A2").Value = _
        "シート保護をすると、Tabキーで非保護セルを移動することができます。"
    Range("A3").Value = "マクロは使用しません。"
    Range("A5").Value = "項目1"
    Range("C5").Value = "項目2"
    Range("A7").Value = "項目3"
    Range("C7").Value = "項目4"
    Range("A9").Value = "項目5"
    Range("C9").Value = "項目6"
    With Range("B5,D5,B7,D7,B9,D9")
        .BorderAround Weight:=xlThick, ColorIndex:=14
        .Locked = False
    End With
    Range("B5").Select
    ActiveSheet.Protect , True, True, True
End Sub