Açılışta Şifre Sorma

Bu kaynak, çalışma kitabı her açıldığında kullanıcıdan şifre isteyen bir VBA örneğidir. Doğru şifre girilirse dosya kullanıma açılır, yanlış girilirse çalışma kitabı kapatılır.

Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir. Makrolar etkinleştirilmezse şifre kontrolü çalışmaz ve dosya doğrudan açılır.

Dosyanın içeriği​

• Sayfa1: B2:E4 aralığında yalnızca D3 hücresinde "ExcelDepo" metni yer alır. Bu metin, makrodaki şifreyle aynıdır.
• BuÇalışmaKitabı (ThisWorkbook) modülü: Şifre kontrolünü yapan Workbook_Open olayı bu modülde bulunur.

Dosyada formül, grafik, tablo ya da özet tablo yoktur.

Makrolar​

• Workbook_Open: Dosya açıldığında kendiliğinden çalışır. Şifre, kod içinde Sifre adlı bir değişkende tutulur ve varsayılan değeri ExcelDepo olarak tanımlıdır.
• Kullanıcıdan Application.InputBox ile "Bu alana şifreyi yazın" başlıklı bir pencerede şifre istenir.
• Girilen değer doğruysa "Tebrikler doğru şifre yazdınız!" bilgi mesajı gösterilir ve kullanıcı adı mesaj başlığında yer alır.
• Girilen değer yanlışsa "Girdiğiniz şifre hatalı, program kapatılacaktır!" uyarısı verilir ve ThisWorkbook.Close False ile çalışma kitabı kaydedilmeden kapatılır.
• Makro dosya silme ya da dışarıya bağlantı gibi işlemler yapmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Açılan pencereye ExcelDepo şifresini yazın.
3. Kendi şifrenizi belirlemek için ALT+F11 ile VBA düzenleyicisini açın, BuÇalışmaKitabı modülündeki Sifre değişkeninin değerini değiştirin ve dosyayı .xlsm olarak kaydedin.
4. Aynı yapıyı kendi dosyanızda kullanmak için Workbook_Open olayını o dosyanın BuÇalışmaKitabı modülüne kopyalayın.

Şifre kodun içinde açık metin olarak durduğundan bu yöntem basit bir giriş kontrolüdür. Önemli veriler için Excel'in dosya şifreleme özelliği de birlikte kullanılmalıdır.