エクセル2010基本講座：特定のセルへの入力を禁止したり、許可したい(VBA)

特定のセルへの入力を禁止する/許可する(VBA)　　　　　topへ

• 当サイトの掲示板にて質問があったものです。チェックボックスを置いて、チェックを入れたらA1セルの入力ができないようにしたい。とのことでした。
  チェックボックスをオフにしたらA1セルの入力が可能にするということにもなります。
• セルへの入力を禁止する方法としては、シートの保護を利用することが考えられます。
  また、チェｯクボクスの状態の応じて、設定を変更する必要があると考えますので、VBAでのイベントを利用することにしました。
• シートの設定
  1. シートを保護した時に入力を禁止するセルはA1のみですが、他のセルは入力が可能な状態としておく必要があります。
     ここでは、シート全体を選択します。
     
  2. [ホーム]タブの「書式]→[セルのロック]をクリックして、セルのロックを解除します。
     
• VBAの設定
  1. シートのチェックボックスを配置します。
     ここでは、[開発]タブの[挿入]→[ActiveXコントロールのチェックボックス]を選択しました。
     
  2. シートにチェックボックスを配置しました。[デザインモード]がオンになっています。
     
  3. チェックボックスのCaptionを「入力の禁止」としました。
     [プロパティ]をクリックして、プロパティのCaptionに「入力の禁止」と入力しました。
     
  4. チェックボックスをダブルクリックすると、VBEが開きます。
     チェックボックスを配置したSheet1に下図のようにコードを入力しました。
     間違いが見つかりましたので　2016/7/20に　コードを修正しました。ご迷惑をおかけし申し訳ありませんでした。
     
     • シートの保護がオンになった時はB1セルに「ON」と表示し、シートの保護を解除したら「OFF」と表示して状態が分かるようにしています。
       シートの保護は　A1セルをロックしてから、　ActiveSheet.Protect　としています。
       

       Private Sub CheckBox1_Change() 　　If CheckBox1.Value = True Then 　　　　Range("B1").Value = "ON" 　　　　Range("A1").Locked = True 　　　　' Range("A2:A5").Locked = False　　　A2：A5には入力OK 　　　　ActiveSheet.Protect 　　Else 　　　　ActiveSheet.Unprotect 　　　　Range("B1").Value = "OFF" 　　　　Range("A1").Locked = False 　　End If End Sub

• 実行時の状況
  1. チェックボックスを使えるようにするために、[開発]タブの[デザインモード]をクリックしてオフにします。
     チェックボックスをクリックして、チェックが入るとB1に「ON」表示されました。
     
  2. A1セルに入力してみます。
     シートが保護されているため入力ができない旨の警告が表示され、A1セルへ入力ができなくなりました。
     
  3. なお、チェックボックスにチェックが入っていても、A2セルは入力が可能です。
     
  4. チェックボックスのチェックを外すと、A1セルへの入力ができるようになります。