Ekran Koruyucu Ayarlarını Yapma

Bu dosya, Excel içinden bir makro çalıştırarak Windows'un varsayılan ekran koruyucusunu başlatmayı sağlar. Ekran koruyucu ayarlarını yapma konusunda VBA ile çalışan hazır bir örnektir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Üzerinde veri bulunmayan çalışma sayfasıdır. İşlem tamamen VBA modülü üzerinden yürür.
• Module1: Ekran koruyucuyu başlatan StartScreenSaver makrosunu ve Windows API tanımlarını barındıran modüldür.

Makrolar​

StartScreenSaver makrosu sırasıyla şunları yapar:

1. Windows API'sindeki SendMessage işlevine masaüstü penceresi için SC_SCREENSAVE sistem komutunu göndererek varsayılan ekran koruyucuyu başlatır.
2. DoEvents ile ekran koruyucunun ekrana gelmesini bekler.
3. BlockInput ile fare ve klavye girişlerini devre dışı bırakır.
4. Sleep ile 10 saniye (10000 milisaniye) bekler.
5. Süre dolunca BlockInput ile fare ve klavye girişlerini yeniden açar.

Kod, user32 ve kernel32 sistem kütüphanelerindeki işlevleri çağırır. Dosya silme veya dışarıya bağlantı kurma işlemi yoktur. Makro çalıştığı sürece fare ve klavye yaklaşık 10 saniye kullanılamaz; bu bilinçli tasarlanmış bir davranıştır ve süre sonunda giriş otomatik olarak açılır.

Nasıl kullanılır​

1. Dosyayı açın ve uyarı çubuğundan makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın.
3. StartScreenSaver makrosunu seçip Çalıştır düğmesine tıklayın.
4. Ekran koruyucu başlar; yaklaşık 10 saniye sonra fare ve klavye yeniden kullanılabilir.
5. Makroyu kendi çalışma kitabınızda kullanmak için Alt+F11 ile VBA düzenleyicisini açıp Module1 içeriğini kendi projenize taşıyabilirsiniz.

Makronun başlatacağı ekran koruyucu, Windows'ta tanımlı varsayılan ekran koruyucudur; türü ve bekleme ayarları Windows'un kişiselleştirme ayarlarından değiştirilir.