User Formda Şifreyi Yazarak User Forma Giriş

[SanaLSukuL]

Sayfa1 deki tuşa basarak Userform1 i açıyoruz.
Userform1 deki Kullanıcı Adı ve Şifre yi yazdıktan sonra GİRİŞ tuşuna basarak diğer Userform2 ye geçiş yapabilrmiyiz.

Kısaca Kullanıcı Adı ve Şifreyi bilmeyen Userform2 yi açamasın. Tşkler.

 

[alpi]

1. Kullanıcı Adı ve Parola Sorucu
2. Kullanıcı Adı ve Parola Sorucu

 

[SanaLSukuL]

Sayın alpi bu normal kullanıcı girişli userform çalışmaları ben bunları inceledim ama benim sormak istediğim userform1 deki şifreyi yazmadıktan sonra userform2 açılmasın. Çünkü userform2 de hücre kilitlerini açan tuşlar var. İnşllah anlatabilmişimdir.

 

[SanaLSukuL]

Türkçe dersinde KİLİT AÇ tuşu ile userform1 açılıyor buradan kullanıcı adı ve şifreyi girince GİRİŞ tuşuna basınca userform2 açılması lazım. Userform2 yi yaptım.
Bu işlem öğretmen yanlışlıkla yazılı sonucunu yanlış yazdığını anlayınca o hücre kilidini açması lazım ama şifreyi girdiktewn sonra userform2 deki kilitaç düğmesine tıklaması lazım.
Ben bu formu sınıf bilgisayarına yüklüyorum ve çocuklar notlarını öğrensin fakat notları değiştiremesin.
Tşk ler.

 

[SanaLSukuL]

Bu şifre girişli userformdan user forma geçişi olmaz mı?

 

[alpi]

Hocam Uygulamayı şu şekilde değiştirsek nasıl olur?

Her sayfa yada not için ayrı ayrı kilit aç yerine, Bir kerelik şifre ve kullnıcı adı sorduralım kullnıcı bunları eğer doğru girerse dosyadaki tüm sayfaların koruması kaldırılsın aksi taktirde hiçbir sayfanın koruması kaldırılmasın.
Dosya kapatıldığında ise tekrar tüm sayfalar koruma şifresi ile şifrelensin.

 

[Korhan Ayhan]

Selamlar,

Userform1 de bulunan CommandButton1 e aşağıdaki kodu uygularsanız. Kulanıcı Adı ve Parola girilmeden diğer form açılmayacaktır. Umarım işinize yarar.

Not: Kullanıcı Adı ve Parola kısmını kendinize göre değiştirmeyi unutmayın.

Private Sub CommandButton1_Click()
    Static HATA
    If TextBox1 = "DENEME" And TextBox2 = "12345" Then
    Unload Me
    UserForm2.Show
    Exit Sub
    End If
    HATA = HATA + 1
    HAK = 3 - HATA
    MsgBox "HATALI KULLANICI ADI YADA ŞİFRE GİRİŞİ !" & vbCrLf & vbCrLf & _
    "KALAN GİRİŞ HAKKINIZ :  " & HAK, vbCritical
    With TextBox1
    .SetFocus
    .SelStart = 0
    .SelLength = Len(TextBox1)
    End With
    If HAK = 0 Then
    MsgBox "BU İŞLEM İÇİN YETKİNİZ BULUNMAMAKTADIR !", vbInformation
    Unload Me
    End If
End Sub

 

[SanaLSukuL]

Sn. Alpi her sayfa için olabilir. Ama bütün hücrelerin şifresini mi kaldırtacağız.

 

[SanaLSukuL]

cevap yazarken Sn. COST_CONTROL cevap vermiş uygulayalım bakalım Tşk ler Sn. alpi Sn. COST_CONTROL

 

[SanaLSukuL]

Sn. COST_CONTROL giriş dediğimde diğer userform2 geçiş yaptı ama arka planda userform1 çalışıyor bu userform1 in arkada çalışmayıp giriş dediğimizde userform1 in kapanıp userform2 yi açması için kodda nasıl bir değişiklik yapabiliriz. İlgileriniz ve bilgileriniz için ayrıyeten tşk ler.

 

[SanaLSukuL]

Ayrıyeten bu bilgi çuğundaki X çarpılara tıklanıp kapanmamasını nasıl sağlayabiliriz.
BU İŞLEM İÇİN YETKİNİZ BULUNMAMAKTADIR diyor çarpıya tıkladığımda fakat kapatıyor userformu.

 

[SanaLSukuL]

Sn. COST_CONTROL mükemmel olmuş elinize bilginize sağlık şifre ve kullanıcı adını bilmeyen öğrenci hayatta kilit aç ları göremez tşk ler.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. Son halini kullanınız. Ayrıca hangi formun X işaratinden kapanmasını istemiyorsanız. O formun kod bölümüne aşağıdaki kodu uygularsanız X işareti işlevini gerçekleştirmez.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True
End Sub

 

[Korhan Ayhan]

Selamlar,

Eğer şifre girişi yaptığınız formun X işaretinden kapatılmasını istemiyorsanız. Userform1 için daha önce verdiğim tüm kodları silip, Userform1 in kod bölümüne aşağıdaki kodları uygulamanız yeterlidir. Umarım işinize yarar.

Dim HAK

Private Sub CommandButton1_Click()
    Static HATA
    If TextBox1 = "DENEME" And TextBox2 = "12345" Then
    Unload Me
    UserForm2.Show
    Exit Sub
    End If
    HATA = HATA + 1
    HAK = 3 - HATA
    MsgBox "HATALI KULLANICI ADI YADA ŞİFRE GİRİŞİ !" & vbCrLf & vbCrLf & _
    "KALAN GİRİŞ HAKKINIZ :  " & HAK, vbCritical
    With TextBox1
    .SetFocus
    .SelStart = 0
    .SelLength = Len(TextBox1)
    End With
    If HAK = 0 Then
    MsgBox "BU İŞLEM İÇİN YETKİNİZ BULUNMAMAKTADIR !", vbInformation
    Unload Me
    End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If HAK = 0 Then
    Cancel = False
    Else
    Cancel = True
    End If
End Sub

 

[SanaLSukuL]

teşekkür ederim COST_CONTROL