【Excel　VBA】シート削除時などに確認メッセージを表示しない方法

Excel VBAにて、シートの削除などを行うようなコードを書いて実行すると、削除時に確認メッセージが表示されます。

実際には、そのままシート削除して問題ないような時にも、いちいち確認メッセージが表示されると、操作上面倒なだけで確認メッセージを表示したくない時があります。

そのような時には、DisplayAlertsを使うと確認メッセージの表示、非表示を切り替えられます。

１．シート削除時などに確認メッセージを表示しない方法

具体的には、

まず単に、

Sub Sample()
    Worksheets.Add.Name = "Test"
    ActiveSheet.Delete
End Sub

とすると、削除時に、

のような確認メッセージが表示されます。

その場合には、以下のようにDisplayAlertsを使用します。

Application.DisplayAlerts　= False

確認メッセージを表示しない。

Application.DisplayAlerts　= True

確認メッセージを表示する。

Sub Sample()
    Application.DisplayAlerts = False
    
    ActiveSheet.Delete
    
    Application.DisplayAlerts = True
End Sub

これにより、確認メッセージを表示しない設定にしてからシート削除が呼ばれるのでシートの削除時に確認メッセージは表示されなくなります。

シート削除終了後、Application.DisplayAlerts = Trueにして確認メッセージを表示する設定に戻しています。

通常、確認メッセージの非表示設定は必要な処理終了後すぐに戻します。

そうしないで残していると意図しない処理で確認メッセージなしで削除処理が実行されてしまいます。

それを防ぐために非表示設定は終了後すぐに戻すようにします。