Kullanıcı Adı ve Parola İle Giriş

[SanaLSukuL]

Forumda çok araştırdım örnekleri inceledim ama baya bu kullanıcı adı ve şifre girişli UserFormlu excell örnekleri karışık işmiş olmadı Yardım ederseniz sevinirim
SAYGILAR.....

Örnek bir resim yaptım resimde herşeyi anlattığımı sanıyorum.
Benim gibi acemilere sizin yardımlarınızla bir ışık tutar sanırım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki incelermisiniz.

http://www.excel.web.tr/viewtopic.php?p=41950#41950

 

[cems]

Sayın COST CONTROL
Bu linkteki ornekte verilen tum kullanıcı/passwordlerini her kombinasyonda denedim ama acılmadı ...Ben bi yerde mantık hatası mı yapıyorum yoksa bir problem mi var ornekteki sifre sorgusunda

Saygılar

 

[Korhan Ayhan]

Selamlar,

Sn. cems Office versiyonunuzu profilinize eklermisiniz. Ayrıca ben şimdi tekrar denedim ve çalışıyor. Herhangi bir hata mesajımı alıyorsunuz belirtirmisiniz.

 

[tevfikdemir]

Syn Cems

Sayın Costcontrol arkadaşımızın göndermiş olduğu dosya tam sizin istediğiniz gibi.Kullanıcı adı ve şifreyi girerken büyük harflarle giriş yapın

Kullanıcı Adı: ADMİN
Şifre : ADMİN

yada

Kullanıcı Adı: DENEME
Şifre : 12345


yada

Kullanıcı Adı: deneme
Şifre : test

şeklinde yazarsanız problemsiz bir şekilde giriş yapıyor.

Saygılar

 

[cems]

Sayın COST CONTROL
Sayın tevfikdemir

Acılan userforma ,sol ust kosede gorunen kullanıcı/passların hepsini aynen yazarak denedim hepsinde "vermesi gereken hata mesajını" 3cuden sonra actı ve kendini kapattı. sifre sayısı da fazla olmadıgından , size yazmadan once ters duz capraz sekilde 27 kombinasyon ihtimali de denedim olmadı.
Herhalde bu saatte beynim uyudu biseyi kacırıyorum ya da bir duzeltmeden once ben indirmis olabilirim ve sizin sorunsuz dedikleriniz duzeltildikten sonra indirilmis
olabilirmi... Bunu artık sabah yeniden indirip denerim artık cunki beynim :uyku: r
en iyisi dinlendirmek galiba...

Sevgiler ve iyi geceler

 

[SanaLSukuL]

Hocam nerde hata var allah aşkına söyleyin bu kodda olmuyor şifreyi geçemiyorum.
şifreleri sayfası sabit
kullanıcı AW9 hücresi
şifre B9 hücresi


Private Sub cmdşifre_Click()
If Sheets("sabit").Range("AW9") = "" Then
Sheets("sabit").Range("B9").Value = kullanıcı.Value
Sheets("sabit").Range("AW9").Value = şifre.Value
ActiveWorkbook.Save
Label79.ForeColor = &H8000& 'yeşil
Label79.Caption = "Sayın (" & (Sheets("sabit").Range("B9").Value) & "), Şifreniz kaydedildi." & vbCrLf & " Şifrenizi tekrar yazıp giriş düğmesine basınız! "
cmdşifre.Caption = "GİRİŞ"
şifre.Value = ""
şifre.SetFocus
Exit Sub
End If
If girişform.şifre.Value = Sheets("sabit").Range("AW9").Value Then
Application.Visible = True
girişform.Hide
UserForm1.Show
Exit Sub
Else
Label79.ForeColor = &HC0& 'kırmızı
Label79.Caption = "Yanlış şifre girdiniz! "
şifre.Value = ""
şifre.SetFocus

End If

End Sub
Private Sub şifre_Exit(ByVal Cancel As MSForms.ReturnBoolean)
şifre.Value = StrConv(şifre.Value, vbLowerCase)
End Sub
Private Sub UserForm_Activate()
If Sheets("sabit").[B9] <> "" Or Sheets("sabit").[AW9] <> "" Then
Label79.Visible = False
Label80.Visible = True
Label80.Caption = "Lütfen Şifrenizi giriniz!"
End If
kullanıcı.Value = Sheets("sabit").Range("B9").Value
If Sheets("sabit").Range("AW9") = "" Then 'şifre hücresi boş ise
Label79.ForeColor = &HC0& 'kırmızı
Label79.Caption = "Programı kullanmaya başlamadan önce kullanıcı adınızı ve şifrenizi kaydediniz! "
cmdşifre.Caption = "KAYIT"
kullanıcı.SetFocus
Sheets("sabit").Range("B9").Value = kullanıcı.Value
Sheets("sabit").Range("AW9").Value = şifre.Value
ActiveWorkbook.Save
Else
Label79.ForeColor = &H8000& 'yeşil
Label79.Caption = "Sayın " & (Sheets("sabit").Range("BL9").Value) & " Şifreniz kaydedildi. Şifrenizi tekrar yazıp giriş düğmesine basınız! "
cmdşifre.Caption = "GİRİŞ"
şifre.Value = ""
şifre.SetFocus
End If

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'If CloseMode <> 1 Then
Application.Quit
End Sub

 

[SanaLSukuL]

Örnek çalışmayı ekledim girişe bastığımda neden şifreyi hatırlayıp girmedi anlamıyorum.
Birde 2 ayrı labelden birine saat birine tarih nasıl koyabiliriz. Aslında yaptım ama kodları birleştiremedim.
Saygılar....

 

[SanaLSukuL]

pes ettim anlaşılmaz bir olay bu vba
beni aşıyor anladığım kadarıyla neyse herkese tşk ederim.
SAYGILAR....

 

[SanaLSukuL]

Bu kafama takıldı neden şifre den geçip userform açılmıyor allah aşkına bi yardım edin lütfen
örnek dosya üstte