EXCELで特定のセルのみ移動するには？パート2

質問

EXCELでセルの保護の解除を行います。
そしてシート全体の保護をします。
そうすると保護の解除をしたところしか上書きできなくなります。
ここまでは分かるのですが、ロックの解除を行ったセルのみENTERキーで順番に移動させるような設定は出来ますか？
なおかつ移動の順番などを指定したり出来ますか？
もしも出来るようであれば、そのやり方を教えてください。

前回と同じ質問なのですが、検証せずに評価をつけてしまったので、再度質問します。
バージョンは2003ではなく、2000でした。
シートの保護時に「ロックされたセル範囲の選択」という項目はありませんでした。

回答No.1

imogasi · ベストアンサー

>前質問に回答しようとして、直前に締め切られました。
本来その質問用回答
http://okwave.jp/kotaeru.php3?qid=1874335
のNo.4をやってみてください。
なおあのときのご回答での方向で正しいと思いましたが。

お礼

ありがとうございました。
リンク先のアドバイスを参考にさせていただきました。

回答No.2

Wendy02

こんばんは。

マクロということでしたら、「ロックの解除を行ったセル」というものではなく、セルを予め決めておくという方法を取りますね。マクロでない場合は、私は分りません。

＞なおかつ移動の順番などを指定したり出来ますか？
もちろんできます。

使い方は、貼り付けて、再起動するか、Setkeys プロシージャを走らせるかどちらかです。

なお、順序等は、Case の部分をご自分で書き換えてください。

'標準モジュール設定
Sub SelectionCellsMove()
'移動設定
　'シート1のみに設定した場合。
　If ActiveSheet.Name <> "Sheet1" Then
　　ActiveCell.Offset(1).Select
　　Exit Sub
　End If
　　With ActiveCell
　　　　Select Case .Address(0, 0)
　　　　Case "A1"
　　　　　　Range("B1").Select
　　　　Case "B1"
　　　　　　Range("C1").Select
　　　　Case "C1"
　　　　　　Range("A2").Select
　　　　Case "A2"
　　　　　　Range("B2").Select
　　　　Case "B2"
　　　　　　Range("C2").Select
　　　　Case Else 'それ以外
　　　　　　Range("A1").Select
　　　　End Select
　　End With
End Sub

Sub SetKeys()
'キー設定
　Application.OnKey "{ENTER}", "SelectionCellsMove"
　Application.OnKey "~", "SelectionCellsMove"
End Sub
Sub SetOffKeys()
'キー解除
　Application.OnKey "{ENTER}"
　Application.OnKey "~"
End Sub

Sub Auto_Open()
　'ブックを開いた時に、設定される。
　Call SetKeys
End Sub
Sub Auto_Close()
　'ブックを閉じた時に、設定が解除される。
　Call SetOffKeys
End Sub

お礼

ありがとうございました。
問題解決にはNo.1さんのを使いましたが、
アドバイスいただいた内容も、
面白そうなので試してみたいと思います。