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

実現したいこと

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

前提

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

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

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

該当のソースコード

excelvba
1Sub Auto_Open()
2    If ActiveSheet.Range("X1").Text <> "" Then
3        Application.Visible = False
4        Application.DisplayAlerts = False
5        ActiveSheet.Range("X1").Value = ""
6        Call ActiveWorkbook.SaveAs("tmp_test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False)
7        Application.Quit
8    End If
9End Sub

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

excel2016

行動規範の内容に同意します

回答1件

ベストアンサー

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

excelvba
1Application.ScreenUpdating = False

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

excelvba
1Sub Auto_Open()
2    If ActiveSheet.Range("X1").Text <> "" Then
3        Application.Visible = False
4        Application.DisplayAlerts = False
5        Application.ScreenUpdating = False
6        ActiveSheet.Range("X1").Value = ""
7        Call ActiveWorkbook.SaveAs("tmp_test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False)
8        Application.ScreenUpdating = True
9        Application.Quit
10    End If
11End Sub