Sayfa Login Sistemi

[Kavinsky]

Üstatlara selamlar olsun. Benim sayfa bazında sadece şifre ile güvenlik sağlayan bir sistemim var. Sistem gayet güzel çalışıyor istediğim tek şey şifre yazınca ****** şeklinde değil direk görünüyor. İstediğim şey yazdığım şifre * şeklinde görünsün. Hatta mümkünü var ise kullanıcı adı ekleyipte kullanıcı adına göre sayfaya yönlendirsin. Kullanıcı adı muhasebe sayfasına yönlendirsin, kullanıcı adı perspektif ise perspektif sayfasına yönlendirsin. Tabi mümkün ise böyle bir şey. Teşekkür ederim.

Private Sub Worksheet_Activate()
 ActiveWindow.WindowState = xlMinimized
    
    Sor = InputBox("Yönetici Şifrenizi Giriniz", "PERSPEKTIF", "*********")
    
    If Sor = 123 Then
        Sheets("PERSPEKTIF").Activate
        ActiveWindow.WindowState = xlMaximized
    Else
        Sheets("MAIN").Activate
        ActiveWindow.WindowState = xlMaximized

    End If

End Sub

 

[Ömer BARAN]

Merhaba.

İşlem için Inputpox nesnesi kullanmak yerine; üzerinde bir adet Textbox olan küçük bir UserForm kullanın.

-- TextBox'un özelliklerinden PASSWORDCHAR kısmının karşısına * karakterini,
-- Sayfanın Activate kod blokuna sadece formun açılması kodunu,
-- şifre kontrol ve doğru/yanlış durumunda yapılacak işlemleri de;
ya TextBox_Change kodlarına ya da userform üzerine eklenecek bir adet CommandButton_Click kodlarına

yazın.

Tabi userform'un köşesindeki X simgesinden kapatılmasına ilişkin kod da oluşturun ki;
ÇARPIdan kapatıldığında yanlış şifre durumuna ilişkin işlemlerin yapılması sağlanabilsin.

Forumda ARAMA yaparsanız hem şifre userformu, hem de ÇARPIdan kapatmaya ilişkin konu ve çözüm sayfalarını bulabilirsiniz.

.