|
いのっち さん、こんにちわ。
>特定のセルをキーボートとマウスからの編集を受け付けない(マクロは受け付ける!)・・・というような方法はありますでしょうか?(「シートの保護とセルのロック」は使用しない)
C列を選択できなくするなら。
↓ここから==========
Dim rb As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Columns("C:C")) Is Nothing Then
With ActiveCell
'選択範囲がC列にかかっていたら
If .Column <> 3 Then
.Select 'アクティブなセルのみ選択
ElseIf Not rb Is Nothing Then
Cells(.Row, 3 - Sgn(rb.Column - .Column)).Select 'C列をスルー
Else
Cells(.Row, 2).Select '強制的にB列へ移動
End If
End With
End If
Application.EnableEvents = True
Set rb = ActiveCell
End Sub
↑ここまで==========
上のコードをシートのモジュール(シートのタブで右クリックして表示される所)に貼り付けて、カーソルやマウスで移動してみてください。
|
|