|
つん さんへ
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
> If Target.Locked = True Then
> Target.Offset(1, 0).Select
> End If
>
>End Sub
>
>とりあえず、選択されたセルにロックがかかってたら、
>一個下のセルに移動。
>「Target」が一番下のセルだった場合とかいろいろエラー処理は必要な気はするけど・・・
>
>ど・・どうかなっ?
参考にですが、このマクロでは、A列すべてロックを掛けた状態でも、252行ずつ止まります。つまりロックされているセルでも、止まります。理由はよくわかりませんが。
今回の様にロックされているのが数行であれば問題ないと思います。ちなみに、「Offset(1,0)」ではなく「Offset(0,1)」だと思われます。
>そのシートで数列、入力出来ないようにセルの保護をしたのですが、出来れば入力の際にENTERキーを押したらその保護した列を飛ばして次の列に行くようにしたいのですが
と列を飛ばすと言われてますので。
おせっかい申し訳ありません。
|
|