Login Form

[burakkaragoz]

Herkese Merhaba,

Ekteki dosyalara birtürlü login form yapamadım. Yardımcı olabilecek birileri varmı?

 

[BedriA]

Herkese Merhaba,

Ekteki dosyalara birtürlü login form yapamadım. Yardımcı olabilecek birileri varmı?

Userform ile kayıt mı tutmak istiyorsunuz?

 

[burakkaragoz]

hayır userform la login pass girişi yapılıyor ya onu beceremedim. takıldığım nokta şu sıfır bir excel dosyası açıyorum, visual basic kısmına girip
ThisWorkbook" kısmına yazın

Private Sub workbook_open()
Application.Visible = False
UserForm1.Show
End Sub

'Dosyanıza ekleyeceğiniz Userforma bir CommandButton ve iki Textbox yerleştirin ve aşağıdaki kodu Userformun kod kısmına girin

Private Sub CommandButton1_Click()
If TextBox1.Value = "Ali" Or TextBox1.Value = "Veli" Then
goto Kontrol2
Else
Unload UserForm1
MsgBox "Üzgünüm girdiğiniz kullanıcı adı hatalı.", vbCritical, "HATA"
ActiveWorkbook.Close 0
Exit Sub
EndIf
Kontrol2:
If TextBox2.Value = "123" Or TextBox2.Value = "456" Then
MsgBox "Programa girişiniz onaylanmıştır.", vbInformation
Unload Me
Application.Visible = True
Else
Unload UserForm1
MsgBox "Üzgünüm girdiğiniz parola hatalı.", vbCritical, "HATA"
ActiveWorkbook.Close 0
Exit Sub
EndIf
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True
End Sub

'Ayrıca Textbox2'nin Properties kısmında bulunan "PasswordChar" bölümüne "*" (yıldız) işareti koyarsanız girilen parola ekranda "*****" şeklinde görünecektir.

Bu işlemleri yapıyorum kaydete basıyorum kaydedilemez diyo makro yok filan diyip.

 

[burakkaragoz]

Benim istediğim şey güzel görüntülü bir login pass ekranıyla korumaya alıp sadece benim giriş sağlamam. bunun üzerine çalışıyorum fakat yapamadım açıkcası ilk denemem vba da bu uygumala

 

[işsiz123]

Deneyiniz.
kullanıcıadı = burak
şifre=1111

kullanıcıadı = emin
şifre=123

kullanıcıları kullanıcı sayfasından çoğaltabilirsiniz.

 

[burakkaragoz]

Tam istediğim gibi birşey sorucam ikinci kısmın sadece resimini değiştirdim hata vermeye başladı?

 

[işsiz123]

Sadece resim ise hata vermemesi lazımdı

 

[burakkaragoz]

Kullanıcı sayfasını bulamadım birde

 

[işsiz123]

Kullanıcı Sayfası Nerede Sayfa gizli sayfa özelliklerinden bakabilirsiniz.

 

[burakkaragoz]

Çok teşekkür ederim

 

[burakkaragoz]

Peki ikinci sayfayı kaldırmak için ne yapmam gerekiyor yani ikisi arasındaki bağlantıyı sağlayan kod var mı usurform1 in içinde ordanda satır silmem gerekir mi?