Gün boyu açık kalan dosya

[EmrExcel16]

Merhaba arkadaşlar
Benim bir excel dosyam var ve gün boyu bir pc de açık kalmasını istiyorum içinde de bir vba kodu var 10 dk arayla kod çalışıp kendini güncelliyor buraya kadar sıkıntı yok.

Fakat pc bir süre sonra uyku moduna geçiyor bunu engellemenin yolu nedir bunun için ne tür bir yol izlemem gerekli yoksa bu mümkün değil mi yardımlarınız için şimdiden teşekkür ederim

(Güç kaynakları haricinde çünkü pc farklı kullanıcılar tarafından açıldığında bunun anlamı kalmıyor)

 

[EmrExcel16]

Merhaba ben istediğim olayı sanırsam buldum örneği olmadığı içinde formda paylaşmak isterim böyle bir koda ihtiyacı olan olursa aşağıdaki kodu deneyebilir

Private Declare Function SetThreadExecutionState _
    Lib "Kernel32.dll" _
        (ByVal esFlags As Long) _
    As Long

Sub AUTO_OPEN()
    Application.OnTime Now + TimeValue("00:05:00"), "Ekrani_acik_tut"
End Sub

Sub Ekrani_acik_tut()

    Const ES_SYSTEM_REQUIRED As Long = &H1
    Const ES_DISPLAY_REQUIRED As Long = &H2
    Const ES_CONTINUOUS As Long = &H80000000
    Dim PrevState As Long
        PrevState = SetThreadExecutionState(ES_CONTINUOUS Or ES_DISPLAY_REQUIRED Or ES_SYSTEM_REQUIRED)
         
    AUTO_OPEN
End Sub