DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
Sayfa1.[a1].Value = TextBox2.Value
End Sub
Private Sub UserForm_Activate()
TextBox2.Value = Sayfa1.[a1].Value
End Sub
Private Sub CommandButton1_Click()
TextBox1.Value = UCase(TextBox1.Value)
If TextBox1.Value = "" Then
MsgBox "Lütfen kullanıcı adınızı giriniz", vbExclamation, "Hata !!!"
TextBox1.SetFocus
Exit Sub
ElseIf TextBox1.Value <> "DENEME" Then
MsgBox "Hatalı kullanıcı adı", vbCritical, "Hata !!!"
TextBox1.Value = ""
TextBox1.SetFocus
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "Lütfen parolanızı giriniz", vbExclamation, "Hata !!!"
TextBox2.SetFocus
Exit Sub
ElseIf TextBox2.Value <> "12345" Then
MsgBox "Hatalı parola", vbCritical, "Hata !!!"
TextBox2.Value = ""
TextBox2.SetFocus
Exit Sub
Else
MsgBox "Giriş onaylandı", vbInformation, "Başarılı"
End If
End Sub