Option Explicit

Sub EShutDown()

'このプログラムはWindows 10(64Bit)で作成し、Excel 2016のVisual Basic for Applications Ver7.1で作成しました。
'また、このプログラムはWindows用に作成しています。


    If MsgBox("Excelを終了し、コンピューターをシャットダウンします。" + vbCrLf + "よろしいですか？" + vbCrLf + _
    "保存していない内容は破棄されます。", vbExclamation + vbYesNo, "コンピューターのシャットダウン") = vbYes Then
    'メッセージを表示、"はい"が押された場合のみ次のコードが実行されます

        Application.DisplayAlerts = False       'アプリケーションのDisplayAlertsをfalseにセットすることで全てのExcelからのアラートが表示されなくなります。
        Shell ("C:\Windows\System32\shutdown.exe -s")
        'shutdown.exeは単体だとヘルプが表示されるので、-sの引数を渡して起動することによってシャットダウンを行います。
        '注意：上記のshellは文字列なので必ず""でくくる必要があります。
        Application.Quit        'アプリケーション(Excel)を終了します。
    End If          'Ifに対応するEnd Ifは必須です。
End Sub         'Subに対応するEnd Subは必須です。