vba ile windows oturumunu kapatabilirmiyim

[a_self_lion]

Merhaba arkadaşlar
Excel vba makro ile windows oturumunu kapatabilirmiyim? Nasıl?
Saygılarımla.

 

[işsiz123]

Sayın Murat OSMA bey'in bir çalışması

 

[Haluk]

Alternatif olarak, aşağıdaki kodlar işinize yarayacaktır.

Sub Windows_Kapat()
Set MyOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each OS In MyOS
    OS.Win32Shutdown (12)
Next
End Sub

 

[a_self_lion]

Haluk bey burada ki kodları windowsu mu kapatır yoksa oturumu mu. Saygılarımla.

 

[Haluk]

O kodlar, windows'u kapatır.

Eğer sadece oturumu kapatmak istiyorsanız, koddaki "12" değeri yerine "0" veya "4" kullanın.

 

[a_self_lion]

Parameters

Haluk hocam teşekkür ederim.

İlerde lazım olursa diye açıklama ekledim.
Zorla log off için 4 Forced Log Off kullanılıyor.

0 – Log Off
  
  4 – Forced Log Off
  
  1 – Shutdown
  
  5 – Forced Shutdown
  
  2 – Reboot
  
  6 – Forced Reboot
  
  8 – Power Off
  
  12 – Forced Power Off

 

[a_self_lion]

Bende neden kapatmıyor.
Ofice2010 32 bit kullanıyorum. İşletim sistemim windows7 64 bit Saygılarımla.

 

[Haluk]

Sizde neden çalışmadığını bilemiyorum ama; belki güvenlik ayarlarınızla ilgili olabilir. Belki de bilgisayardaki WMI sürümüyle ilgili olabilir. Gerçi kullandığınız Office ve Windows versiyonları benden iyi

 

[a_self_lion]

Merhaba arkadaşlar

ActiveWorkbook.Close False

Bu kod la excel kitabı kapanıyor ama excel programı açık kalıyor. Sadece çalışma kitabı kapanıyor. Excel uygulamasını da kapatabilir miyiz?

Sub Windows_Oturum_Kapat()
Set MyOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each OS In MyOS
    OS.Win32Shutdown (4)
Next
End Sub

Hocam kullandığım kod bu. Kodu çalıştırdığım zaman hiç bir şey olmuyor yani oturum sonlanmıyor.
Windows sistemim 64 bit ondan olabilir mi? yada yanlış kullandığım bir şey var mı?
Saygılarımla.

 

[Korhan Ayhan]

Exceli komple kaydetmeden kapatmak için aşağıdaki komutu kullanabilirsiniz.

Application.DisplayAlerts = False
Application.Quit

Kayıt ederek kapatmak için;

ActiveWorkbook.Save
Application.Quit

Windows oturumunu kapatmak için dosyadaki kodları deneyebilirsiniz.

 

[a_self_lion]

'Excel VBA code to Shutdown Computer
'For More Info search for these Windows Keywords
'EWX_LogOff
'EWX_SHUTDOWN
'EWX_REBOOT
'EWX_FORCE
'EWX_POWEROFF
        
'ExitWindowsEx Windows API Function to perform the following
'in Computers running with Windows Operating System
'(1) Logs off        - Code: 0
'(2) Shuts down      - Code: 1
'(3) Reboot          - Code: 2
'(4) Forced Process  - Code: 4
'(4) Power Off       - Code: 8
'(5) Force if Hung   - Code: 10
 
''''API Function Declaration
Public Declare Function ExitWindowsEx Lib "user32" _
    (ByVal dwOptions As Long, _
    ByVal dwReserved As Long) As Long
 
''''Call the below Functions to Perform Log off or Shutdown or Reboot
Private Sub Excel_VBA_Log_Off_Computer()
    ExitWindowsEx 4, 0
End Sub
 
Private Sub Excel_VBA_ShutDown_Computer()
    ExitWindowsEx 1, 0
End Sub
 
Private Sub Excel_VBA_Reboot_Computer()
    ExitWindowsEx 2, 0
End Sub

Evet Korhan bey teşekkür ederim.
Burda sizin dediğiniz gibi oldu.