Excelの特定のセルの入力規制について

WEB上でしらべたのですが、できなかったので質問します。

セルC7が無の時　セルC8～セルC11までを入力させない。
セルC7が有の時　セルC8～セルC11までを入力可能にさせる。

シート全体に



下記のコードで実行すると、

RangeクラスのLookedプロパティを設定できませんとなります。

どの箇所がだめなのかお手数ですがご教示お願いします。


Sub 無()

Range("C7") = "無"

If Range("C7") = "無" Then
Range("C8:C11").Locked = True
ActiveSheet.Protect
Else
ActiveSheet.Unprotect

Range("C8:C11").Locked = False
End If



End Sub

Sub 有()
Range("C7") = "有"
If Range("C7") = "有" Then

Range("C8:C11").Locked = False


Else
ActiveSheet.Unprotect
Range("C8:C11").Locked = True
End If


End Sub

質問者からの補足コメント

• ＞＞
  C8～C11セルが別のセルと結合されていませんか？
  
  
  回答ありがとうございます。
  C8～C11は結合されていませんが、
  
  セルＡ１～セルＡ４　が　セルＢ１～セルＢ４と結合
  セルＡ８～セルＡ１１が　セル８１～セルＢ１１と結合しています。

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/05/30 13:39

No.2 ベストアンサー 回答者： GooUserラック 回答日時： 2017/05/30 14:06

「Sub 無()」や「Sub 有()」のすぐ後に「ActiveSheet.Unprotect」の１行を追加してみてください。

判ると思いますが、理由は保護がかかったシートのプロパティを変更できないためです。
元々シート保護がないときはエラーが出ないと思いますよ。

この回答へのお礼

おっしゃる通りでした。

お礼日時：2017/05/30 14:11

No.3 回答者： t_fumiaki 回答日時： 2017/05/30 14:09

Sub 無()

セルC7が無の時、ActiveSheet.Protectが実行され、シート全体にロックが掛る。
それを解除するステートメントがどこにも無いから、ロックされたら最後、操作が出来なくなってしまう。

No.1 回答者： GooUserラック 回答日時： 2017/05/30 13:23

C8～C11セルが別のセルと結合されていませんか？