UserForm Login Ekranı Validation Örneği

Kulanıcı arayüz formu

Cevap: UserForm Login Ekranı Validation Örneği

İleti#21)  elmas » 24 Şub 2014 00:38

Herkese Merhaba.

Sizin bu güzel login örneğinizi kendi programıma uyguladım. Ancak veritabanındaki şifreleri değiştirmek için eklediğim "Şifre Değiştir" butonuna kodları uygulayamadım. Bunun yanı sıra "Kullanıcı Sil" butonu için de yardımcı olabilirseniz sevinirim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
elmas
Yeni Başlamış
 
Adı Soyadı:Zafer Elmas
Kayıt: 06 Mar 2011 18:38
Konum: Karadeniz Ereğli/ZONGULDAK
Meslek: Devlet Memuru
Yaş: 40
İleti: 42
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: UserForm Login Ekranı Validation Örneği

İleti#22)  elmas » 13 Nis 2014 18:49

Herkese Merhaba.

Şifre Değiştir butonuna kodları uyguladım. Ancak Kullanıcı2 de Kullanıcı1'in şifresi ile açılıyor. :( Acaba hatam nerede. Yardımlarınızı bekliyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
elmas
Yeni Başlamış
 
Adı Soyadı:Zafer Elmas
Kayıt: 06 Mar 2011 18:38
Konum: Karadeniz Ereğli/ZONGULDAK
Meslek: Devlet Memuru
Yaş: 40
İleti: 42
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: UserForm Login Ekranı Validation Örneği

İleti#23)  sefer1975 » 24 Tem 2014 14:39

Burada Kullanıcı login olduktan sonra şifre formunun kapanmasını sağlayamadım. Tamam butonuna bastıktan sonra diğer userformu açabiliyorum fakat login userformunu kapatacak kod nedir, nereye yazılır. Ben tamam butonun altına "unload.me" yazdım ama olmadı.
Kullanıcı avatarı
sefer1975
Siteye Alışmış
 
Adı Soyadı:Sefer ŞANLI
Kayıt: 28 Eyl 2008 00:27
Konum: Niğde
Meslek: Anadolu Teknik Lisesinde İnşaat Bölümü Öğretmeni
Yaş: 43
İleti: 448
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Niğde

Cevap: UserForm Login Ekranı Validation Örneği

İleti#24)  Tarkan VURAL » 25 Tem 2014 00:51

Unload Me
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26823
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: UserForm Login Ekranı Validation Örneği

İleti#25)  sefer1975 » 25 Tem 2014 01:49

Tarkan Bey öylede denedim olmuyor.
Kullanıcı avatarı
sefer1975
Siteye Alışmış
 
Adı Soyadı:Sefer ŞANLI
Kayıt: 28 Eyl 2008 00:27
Konum: Niğde
Meslek: Anadolu Teknik Lisesinde İnşaat Bölümü Öğretmeni
Yaş: 43
İleti: 448
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Niğde

Cevap: Cevap: UserForm Login Ekranı Validation Örneği

İleti#26)  Enes Recep BAĞ » 25 Tem 2014 08:41

Tarkan VURAL yazdı:Unload Me


sefer1975 yazdı:Tarkan Bey öylede denedim olmuyor.


Tarkan Beyin vermiş oluduğu kodları yazıp ta formun kapanmaması mümkün değil.
Kesin yanlış yaptığınız bir şey var.
Unload me kodunu nereye yazdığınız. Kapanacak formun içine mi? [ilginc]
Örnek bir düğme atayın ve click olayına bu kodları yazın.
Veya userform kapanış olayına (X dan kapatma) olayı içine yazın, o da olmadı unload yazın sonra kapanacak userformun adını yazın.
Örnek userformun adı EVN ise unload EVN şeklinde ve kodlar kapanacak userform içinde olmalı.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: UserForm Login Ekranı Validation Örneği

İleti#27)  Tarkan VURAL » 25 Tem 2014 10:35

sefer1975 yazdı:Tarkan Bey öylede denedim olmuyor.


Olur da siz nedense bir türlü yapamıyorsunuz. [upp]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26823
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Login Ekranı Validation Örneği

İleti#28)  sefer1975 » 25 Tem 2014 13:50

Açıklamalarınızı okudum. Yapmaya tekrar denemeye çalışıyorum. Bu seferde acemiliğime verin, excelin görünürlüğü false yapmıstım. Bir türlü kod kısmına ulaşamıyorum. User form ekranda. Ama excele ulaşamıyorum. Lütfen acemiliğimi hoşgörün. Öğrenmeye çalışıyorum sayenizde.
Kullanıcı avatarı
sefer1975
Siteye Alışmış
 
Adı Soyadı:Sefer ŞANLI
Kayıt: 28 Eyl 2008 00:27
Konum: Niğde
Meslek: Anadolu Teknik Lisesinde İnşaat Bölümü Öğretmeni
Yaş: 43
İleti: 448
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Niğde

Cevap: UserForm Login Ekranı Validation Örneği

İleti#29)  Tarkan VURAL » 25 Tem 2014 14:08

Çalısmayı durdurmak ve kod sayfasına gitmek için ctrl+break tuşlarına birlikte basın. ;)
Ayrıca sorununuz UserForm Validation örneğinin çok dışına çıkıyor. Yani bu başlıkta verilen örnek ile ilgisi olmayan farklı sorunlar yaşıyorsunuz. Sorun yaşadığınız konular için yeni başlık açabilirsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26823
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Login Ekranı Validation Örneği

İleti#30)  sefer1975 » 25 Tem 2014 14:51

Teşekkür ediyorum, Tarkan Hocam. Amacım konuyu kirletmek değil. Tek yapmak istediğim şifre ekranıyla benim user forma geçiş yapmak. İşte bunu gerçekleştirdim de. Benimuser form açılınca validion ekranı görevini tamamlamış ve kaybolmus olması gerekiyor. Onu yapamadım. Her şey için Teşekkürler.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
If TextBox1.Text = "Kullanıcı Giriniz" Then
Label3.Visible = True
Exit Sub
End If
If TextBox2.Text = "Parola Giriniz" Then
Label4.Visible = True
Exit Sub
End If
If TextBox1.Text = "sefer" And TextBox2.Text = "123" Then
MsgBox "Staj Programına Hoş Geldiniz", vbInformation, "Sefer ŞANLI"
UserForm1.Show
Unload UserForm2
Else
Label5.Visible = True
MsgBox "parola yanlıs": TextBox1.SetFocus

End If

End Sub

Kodlarımda (Kodlarınız da burada). Bu konuyla ilgili son sorumdu.
Kullanıcı avatarı
sefer1975
Siteye Alışmış
 
Adı Soyadı:Sefer ŞANLI
Kayıt: 28 Eyl 2008 00:27
Konum: Niğde
Meslek: Anadolu Teknik Lisesinde İnşaat Bölümü Öğretmeni
Yaş: 43
İleti: 448
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Niğde

Cevap: UserForm Login Ekranı Validation Örneği

İleti#31)  Tarkan VURAL » 25 Tem 2014 15:01

Allah Allah. Söyledik ama Unload ile formu kapatacaksınız diye. :shock:

Unload UserForm2 yazan satırda, login form adınız ne ise UserForm2 yerine o adı yazın.

Unload UserForm1
Unload UserForm5
Unload Me
Unload LoginFormu
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26823
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Login Ekranı Validation Örneği

İleti#32)  sefer1975 » 26 Tem 2014 01:37

Abi kızma lütfen. Login form adım=userform2. Esas çalışmam Userform1
Kullanıcı avatarı
sefer1975
Siteye Alışmış
 
Adı Soyadı:Sefer ŞANLI
Kayıt: 28 Eyl 2008 00:27
Konum: Niğde
Meslek: Anadolu Teknik Lisesinde İnşaat Bölümü Öğretmeni
Yaş: 43
İleti: 448
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Niğde

Cevap: UserForm Login Ekranı Validation Örneği

İleti#33)  Tarkan VURAL » 28 Tem 2014 01:02

Yok estağfurullah, kızmak yok da anlatamadım mı diye tereddüt ediyorum.

O halde
Kod: Tümünü seç
UserForm1.Show
Unload UserForm2

satırlarının yerlerini değiştirerek deneyin.
Kod: Tümünü seç
Unload UserForm2
UserForm1.Show
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26823
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Login Ekranı Validation Örneği

İleti#34)  sinanplater » 28 Tem 2014 02:42


Gönderilmiş resmi tam boy görmek istiyorsanız, eklentinin üzerini tıklayınız.




Umarım çalışmayı begenir siniz ...

:D
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
sinanplater
Site Dostu
 
Adı Soyadı:SİNAN POLATER
Kayıt: 12 Şub 2012 19:41
Meslek: Serbest yazılımcı ve güvenlik merkezi koordinatörü
Yaş: 37
İleti: 1381
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL



Cevap: UserForm Login Ekranı Validation Örneği

İleti#35)  sinanplater » 28 Tem 2014 03:03

Kodlar aşağıdaki gibidir ...

Kod: Tümünü seç
Option Explicit
Dim ws As Worksheet
Dim cl As Range
Dim rng As Range
Dim bOK As Boolean
Dim lRw As Long
Dim iCounta As Integer
Dim iLevel As Integer
Dim sPW As String
Dim sUser As String
Dim sMsg As String
Const sTitle As String = "Hatali sifre"
Const sStyle As String = vbOKOnly + vbExclamation
Const FullHeight As Long = 230
Const InitialHeight As Long = 150


Kod: Tümünü seç
Sub validatePW()
On Error GoTo err_handler

    If Me.cboUser.Value = "Mudur" And Me.tbxPW = Sheet1.Cells(2, 1).Value Then
        Me.cmdManage.Visible = True
        Exit Sub
    End If

    Select Case iCounta
    Case 1, 2, 3
        With Sheet1
            Set rng = .Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp))
            Set cl = rng.Find(sUser, LookIn:=xlValues)
        End With
        If cl.Offset(0, 1).Value <> Me.tbxPW.Text Then
            sMsg = "You have entered an incorrect Password" _
                   & vbNewLine & "Try again" & vbNewLine & _
                   "You have " & iCounta & " goes left"
            MsgBox sMsg, sStyle, sTitle
            With Me
                .cboUser.Value = vbNullString
                .tbxPW = vbNullString
                .cboUser.SetFocus
                Exit Sub
            End With
        ElseIf cl.Offset(0, 1).Value = Me.tbxPW.Text Then
            iLevel = cl.Offset(0, 2).Value
            MsgBox "Dogru bilgi girilsi. Lutfen devam edin.", vbOKOnly + _
                                                                    vbInformation, "Dogru."
            Me.cmdNew.Visible = True
            bOK = True

            Select Case iLevel
            Case 1
                For Each ws In ThisWorkbook.Sheets
                    Select Case ws.Name
                    Case "Dept1"
                        ws.Visible = xlSheetVisible
                    Case Else
                        On Error Resume Next
                        ws.Visible = xlSheetVeryHidden
                        On Error GoTo 0
                    End Select
                Next
            Case 2
                For Each ws In ThisWorkbook.Sheets
                    Select Case ws.Name
                    Case "Dept2", "Dept3"
                        ws.Visible = xlSheetVisible
                    Case Else
                        On Error Resume Next
                        ws.Visible = xlSheetVeryHidden
                        On Error GoTo 0
                    End Select
                Next
            Case 3
                For Each ws In ThisWorkbook.Sheets
                    Select Case ws.Name
                    Case "Dept1", "Dept2", "Dept3"
                        ws.Visible = xlSheetVisible
                    Case Else
                        On Error Resume Next
                        ws.Visible = xlSheetVeryHidden
                        On Error GoTo 0
                    End Select
                Next
            End Select
            ' Unload Me
        End If
        Sheets("Splash").Visible = xlVeryHidden

    Case 0
        MsgBox "3 defa denediniz. Uygulama kapatilacak" _
               , vbOKOnly + vbExclamation, "Ikaz"
        bOK = True
        Unload Me
err_handler:
        ActiveWorkbook.Close SaveChanges:=False
    End Select

End Sub


Kod: Tümünü seç
Private Sub cboUser_Change()
    lRw = Me.cboUser.ListIndex + 2
End Sub


Kod: Tümünü seç
Private Sub cmdManage_Click()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
    bOK = True
    Unload Me
End Sub


Kod: Tümünü seç
Private Sub cmdNew_Click()
    Me.Height = FullHeight
End Sub


Kod: Tümünü seç
Private Sub cmdUpdate_Click()
    With Me
        If .tbxNewPassword.Text <> .tbxConfirm.Text Then
            MsgBox "Yeni sifre ve tekrari eslesmedi", vbCritical, "Hatali giris"
            .tbxConfirm.Value = Empty
            .tbxNewPassword = Empty
        Else: Sheet1.Range("users").Cells(lRw, 2).Value = .tbxNewPassword.Text
        End If
        Unload Me
        End With
    End Sub


Kod: Tümünü seç
Private Sub cmdValidatePW_Click()
    sUser = Me.cboUser.Text
    sPW = Me.tbxPW.Text
    iCounta = iCounta - 1
    validatePW
End Sub


Kod: Tümünü seç
Private Sub UserForm_Initialize()
    iCounta = 3
    With Sheet1
        Me.cboUser.List = .Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value
    End With
    Me.cboUser.SetFocus
    Me.Height = InitialHeight
End Sub


Kod: Tümünü seç
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If bOK Then GoTo git
    If CloseMode = 0 Then Cancel = True
    MsgBox "Üzgünüm, sifre ve kullanici girilmek zorundadir ...", vbExclamation, "Dikkat"
git:
End Sub


[mersi]
Kullanıcı avatarı
sinanplater
Site Dostu
 
Adı Soyadı:SİNAN POLATER
Kayıt: 12 Şub 2012 19:41
Meslek: Serbest yazılımcı ve güvenlik merkezi koordinatörü
Yaş: 37
İleti: 1381
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL



Cevap: UserForm Login Ekranı Validation Örneği

İleti#36)  Tarkan VURAL » 06 Ağu 2014 22:07

Paylaşım için teşekkürler. Türkçeleştirmeyi atladığınız yerler kalmış.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26823
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Login Ekranı Validation Örneği

İleti#37)  sinanplater » 06 Ağu 2014 22:09

Zamanla alışıyorum Tarkan Bey. Yabancı kaynaklar & Türkçe kaynaklar bazen içiçe geçiyor. Mazur görün .

:oops:
Kullanıcı avatarı
sinanplater
Site Dostu
 
Adı Soyadı:SİNAN POLATER
Kayıt: 12 Şub 2012 19:41
Meslek: Serbest yazılımcı ve güvenlik merkezi koordinatörü
Yaş: 37
İleti: 1381
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL



Cevap: UserForm Login Ekranı Validation Örneği

İleti#38)  altindal » 09 May 2015 21:50

Elinize sağlık Tarkan Bey. şkşk
Kullanıcı avatarı
altindal
Yeni Başlamış
 
Kayıt: 20 Oca 2015 13:09
Meslek: Makine Mühendisi
Yaş: 29
İleti: 24
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İstanbul

Cevap: UserForm Login Ekranı Validation Örneği

İleti#39)  east77 » 05 Nis 2016 12:57

Merhaba sadece sormak istediğim. Açılışta userform (Login Ekranı) hangi kodla ve ya ayarla geliyor...
Kullanıcı avatarı
east77
 
Kayıt: 05 Nis 2016 11:46
Meslek: çoban
Yaş: 84
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: çorum

Cevap: UserForm Login Ekranı Validation Örneği

İleti#40)  seheryıldız » 05 Nis 2016 23:33

Merhaba Tarkan bey .
Öncelikle Ellerinize Yüreğinize sağlık, mükemmel bir paylaşım olmuş ve emin olun hepimizin aradığı bir uygulama idi.
Bu Login ekranı ile alakalı tek bir sorum olacak size müsaade ederseniz.

Kullanıcı adı yada parola içinde büyük küçük harf duyarlılığı söz konusu şu an için, bunu kaldırmak istersek hem büyük harf hem küçük harfler de de uygulamamız gerekirse, kodu hangi şekilde düzenlememiz gerekir ?
Kullanıcı avatarı
seheryıldız
Siteye Alışmış
 
Kayıt: 15 Nis 2015 10:21
Meslek: yönetici asistanı
Yaş: 31
İleti: 379
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul/maltepe

ÖncekiSonraki

Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe