• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Login Form

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.
 
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
 
Deneyiniz.
kullanıcıadı = burak
şifre=1111

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

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

Ekli dosyalar

Tam istediğim gibi birşey sorucam ikinci kısmın sadece resimini değiştirdim hata vermeye başladı?
 
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?
 
Geri
Üst