[[20060926181502]]　『あるセルのみ記入ができないようにロックする仕組』（エクセル）　ページの最後に飛ぶ

『あるセルのみ記入ができないようにロックする仕組みについて』（エクセル）
エクセルで表を作っているのですが、一部のセルだけ、記入できないようにロック（？）
するような、方法はあるのでしょうか？
初心者なので、あまりわかりません。
どなたか教えてください。よろしくお願い致します。

 検索して見ました＾＾
　
http://www.excel.studio-kazu.jp/cgi-bin/estindex/estseek2.cgi?phrase=%E4%B8%80%E9%83%A8%E3%80%80%E3%82%BB%E3%83%AB%E3%80%80%E4%BF%9D%E8%AD%B7&perpage=10&attr=&order=&clip=-1
　
 （キリキ）（〃⌒o⌒)b

ありがとうございます。
これは、ｼｰﾄを保護して、編集できるセルに関してロックを解除するという方法ですよね？
逆に、セルの一部だけロックという方法はないのでしょうか？
お手数おかけしますが、教えてください。

 同じことだと思いますが・・・・

ロックをする箇所が一箇所だけなので、ｼｰﾄを保護しないでも出来れば、効率的だと思ったのですが。。。

 入力規則で入力値を制限すれば似たような事が出来ます。但し、コピー貼り付けが
 出来てしまうのが難点。
（純丸）(o^-')b

すいません、おはずかしい話ですが、入力規則とはどのようにやるのでしょうか？
よろしくお願いします。

 あるセルの変更を不可にするのであれば、こういう方法もあります。
 該当のシートタブを右クリックし、コードの表示を選択。
 出てきた画面に下記コードを貼り付けて閉じる。
 下記の例ではB2のみ変更不可にしています。
 (ROUGE)
'----
Private x
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    For Each c In Target
        If c.Address(0, 0) = "B2" Then
            Application.EnableEvents = False
            c = x
            Application.EnableEvents = True
            Exit For
        End If
    Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Range
    For Each c In Target
        If c.Address(0, 0) = "B2" Then
            x = c.Formula
            Exit For
        End If
    Next
End Sub

 ROUGEさん、突っ込み...

 Range("c:iv")を選択して変更したら？
 Loopの必要は無い？

 Private x

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 x = Range("b2").Formula
 End Sub

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("b2").Formula = x Then Exit Sub
    Application.EnableEvents = False
    Range("b2").Formula = x
    Application.EnableEvents = True
 End Sub
 (seiya)

 余計なループは要りませんね・・・orz
 (ROUGE)

 >入力規則とはどのようにやるのでしょうか？
 セルを選択し、データメニュー＞入力規則で、種類を「ユーザー設定」、
 数式を 0 などとすると、通常のデータは受け付けなくなります。
（純丸）(o^-')b

みなさん、ありがとうございます。
助かりました。
やはり、ｼｰﾄを保護してしまって、セルの書き換えをする部分だけをロック解除にする方法が一番簡単そうですね。
いろいろありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20060926181502]] 『あるセルのみ記入ができないようにロックする仕組』（エクセル） ページの最後に飛ぶ

[[20060926181502]]　『あるセルのみ記入ができないようにロックする仕組』（エクセル）　ページの最後に飛ぶ