VBA 無効データのマークを保存後もkeepして表示しておく方法はありますか。

Question

題名通りですが、下記URLにて私と同じ疑問を抱いている方がいらっしゃいましたので、
リンクを貼っておきます。

https://oshiete.goo.ne.jp/qa/4072855.html

無効データのマークは、データの入力規制に引っ掛かっているセルを赤丸で囲い、
どこが間違っているのかを「可視化する」ためにあるものなのですが、
保存などのアクションを起こすと、赤丸が消えるという事象がありまして、
どうにかできないかと、ご相談させていただきました。

よろしくお願いいたします。

ちなみにリファレンスからわかることは特にありませんでした。

https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/worksheet-circleinvalid-method-excel

Answer 1

ワークブックのAfterSaveイベントに同じ処理を組み込んだらいかがでしょうか。

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    ' 全シートに再設定
    For Each ws In Worksheets
        ws.CircleInvalid
    Next
    ' 特定のシートのみの場合はこちら（シート番号や名前は適宜修正してください）
    ’Worksheets(1).CircleInvalid
End Sub

Comments

[King_of_Flies]

保存時のイベントを拾って再描画という方法は思いつきませんでした。

参考にさせていただきます。

Answer 2

.CircleInvalid メソッドを呼び出したときに描画として反映されるものですから、状態を持っている訳ではなさそうなので、状態保存は無理じゃないでしょうか。

リンク先にもありますけど、オープン時のイベントで同じ処理をすれば、開いた時には常に表示されるんじゃないですか？