エクセルを強制終了するマクロ

Function close()

    ' 終了前にやっておきたい処理があれば
    save_data

    ' 強制終了処理
    Application.DisplayAlerts = False '保存しますか？アラートを出さない
    Application.Quit

End Function