エクセル２００７ セルを選択不可にする方法

質問

セルに保護を掛けシートを保護する方法ではなく、
シートのイベントで特定のセルを選択できないようにする方法はないでしょうか？

よろしくお願いします。

回答No.3

merlionXX · ベストアンサー

> 例えばA1:C10を選択させないようにするにはどのようにすれば良いのでしょうか。

Dim x As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　If Intersect(Target, Range("A1:C10")) Is Nothing Then
　　Set x = Target
　　Exit Sub
　End If
　On Error GoTo line
　Application.EnableEvents = False
　If x Is Nothing Then
　　Target.Offset(1).Select
　Else
　　x.Select
　End If
line:
　Application.EnableEvents = True
End Sub

ではどうでしょう？

お礼

ご親切に何度もありがとうございます！
お陰様で解決しました♪

回答No.2

merlionXX

セルの内容を変えられることを防ぎたいのではなく選択されたくないということが必要ということですか？
もしそれをイベントでやるならこんな感じでしょうか。
以下はA1セルを選択できなくしてあります。

Dim x As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Address <> "$A$1" Then
　　　　Set x = Target
　　　　Exit Sub
　　End If
　　On Error GoTo line
　　Application.EnableEvents = False
　　If x Is Nothing Then
　　　　Target.Offset(1).Select
　　Else
　　　　x.Select
　　End If
line:
　　Application.EnableEvents = True
End Sub

お礼

ありがとうございます！！

>セルの内容を変えられることを防ぎたいのではなく選択されたくない

正にそのとおりです。言葉足らずで申し訳ありません。
上記の方法で、例えばA1:C10を選択させないようにするにはどのようにすれば良いのでしょうか。
厚かましいお願いで恐縮ですが、ご教示願えれば幸いです。

回答No.1

KURUMITO

シートの保護でも一旦すべてのセルに保護が効かないようにしてから一部のセルだけに保護を掛けることができますがそれではよくないのでしょうか？