Sub cmd_test()
Dim objsystem As Object 'オブジェクト格納用変数
Set objsystem = CreateObject("WScript.Shell")
'ログオフするの場合は以下にする
objsystem.Run "shutdown /l /f", 0, False
ThisWorkbook.Close
Application.Quit
End Sub
Sub cmd_test()
Dim objsystem As Object 'オブジェクト格納用変数
Set objsystem = CreateObject("WScript.Shell")
'ログオフするの場合は以下にする
objsystem.Run "shutdown /l /f", 0, False
ThisWorkbook.Close
Application.Quit
End Sub