Subject: ロックしたセルを含む行を削除可能にするには？
========================================
From: KODEN
E-Mail: k-tada@kodensya.co.jp
Date: 2001/07/07(土) 11:13:37

 EXCEL97を使用しております。

 現在作成中のものは一種の設定表なのですが、全てのセルが設定可能なのではなくて、
 一部の”列”についてのみ保護をかけたいと思っています。
 ただし、項目を追加する場合が発生するので、”行”の削除・挿入についてはユーザーの
 メニュー操作で実行可能にしたいのですが、”列”がロックされていると”行”の削除
 挿入が出来なくなります。
 どうすれば上記の様な事が実現できるでしょうか？。

 私のイメージとしては、行番号のセル（一番左のセル）をクリックするとマクロでロックを
 解除し、それ以外のセルをクリックするとロックを設定するようにするのがベストだと
 思うのですが、手法が分かりません。
 どうかよろしくお願いします。
========================================
From: ミコちゃんファン
Date: 2001/07/07(土) 12:41:30

こんにちは

>行番号のセル（一番左のセル）をクリックするとマクロでロックを解除し、
>それ以外のセルをクリックするとロックを設定するようにする・・・

シートモジュールに記述してくださいね

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        ActiveSheet.Protect
    Else
        ActiveSheet.Unprotect
    End If
End Sub
========================================
From: ミコちゃんファン
Date: 2001/07/07(土) 14:48:40

こんにちは

ちょと間違っていました。
行番号をクリックすると保護を解除するのですね
試してね

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.EntireRow.Address = Target.Address Then
        ActiveSheet.Unprotect
    Else
        ActiveSheet.Protect
    End If
End Sub

ミコさん、ご指摘ありがとうございます。
========================================
From: KODEN
E-Mail: k-tada@kodensya.co.jp
Date: 2001/07/12(木) 19:16:26
Solved: on

ミコちゃんファンさん、ありがとう。
おかげで助かりました。
初めて質問を出したので、まさかこんなに早く回答が来てるなんて
思ってもみなかったので、ちょっと返事が遅くなりました。

行番号のクリックもイベントとして検出できるんですね。
たぶん出来ないんだろうなぁって思ってた自分がはずかしいです。

どうもありがとうございました。