※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

DisplayAlerts 各場面によって表示されるアプリケーションアラート 便利な事もありますが 表示させたくない場合もあります。 シート削除アラート Application.DisplayAlerts = False で非表示になる ブック保存アラート Application.DisplayAlerts = False で非表示になる 上書きアラート Application.DisplayAlerts = False で非表示になる デバックアラート Application.DisplayAlerts = False でも非表示にならない。

Option Explicit 'Application.DisplayAlertsのテスト 'アラートの表示と非表示 Private Sub AlertsTest1() 'DisplayAlerts 設置なし '新ブック '新シート 'シート削除 'シート文字挿入 'SaveChanges 　設置なし Dim bk As Workbook, st As Worksheet Dim pt As String, nm As String '=================================== 'Application.DisplayAlerts = False '=================================== pt = "C:\test\" nm = "BookTest.xls" Set bk = Workbooks.Add Set st = bk.Worksheets.Add st.Delete Set st = bk.Worksheets.Add st.Cells(1, 1).Value = "A" bk.Close 'bk.Close SaveChanges:=True, Filename:=pt & nm     '      ↑     'どちらでもＯＫ     '      ↓ 'bk.SaveAs Filename:=pt & nm End Sub Private Sub AlertsTest2() 'DisplayAlerts 設置なし '既存ブック '新シート 'シート削除 'シート文字挿入 'SaveChanges 　設置なし Dim bk As Workbook, st As Worksheet Dim pt As String, nm As String '=================================== 'Application.DisplayAlerts = False '=================================== pt = "C:\test\" nm = "BookTest.xls" Workbooks.Open Filename:=pt & nm Set bk = Workbooks(nm) Set st = bk.Worksheets.Add st.Delete Set st = bk.Worksheets.Add st.Cells(1, 1).Value = "A" bk.Close End Sub Private Sub AlertsTest3() 'DisplayAlerts 設置なし '既存ブック '新シート 'シート削除 'シート文字挿入 'SaveChanges 　設置あり Dim bk As Workbook, st As Worksheet Dim pt As String, nm As String '=================================== 'Application.DisplayAlerts = False '=================================== pt = "C:\test\" nm = "BookTest.xls" Workbooks.Open Filename:=pt & nm Set bk = Workbooks(nm) Set st = bk.Worksheets.Add st.Delete Set st = bk.Worksheets.Add st.Cells(1, 1).Value = "A" bk.Close SaveChanges:=True, Filename:=pt & nm End Sub 'ブックを Visual Basic から開く場合は、Auto_Open マクロが含まれていても実行されません。 'Auto_Open マクロを実行する場合は RunAutoMacros メソッドを使ってください。 'Visual Basic を使ってブックを閉じると、ブックの Auto_Close マクロは実行されません。 'Auto_Close マクロを実行するには、RunAutoMacros メソッドを使います。