|
今夜が山田 さん、こんばんわ。
>ブックの値に変更箇所がある場合だけ、上書き保存をしたいのですが
>下記コードだと、ブックに値を入れてから
>その値を削除して、見た目上変更がなくても
>変更ありと判断されてしまいます
>値を削除して、見た目上変更がない場合は上書き保存しないように
>したいのですが、どのようにすればいいのでしょうか??
>実際には、AブックでないBブックの値を参照して
>Bブックの値が1のときは、変更があっても上書き保存不許可
>Bブックの値が0の時は、変更がある場合上書き保存許可というような事をしたいのですが…
条件がよくわからないので分岐方法だけ。
If (変更があっても上書き保存不許可の条件) Then
MsgBox "変更箇所がありますが、上書き保存できません", vbExclamation
ThisWorkbook.Saved = True '保存したフリ
ElseIf (変化ないので保存しませんの条件) Then
ThisWorkbook.Saved = True '保存したフリ
Else
MsgBox "変更箇所があるので、上書き保存します", vbInformation
ThisWorkbook.Save '保存
End If
こんな感じです。
|
|