saveasで保存したファイルを開かないようにしたい

Question

実現したいこと

xlsmファイルのauto_openに、ある条件のときだけsaveasでxlsxに保存しています。
この処理のとき一瞬だけexcelが起動するときのスプラッシュ画面が表示されます。
このスプラッシュ画面を含めてauto_openの実行時、excelを全て非表示にしたいです。
保存したxlsxファイルはダブルクリックとかで普通に開きたいです。
スプラッシュ画面とか、auto_open処理中はexcelを非表示にする方法を教えてください。
よろしくお願いします。

前提

セルにデータがあるときだけ、excelのvbaでauto_openを使いsaveasを実行しています。
このとき一瞬だけexcelのスプラッシュ画面が表示されます。
処理中はexcelを非表示にしたいです。
もちろんスプラッシュ画面も非表示にしたいです。

発生している問題・エラーメッセージ

auto_open実行時にスプラッシュ画面が表示されます。

該当のソースコード

Sub Auto_Open()
    If ActiveSheet.Range("X1").Text <> "" Then
        Application.Visible = False
        Application.DisplayAlerts = False
        ActiveSheet.Range("X1").Value = ""
        Call ActiveWorkbook.SaveAs("tmp_test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False)
        Application.Quit
    End If
End Sub

補足情報（FW/ツールのバージョンなど）

excel2016

Answer 1

次のコマンドで vba の処理中に画面更新を行わないに設定できます。

Application.ScreenUpdating = False

これを用いて次のように修正するとスプラッシュ画面が表示されなくなるはずです。

Sub Auto_Open()
    If ActiveSheet.Range("X1").Text <> "" Then
        Application.Visible = False
        Application.DisplayAlerts = False
        Application.ScreenUpdating = False
        ActiveSheet.Range("X1").Value = ""
        Call ActiveWorkbook.SaveAs("tmp_test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False)
        Application.ScreenUpdating = True
        Application.Quit
    End If
End Sub

Comments

[chintao1224]

できました。
ありがとうございました。