Shutdown Laptop bằng VBA nhưng lại bị khởi động lại máy

[hung2412]

Xin chào các bạn GPE!
Mình có chạy Code VBA để Shutdown Laptop, nó Shutdown thật, nhưng mà sau khi Shutdown thì nó tự khởi động lại máy (Mình bị nhiều lần như thế chứ không phải một lần, chưa có lần nào tắt hẳn)
Còn khi mình ấn phím Start rồi chọn Shutdown bằng chuột thì máy Shutdown hoàn toàn
Mình nghĩ là có vấn đề liên quan đến Code, dưới đây là đoạn Code (Trích từ Web Tự học VBA)

Option Explicit
 
Declare Function ExitWindowsEx& Lib "user32" _
(ByVal uFlags&, ByVal wReserved&)
 
 '//constants needed to exit Windows
Global Const EWX_LOGOFF = 0
Global Const EWX_SHUTDOWN = 1
Global Const EWX_REBOOT = 2
Global Const EWX_FORCE = 4
 
 
 '*******************SHUT DOWN*********************
Sub TurnOffXP()
     'shutdown.exe will NOT work on Windows 95, 98, 98 SE and ME
     'tuhocvba: da test tren Windows 10, van chay binh thuong
    ActiveWorkbook.Save
    Application.DisplayAlerts = False
    Application.Quit
     '//shut down the computer
    Shell "shutdown -s -t 1200", vbHide   'after 1200s, the computer will shutdown
End Sub

Nhờ các bạn khắc phục lỗi cho mình với
Xin cảm ơn!

 

[huhumalu]

Bạn thêm thử tham số "-f" thử thôi, chứ đã "-s" là shutdown rồi.

Shell "shutdown -s -t 1200 -f", vbHide   'after 1200s, the computer will shutdown