概要：なぜVBAでバックアップが必要なのか
業務でExcelファイルを扱う際、最も恐ろしいのは「誤操作によるデータの上書き」や「ファイルの破損」です。特に共有サーバー上のファイルを直接編集している場合、取り返しのつかない事態に陥ることも珍しくありません。VBA100本ノックの84本目に掲げられている「ブックの自動バックアップ」は、単なるファイルのコピーではありません。これは、万が一の際に「数分前の自分」に戻れるという、ビジネス上の安全装置（セーフティネット）を構築する技術です。本稿では、VBAを用いて効率的かつ堅牢にファイルをバックアップする仕組みを構築する方法を、プロの視点から徹底解説します。
詳細解説：バックアップロジックの設計思想
バックアップを自動化する際、単に「ファイルをコピーする」だけでは不十分です。実務レベルでは、以下の3つの要素を考慮する必要があります。
1. 保存先ディレクトリの管理
バックアップファイルが元のファイルと同じフォルダにあると、管理が煩雑になります。日付ごとのフォルダを作成し、整理整頓された状態で保存する仕組みが必要です。
2. ファイル名のユニーク化
「バックアップ.xlsx」のような固定名にすると、上書きされて過去の履歴が残りません。必ず「日時（秒単位まで）」をファイル名に付与し、履歴を蓄積できるようにします。
3. 処理速度と安定性
大規模なブックの場合、保存中にフリーズすると業務が止まります。バックアップは「静かなる処理」であるべきです。
これらの要件を満たすために、VBAでは「FileSystemObject（FSO）」を活用するのが定石です。FSOを使うことで、フォルダの存在チェックやファイルのコピー、パスの操作を極めて直感的に記述できます。
サンプルコード：堅牢なバックアップ処理の実装
以下は、現在開いているブックを「Backup」というフォルダに、日時を付与して保存する汎用的なコードです。
Option Explicit
Sub AutoBackup()
Dim fso As Object
Dim targetPath As String
Dim backupDir As String
Dim fileName As String
Dim backupFileName As String
Dim timestamp As String
' 1. オブジェクトの生成
Set fso = CreateObject("Scripting.FileSystemObject")
' 2. 保存先パスの設定
targetPath = ThisWorkbook.Path
backupDir = targetPath & "\Backup"
' 3. バックアップフォルダが存在しなければ作成
If Not fso.FolderExists(backupDir) Then
fso.CreateFolder backupDir
End If
' 4. 現在の日時を取得してファイル名に変換（例: 20231027_143005_）
timestamp = Format(Now, "yyyymmdd_hhmmss")
fileName = fso.GetBaseName(ThisWorkbook.Name)
backupFileName = backupDir & "\" & timestamp & "_" & fileName & ".xlsm"
' 5. ファイルをコピー（既に開いている場合は保存してから実行）
On Error Resume Next
ThisWorkbook.SaveCopyAs backupFileName
If Err.Number = 0 Then
Debug.Print "バックアップ完了: " & backupFileName
Else
MsgBox "バックアップに失敗しました。" & vbCrLf & Err.Description, vbCritical
End If
On Error GoTo 0
Set fso = Nothing
End Sub
このコードの肝は `SaveCopyAs` メソッドの使用です。現在のブックを「閉じることなく」、別名で保存できるため、ユーザーの作業を中断させることなくバックアップを完了できます。
実務アドバイス：プロが現場で行う運用の工夫
コードを書くだけがVBAではありません。実務でこのプログラムを運用する際、以下のポイントを意識してください。
・イベント駆動の活用
「いちいちボタンを押すのは面倒だ」というユーザーは多いです。`Workbook_BeforeSave` イベント（ブックを保存する直前に実行されるイベント）に、このバックアップ処理を組み込むのが最適解です。「保存しようとしたら、自動的にバックアップも取られる」という状態を作れば、ユーザーに意識させず安全を確保できます。
・世代管理（ローテーション）
バックアップファイルが増えすぎると、ストレージを圧迫します。例えば「過去7日分だけを残し、それより古いものは削除する」といったクリーンアップ処理をバックアップ開始時に行うコードを追加しましょう。FSOを使えば、ファイルの更新日時を判定して簡単に削除が可能です。
・エラーハンドリングの徹底
ネットワークドライブが切断されている場合、バックアップ保存はエラーになります。この際、ユーザーに「バックアップが取れていない」ことを通知する仕組みを必ず入れてください。黙って失敗するのが、最も危険なバグです。
まとめ：VBAで「安心」という価値を届ける
VBA100本ノックの84本目は、一見すると地味な作業かもしれません。しかし、バックアップ処理を自作できるということは、システムとしての信頼性を向上させる力があることの証明です。
今回紹介したバックアップの仕組みは、あなたの作成するExcelツールを、単なる「計算機」から「信頼できる業務システム」へと昇華させます。エラーに強く、データ損失を防ぐ設計思想を身につけることは、ベテランエンジニアとしての第一歩です。
まずは自身の業務で使っているブックに、このバックアップ機能を実装してみてください。数日後、誤って重要なデータを消してしまった自分を、過去の自分が救ってくれる。その感動こそが、VBAプログラミングの醍醐味なのです。ぜひ、この技術を習得し、現場の「もしも」を「安心」に変えていきましょう。
