セルのロックのメッセージが表示されないようにするには

いつもお世話になっております
下記のコードを実行すると
添付ファイルのように
メッセージが表示されます。
表示されないようにするには
どうしたよろしいでしょうか

ActiveSheet.Unprotect

With Range("C15:E15", "E7:E9")
.Locked = True
.FormulaHidden = True
End With
ActiveSheet.Protect

No.2 回答者： KenKen_SP 回答日時： 2022/08/07 13:15

こんにちは。

このソースを実行しただけで、ご質問の警告ダイアログが表示されるとは考えにくいです。確認してませんが。

直前に UnProtect してますもんね。

入力を許可したいセル、または保護したいセルを明記することが必要と思います。

ただ、別の可能性としてユーザー操作からは保護したいが、VBAによるセル操作は許可したいといことなら Protect の UserInterfaceOnly オプションを使います。

With Activesheet
　　.Unprotect
　　.Protect UserInterfaceOnly:= True
End With

この回答へのお礼

ありがとうございました。
参考にいたします。

お礼日時：2022/08/07 15:41

No.1 回答者： ママチャリ 回答日時： 2022/08/07 08:46

セルの Lockedプロパティって、デフォルトTrueだったと思います。

Range("C15:E15", "E7:E9") の範囲をロックして、それ以外を非ロックにしたいのだと想像しているのですが、もしそうであれば、それ以外のセルを False にする必要があるのではないでしょうか？

この回答へのお礼

ありがとうございました。
うまくいきました。

お礼日時：2022/08/07 15:41