با سلام
این کدها رو امتحان کنید.
کد:
Option Explicit
Declare Function ExitWindowsEx& Lib "user32" _
(ByVal uFlags&, ByVal wReserved&)
Global Const EWX_LOGOFF = 0
Global Const EWX_SHUTDOWN = 1
Global Const EWX_REBOOT = 2
Global Const EWX_FORCE = 4
'*******************SHUT DOWN*********************
Sub TurnOffXP()
ActiveWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
Shell "shutdown -s -t 02", vbHide
End Sub
'*********************REBOOT***********************
Sub RebootXP()
ActiveWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
Shell "shutdown -r -t 02", vbHide
End Sub
علاقه مندی ها (Bookmarks)