Excel VBA 上書き保存でバックアップ用ブックを自動で作成する

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Dim パス As String
 Dim ファイル名 As String
 パス = ThisWorkbook.Path
 ファイル名 = Format(Now(), "yyyymmdd") & "_" & Format(Now(), "hhmmss") & "_" & ThisWorkbook.Name
 ThisWorkbook.SaveCopyAs Filename:=パス & "¥バックアップ¥" & ファイル名
End Sub

2行目【 Dim パス As String】
このブックのパス（場所）を格納する変数「パス」を文字列型(String)で宣言します。

3行目 【Dim ファイル名 As String】
バックアップ用のブックの名前を格納する変数「ファイル名」を文字列型(String)で宣言します。

4行目【パス = ThisWorkbook.Path】
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのThisWorkbook【ﾃﾞｨｽﾜｰｸﾌﾞｯｸ】プロパティを使用してこのコードが記述されているWorkbook【ﾜｰｸﾌﾞｯｸ】オブジェクトを参照し、Path【ﾊﾟｽ】プロパティを使用して、このブックが保存されている場所（パス）を取得して、変数「パス」に代入します。

5行目 【ファイル名 = Format(Now(), “yyyymmdd”) & “_” & Format(Now(), “hhmmss”) & “_” & ThisWorkbook.Name】
書式を変換するFormat【ﾌｫｰﾏｯﾄ】関数を使用して第一引数に日付や時刻を表す変換したい文字列としてNow【ﾅｳ】関数で取得した日時を設定し、年月日と時分秒をNow【ﾅｳ】関数から取得し、Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのThisWorkbook【ﾃﾞｨｽﾜｰｸﾌﾞｯｸ】プロパティで、このプロシージャーが記述されているブックを参照して、Workbook【ﾜｰｸﾌﾞｯｸ】オブジェクトのName【ﾈｰﾑ】プロパティで、このコードが記述されているブックの名前を取得し、文字列を連結するアンパサンド「&」で連結して、変数「ファイル名」に代入します。

6行目 【ThisWorkbook.SaveCopyAs Filename:=パス & “¥バックアップ¥” & ファイル名】
ブックのコピーを保存するWorkbook【ﾜｰｸﾌﾞｯｸ】オブジェクトのSaveCopyAs【ｾｰﾌﾞｺﾋﾟｰｱｽﾞ】メソッドを使用して、保存場所（パス）とファイル名を指定する引数Filename【ﾌｧｲﾙﾈｰﾑ】にこのプロシージャ記述されているブックが保存されている場所が格納されている変数「パス」フォルダー名の文字列と、このコードが記述されているブックのブック名とNow【ﾅｳ】関数で取得したバックアップ日時が格納されている変数「ファイル名」を指定して複製ブック（バックアップ）をバックアップフォルダーに作成します。
※必ずブックと同じ場所に「バックアップ」フォルダーを作成してください。
フォルダー名を変更する場合は6行目の【”¥バックアップ¥”】この部分を変更してください。