Süreli UserForm ile Süre Bitmeden Dosyayı Açamama

Bu dosya, çalışma kitabı açıldığında ekrana bir UserForm getirir ve 10 saniyelik geri sayım bitmeden dosyaya erişimi engeller. Form kapatılmaya çalışılırsa Excel uygulaması kapanır. Açılışta bekleme ya da uyarı ekranı gerektiren şablonlara temel olarak kullanılabilir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar etkinleştirilmezse geri sayım ekranı çalışmaz.

Dosyanın içeriği​

• Sayfa1: Veri içermeyen çalışma sayfasıdır. Geri sayım ekranı bu sayfa üzerinde değil, UserForm1 üzerinde çalışır.
• UserForm1: Geri sayımın gösterildiği formdur. Sayaç, Label1 etiketinde görüntülenir.
• Module1: Geri sayımı yapan Warten yordamını barındırır.
• ThisWorkbook: Dosya açıldığında formu çağıran kodu içerir.

Makrolar​

• Workbook_Open: Dosya açılır açılmaz UserForm1 formunu gösterir.
• UserForm_Activate: Form görüntülendiğinde ekranı yeniler, Warten yordamını çalıştırır ve geri sayım bitince formu kapatır. Böylece kullanıcı çalışma sayfasına erişir.
• Warten: Sayacı 10'dan 1'e kadar geriye doğru sayar. Her adımda değeri Label1 etiketine yazar, formu yeniler ve kernel32 kütüphanesindeki Sleep çağrısıyla 1000 milisaniye (1 saniye) bekler.
• UserForm_QueryClose: Form süre dolmadan kapatılmaya çalışılırsa Application.Quit ile Excel'i kapatır. Form, kullanıcı tarafından kapatılmaya karşı da iptal edilir (Cancel = 1).

Kodda dosya silme ya da dışarıya bağlantı kuran bir işlem yoktur. Ancak form kapatıldığında tüm Excel uygulaması kapanır; bu nedenle başka açık dosyalarınızdaki kayıtsız değişiklikleri önceden kaydedin.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Ekrana gelen forma ait geri sayımın 10'dan 1'e inmesini bekleyin; form otomatik kapanır.
3. Süreyi değiştirmek için Visual Basic Düzenleyicisi'nde Module1 içindeki döngünün başlangıç değerini düzenleyin.
4. Başka bir çalışma kitabında kullanmak için UserForm1 ve Module1 bileşenlerini o dosyaya aktarın, ThisWorkbook içine Workbook_Open kodunu ekleyin.