Tự động tắt máy tính

[phuonghong1997]

Không biết em lấy được code này ở đâu, thấy dùng khá tốt để tự động tắt máy tính. Ví dụ 17h ra bắt thang máy thì đông nhân viên.
Có thể hẹn giờ 16h50 sau 10 phút nữa thì tự tắt máy, đủng đỉnh ra thang máy đón thang về trước.

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
    ActiveWorkbook.Save
    Application.DisplayAlerts = False
    Application.Quit
     '//shut down the computer
    Shell "shutdown -s -t 1200", vbHide
End Sub

 

[CRV]

Ví dụ 17h ra bắt thang máy thì đông nhân viên.
Có thể hẹn giờ 16h50 sau 10 phút nữa thì tự tắt máy, đủng đỉnh ra thang máy đón thang về trước

Hehe ví dụ như thế này, nhỡ có ông sếp nào chưa biết lợi hại của VBA mà muốn tìm hiểu VBA sau khi đọc xong ví dụ này chắc cấm luôn nhân viên dùng VBA quá

 

[Noben]

Không biết em lấy được code này ở đâu, thấy dùng khá tốt để tự động tắt máy tính

Code này bạn lấy ở bài shutdown window by VBA

Bạn cần đăng nhập để thấy link