ExcelVBAでExcelを開かずに保存

Question

すみません、ExcelVBAで教えてください。
以下のようなコードを書いて、新規でExcelファイルを作成して保存しています。
やりたい事はできているのですが、作成したExcelファイルが開かないようにしたいです。
どうすればよいかご教授ください。
お願いします。

    Dim DefaultFileName As String
    DefaultFileName = "バックアップ_" & Format(Now, "yyyymmddhhmmss") & ".xlsx"
     
    Dim SaveFileName As Variant
    SaveFileName = Application.GetSaveAsFilename(InitialFileName:=DefaultFileName, FileFilter:="Excelファイル,*.xlsx")
    If SaveFileName = False Then
        Exit Sub
    End If

    Dim SaveWb As Workbook
    Set SaveWb = Workbooks.Add
    Dim SaveWs As Worksheet
    Set SaveWs = SaveWb.Worksheets(1)

    SaveWb.SaveAs SaveFileName

Comments

[y_waiwai]

開かないようにとは？
意味不明です

[IzuShin]

"立ち上がらないように"という意味です。
失礼しました。

[Usirow]

つまり、SaveWbを新規に開く → SaveWbに値を書き込む → 名前を付けて保存　という一連の流れを、非表示で行いたい、ということでしょうか？
Application.ScreenUpdating = False　ではいけませんか？

[IzuShin]

Application.ScreenUpdating = False　も試したののですが、ダメでした。
Excelの起動を止めるのは違うのかなと思いました。

Answer 1

Option Explicit

Sub Sample()
    Dim DefaultFileName As String
    DefaultFileName = "バックアップ_" & Format(Now, "yyyymmddhhmmss") & ".xlsx"
    
    Dim SaveFileName As Variant
    SaveFileName = Application.GetSaveAsFilename(InitialFileName:=DefaultFileName, FileFilter:="Excelファイル,*.xlsx")
    If SaveFileName = False Then Exit Sub
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Workbooks.Add
        .SaveAs SaveFileName
        .Close
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

空のブックをバックアップしてどうする、ってのはありますが...

Comments

[IzuShin]

値を設定している部分は記載から除いております。
実際は空のブックではありません。