教えて!gooグレードポイントがdポイントに!

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

ActiveSheet.Unprotect

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

「セルのロックのメッセージが表示されないよ」の質問画像
教えて!goo グレード

A 回答 (2件)

こんにちは。



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

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

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

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

With Activesheet
  .Unprotect
  .Protect UserInterfaceOnly:= True
End With
    • good
    • 0
この回答へのお礼

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

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

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


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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング