上書き保存ミスを防ぐ自動バックアップマクロを作ろう！！

2025年12月06日

こんにちは

ハロー！パソコン教室イオンモール木更津校のわたなべです。

今回のテーマ
＜上書き保存ミスを防ぐ自動バックアップマクロを作ろう！！＞

前回の記事では「日付付きで自動保存できるマクロ」を紹介しました。
これだけでもかなり便利なのですが、、、

こんなことありませんか？
「昨日のファイルに上書きしてしまった。。。」
「前回の作成したもの残しておけばよかった。。。」

こんな悩みを解決できる便利マクロを紹介します

Private Sub workbook_beforesave(ByVal saveAsUI As Boolean, cancel As Boolean)
Dim 自動保存 As String
自動保存 = “C:\Backup\” ‘バックアップ用保存フォルダ

‘バックアップのファイル名の作成
保存先名 = Format(Now, “yyyymmdd_hhnnss”) & “_” & ThisWorkbook.Name

‘コピーを保存
ThisWorkbook.SaveCopyAs 自動保存 & 保存先名

End Sub

毎日の保存はただの「上書き」になっていませんか？
このマクロを使えば、過去のものも残っているので本当に安心ですよ。

住所	〒292-0835 千葉県木更津市築地1-4 イオンモール木更津１Ｆ（A2入口徒歩1分）
電話	0438-38-3586
受付時間	月火木金　　10:00～20:30 日曜日祝日　10:00～18:30 水曜日　　　10:00～16:30 土曜日　　　10:00～14:30