Windows işletim sistemindeki aktif oturumu kapatmaya yarayan VBA kodudur.
Option Explicit
Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long)
Global Const EWX_FORCE = 8
Global Const EWX_LOGOFF = 0
Global Const EWX_REBOOT = 2
Global Const EWX_SHUTDOWN = 1
Sub OturumuKapat()
Dim sonuc As Variant
sonuc = ExitWindowsEx(0, 0)
End Sub