特定の条件以外で「保存をさせない」マクロについて

いつもお世話になっております。
VBA歴数ヶ月の会社員です。
先日も類似した質問をさせていただいたのですが、本件もご教示いただけますと幸いです。

社員（500名程度）が用いるExcelシートに関して、
上司より、ExcelVBAによる業務負荷の軽減を命じられているのですが、
「とある条件が成り立っていないときにはシートの保存ができない仕様にしてほしい」
との要望を受けました。

例えばですが、特定のセルA１、B１、C１の合計が100になっていない場合には
保存ボタンを押しても保存ができない状態にしてほしい、とのことでした。

自分なりにいろいろと調べてはいるのですが、なかなかそれに類する
マクロが見つからず（上書き保存をできなくすることは可能なような気もしています）、
関数でなんらかの対応ができるように考えてもいるのですが、
かと言って、はっきりと無理だとは伝えあぐねている状態です。

これを受けまして質問なのですが、上記のようなマクロは作成可能なのでしょうか？
あるいはこれに類する作業はVBAではなく、更に上位のプログラミング言語や
環境設定（知識がないためこの表現も適切なのか自信がありませんが）が必要になるのでしょうか？

つたない質問ですが、何卒よろしくお願いいたします。

行動規範の内容に同意します

回答1件

ベストアンサー

たとえばこんな感じでどうですか。

VBA
1Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
2    If WorksheetFunction.Sum(Sheets(1).Range("A1:C1")) = 100 Then
3        MsgBox "よし、通れ"
4    Else
5        MsgBox "だが断る"
6        Cancel = True
7    End If
8End Sub