Excelで保護していないセルにカーソルを飛ばしたい

Excelでセルに入力しEnterを押したら保護していないセル
に自動的にカーソルを飛ばしたいのですが、どうすればい
いですか？

No.1 ベストアンサー 回答者： AQUALINE 回答日時： 2003/09/03 17:02

そのシートのオブジェクトモジュール（VBEを立ち上げてMicrosoft Excelオブジェクトと書いてあるところ）を選択し、コードウィンドウに以下を貼り付けて見てください。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

シートを保護しておけばロックしてないセルしか選択できなくなります。

No.5 回答者： Hageoyadi 回答日時： 2003/09/03 22:04

http://www.okweb.ne.jp/kotaeru.php3?q=618914
の記述も参考になるかと。
マクロ実行前に指定したセルのみにカーソルを移動させます。

No.4 回答者： imogasi 回答日時： 2003/09/03 20:52

「保護されていないセル」と関係なく、

思う順序にカーソルを動かせないか考えて下記を作ってみました。参考になれば。Tab Orderのようなものです。
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$1"
Application.Goto Range("b8")
Case "$A$2"
Application.Goto Range("b9")
Case "$A$3"
Application.Goto Range("c9")
Case "$C$9"
Application.Goto Range("A4")
End Select
End Sub
上記を改善して、Target.Addressと飛び先を配列にすれば、場合が増えても、コードは長くならずに済みそうです。

No.3 回答者： yuusukekyouju 回答日時： 2003/09/03 20:42

Tabキーは保護してないセルにしか飛びません、これではだめですか。

No.2 回答者： wakky_tom 回答日時： 2003/09/03 17:14

こんにちは

メニューバーより［ツール］－［保護］－［シートの保護］で『このシートのすべてのユーザに許可する操作』の「ロックされていないセル範囲の選択」のチェックをつけて、「ロックされたセル範囲の選択」のチェックを外してみてください。