|
ブックの値に変更箇所がある場合だけ、上書き保存をしたいのですが
下記コードだと、ブックに値を入れてから
その値を削除して、見た目上変更がなくても
変更ありと判断されてしまいます
値を削除して、見た目上変更がない場合は上書き保存しないように
したいのですが、どのようにすればいいのでしょうか??
実際には、AブックでないBブックの値を参照して
Bブックの値が1のときは、変更があっても上書き保存不許可
Bブックの値が0の時は、変更がある場合上書き保存許可というような事をしたいのですが…
--Bブックの値が1の時にAブックに変更があるが上書き保存不許可--
Workbooks("A.xls").Activate
If ActiveWorkbook.Saved = False Then
MsgBox ("変更箇所がありますが、上書き保存できません")
Else
End If
--Bブックの値が0の時は上書き保存--
Workbooks("A.xls").Activate
If ActiveWorkbook.Saved = False Then
MsgBox ("変更箇所があるので、上書き保存します")
ThisWorkbook.Save
Else
End If
|
|