| |
いのっち さん、こんにちわ。
>特定のセルをキーボートとマウスからの編集を受け付けない（マクロは受け付ける！）・・・というような方法はありますでしょうか？（「シートの保護とセルのロック」は使用しない）
Ｃ列を選択できなくするなら。
↓ここから==========
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 'Ｃ列をスルー
Else
Cells(.Row, 2).Select '強制的にＢ列へ移動
End If
End With
End If
Application.EnableEvents = True
Set rb = ActiveCell
End Sub
↑ここまで==========
上のコードをシートのモジュール（シートのタブで右クリックして表示される所）に貼り付けて、カーソルやマウスで移動してみてください。
|
|
りん
- 05/8/12(金) 11:51 -
