オブジェクトの編集」チェックを保持したい。

Question

「オブジェクトの編集」チェックボックスにチェックをいれたままとしたいのですが、現状では、チェックをいれてシート保護後に保存終了すると、次にファイルを開いてシート保護解除して作業してから、再びシート保護をしようとすると、「オブジェクトの編集」のチェックが外れています。

今入れている使用しているExcel2016ですが、いろいろテストすると、

Private Sub CommandButton1_Click()

ActiveSheet.Unprotect

ActiveSheet.Protect

End Sub

の記述をすると、「オブジェクトの編集」のチェックが外れるようです。

この記述で、オブジェクトの編集」のチェックが外れない方法をご教授下さい。

Answer 1

Kane3 .さん、こんにちは。

Private Sub CommandButton1_Click()

ActiveSheet.Unprotect 

ActiveSheet.Protect DrawingObjects:=False

End Sub

で上手く行きました。

＜参考＞

【ExcelVBA】シートを保護する - Worksheet.Protect - 和風スパゲティのレシピ (limecode.jp)

Answer 2

VBA(マクロ)の公式サポート場所は、海外コミュニティとなっています。

有識者が集まっている所の方が、適切なアドバイスを受けやすいでしょう。

・Stack Overflow(VBA)

　　[VBA プログラミングに関する質問]

　　Stack Overflow には、説明的なタイトル、完全で簡潔な問題ステートメント、問題を再現する
　　ための十分な詳細の要求などのガイドラインがあることに注意してください。
　　機能要求または過度に広範な質問は、トピック外と見なされます。
　　新しいユーザーの場合は、Stack Overflow ヘルプ センター にアクセスして詳細を確認して下さい。

※ 閲覧者・回答者が多い公式サポートサイトをお勧めします。

　 英語で質問を送信してください。