Makro ile Windows oturumu açmak

[Umut yalçınkaya]

Merhaba,

Windows oturumu açık ise "Windows oturumunuz açık" mesajı iletecek Windows oturumu kapalı(kilitli) ise Windows şifresini girerek oturum açacak bir makro var mı

 

[Umut yalçınkaya]

Anlaşılan hiç kimse araştırmamış veya sorunun çözümüne gereksinim duymamış

 

[Asri]

Güç seçeneklerinde tüm seçeneklere asla işlem yapma seçerek.
Ekran koruyucuda kapatmak. Şifreli ekrana geçmesini engeller.
Şifre var ise ilk açılışta zaten şifre girilmesi gerekiyor.

Bunun haricinde otomatik şifre girilmesine neden ihtiyaç oluyor?

 

[Umut yalçınkaya]

kurum bilgisayarı olduğu için server üzerinden çalışmakta ve 20 dakika sistem hareketsiz ise oturumu otomatik kilitli hale getirmektedir. Amacım bilgisayar kilitli olduğunda makronun çalışmasıyla bilgisayarın şifresini makronun girerek kendisinin açmasını sağlamak. Bu makroyu da aramamın sebebi her saat çalışan bir makrom var. fakat bilgisayar kapalı olduğunda makrom çalışmıyor.

 

[EmrExcel16]

Merhaba ,
Windows oturumunuz Excel ile açılabilir mi bilmiyorum ama kapatılması engellenebilir.
Çok önceden benimde buna benzer bir ihtiyacım olmuştu, kodları nereden bulduğumu tam olarak hatırlamıyorum.
Denemesini yapmadım umarım hala çalışıyordur.

Gün boyu açık kalan dosya

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...

www.excel.web.tr

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