2022年12月05日
VBA Bookを上書き保存する際に複製したファイル(バックアップファイル)を自動で作成する
![上書き保存したファイルと自動作成したバックアップファイル](/krps13/file/Select_BeforeSave-thumbnail2.jpg)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim path As String
Dim name As String
path = ThisWorkbook.path
name = Format(Now(), "yyyymmdd") & "_" & "backup" & ThisWorkbook.name
ThisWorkbook.SaveCopyAs Filename:=path & "\" & name
End Sub
【補足】
上書き保存の際にVBAを起動するには、「ThisWorkbook」から「BeforeSave」を選択する。
![上部メニューからBeforeSaveを選択する](/krps13/file/Create_backup_file_when_overwriting-thumbnail2.jpg)
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
https://fanblogs.jp/tb/11737228
※ブログオーナーが承認したトラックバックのみ表示されます。
この記事へのトラックバック