Excel VBAでのSaveCopyAsの挙動

質問

Excel 2016/2019を使っています。よろしくお願いします。

ブックに変更があった場合にバックアップを保存したいので、
上書きにならないように日付と連番をつけてバックアップ専用フォルダにSaveCopyAsを使って保存しようとしています。
明示的に「保存」アイコンをクリックすると期待通りの動作が行われます。しかし、保存せずに「x」印をクリックして閉じてしまった場合でも、変更があるならバックアップファイルを作りたいのですが、SaveCopyAsを通っているのにバックアップファイルが作成されません。

記載したコードは以下のとおりです。

ThisWorkbookオブジェクトに対して、
Public Sub Workbook_beforeClose(Cancel As Boolean)
'変更があれば（ThisWorkBookを）保存
If ThisWorkBook.Saved = False Then
ThisWorkBook.Save
End If
End Sub

'ThisWorkBookの保存時にバックアップを作成
Private Sub Workbook_BeforeSave(省略)
If ThisWorkbook.Saved = False Then
'バックアップファイルのフルパスを作成

　ThisWorkbook.SaveCopyAs "バックアップファイルフルパス"

End Sub

何かヒントをお持ちの方みえられましたらご教示いただければ幸いです。

回答No.2

kkkkkm · ベストアンサー

> いただいたアドバイスを反映させてみましたが、
> やはりバックアップは作成されませんでした。。。

そうですか…こちら2013では以下のようにして保存されています。
ただ、他のエクセルファイルが開いていて該当ファイルを終了した場合、たまに「変更があるので保存しますか」というダイアログが出て保存されない事がありました。該当フィルだけの場合は保存されています。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Saved = False Then
Application.EnableEvents = False
ThisWorkbook.Save
ThisWorkbook.SaveCopyAs "バックアップファイルのフルパス"
Application.EnableEvents = False
End If
End Sub

お礼

ありがとうございます！
バックアップファイルができていないと申し上げましたが、リモート環境のせいかバックアップファイルができるのが（とてつもなく）遅かったようです。別の作業をしていてふと気が付いたらバックアップファイルができていました！

カラクリが今一つわからないのですが、ご教示いただいた方法でいってみます。
本当にありがとうございました！！

回答No.1

kkkkkm

たしかにSaveCopyAsを通りますが実行されませんね…。

ただ、BeforeSaveの中でSaveした時にBeforeSaveイベントが起こらないようにしているとしたら、その部分で直接保存するときとSaveで呼ばれたときとで何か違いがあるのかもしれませんね。

とりあえず以下の方法で

Workbook_beforeCloseの方で
Application.EnableEvents = False
ThisWorkBook.Save
ThisWorkbook.SaveCopyAs "バックアップファイルフルパス"
Application.EnableEvents = True

として逃げておくというのはいかがでしょう。

お礼

早速ご回答ありがとうございます。
再現性があるようなので、ちょっとホッとしました。

いただいたアドバイスを反映させてみましたが、
やはりバックアップは作成されませんでした。。。
こういう仕様だとするとちょっと困ってしまいます。
引き続き、アイディアをお待ちしております。
ありがとうございます。