「【合わせ技】特定のシートのみ入力後移動方向を右にする」

骨董品級のコードですが、多分 Excel 5以降ならほぼ共通で使えるかと思います。
自ブックの Sheet1 に対してのみ、移動方向を右にします。デフォルトは下という前提です。

Private Sub Auto_Open()
　　ThisWorkbook.OnSheetActivate = "RunOnSheetActivate"
　　ThisWorkbook.OnSheetDeactivate = "RunOnSheetDeactivate"
    Call RunOnSheetActivate
End Sub

Private Sub Auto_Close()
　　ThisWorkbook.OnSheetActivate = ""
　　ThisWorkbook.OnSheetDeactivate = ""
　　Application.MoveAfterReturnDirection = xlDown
End Sub

Private Sub RunOnSheetActivate()
　　If ActiveSheet.Parent Is ThisWorkbook And _
　　　 ActiveSheet.Name = "Sheet1" Then
　　　　Application.MoveAfterReturnDirection = xlToRight
　　End If
End Sub

Private Sub RunOnSheetDeactivate()
　　If Not (ActiveSheet.Parent Is ThisWorkbook And _
　　　　　　ActiveSheet.Name = "Sheet1") Then
　　　　Application.MoveAfterReturnDirection = xlDown
　　End If
End Sub

セルのロック解除 ＆ シート保護 ＆ EnableSelection = xlUnlockedCells の組合せで威力を発揮します。

[Mr.BelieのページのHomeへ]