VBA ile Şifre Korumalı Kullanıcı Paneli

Şirket içi kritik finans veya personel raporlarının yetkisiz kişilerce açılmasını önlemek için Workbook_Open olay yordamı ile dosya açılışında şifre soran dinamik bir giriş paneli oluşturabilirsiniz. Doğru şifre girilirse sayfalar görünür olur, yanlış şifre girilirse dosya otomatik kapatılır.

Workbook_Open Olayı ile Şifre Kontrolü Nasıl Yapılır?

Kullanıcıdan InputBox ile şifre istenir, girilen değer veritabanı veya sabit şifre ile karşılaştırılarak yetki verilir.

Örnek Şifreli Açılış Kod Kalıbı


                                Private Sub Workbook_Open()

                                    Dim sifre As String

                                    sifre = InputBox("Lütfen erişim şifresini giriniz:", "Güvenli Giriş")

                                

                                    If sifre <> "12345" Then

                                        MsgBox "Hatalı şifre! Dosya kapatılıyor.", vbCritical

                                        Me.Close False

                                    Else

                                        MsgBox "Hoş geldiniz, yetki onaylandı.", vbInformation

                                    End If

                                End Sub

Canlı Simülatör: Şifre Doğrulama Paneli

Aşağıdaki simülasyon, dosya açılış şifre doğrulama mekanizmasını test etmenizi sağlar. Doğru şifre 12345'tir. Şifre Paneli Aç butonuna basın.

Visual Basic Editörü (ThisWorkbook)

ThisWorkbook (Password Protection)

Private Sub Workbook_Open()
    Dim sifre As String
    sifre = InputBox("Şifre giriniz:", "Güvenlik")

    If sifre = "12345" Then
        Range("A1").Value = "Yetki Onaylandı: Rapor Erişime Açık"
    End If
End Sub

Canlı Excel Sayfa Görünümü

A (Erişim Yetki Durumu)

Önceki VBA Dersleri Dinamik Doğrulama

Microsoft Excel ✕

Hoş geldiniz, yetki onaylandı. Rapor açıldı!