- Katılım
- 17 Kasım 2019
- Mesajlar
- 39
- Excel Vers. ve Dili
- 2019,Türkçe
Arkadaşlar Merhaba;
arkadaşlar kullandığım bir userform ile yapılmış bir kullanıcı giriş formu var.Stabil çalışmakta (aşağıda kodu ileteceğim) 2 adet textbox 1. kullancı adı 2.şifre 1 adet Command Button giriş butonu mevcut şimdi istediğim şu
kodun içinde kullanıcı adı ve şifreyi değiştire biliyorum lakin bir userform ile bunu nasıl değiştire bilirim?
Private Sub CommandButton1_Click()
Dim username As String
Dim password As String
username = UserForm1.textboxUsername.Value
password = UserForm1.textboxPassword.Value
If username = "admin" And password = "123456" Then
MsgBox "BU EXCEL İNCİ 'E AİTTİR.", vbInformation, "İNCİ "
UserForm1.Hide
ThisWorkbook.Worksheets(1).Select
Else
MsgBox "Kullanıcı Adı Veya Şifre Yanlış..." & vbNewLine & "Lütfen Tekrar Deneyiniz...", vbCritical, "HATA"
UserForm1.textboxUsername.Value = ""
UserForm1.textboxPassword.Value = ""
End If
End Sub
arkadaşlar kullandığım bir userform ile yapılmış bir kullanıcı giriş formu var.Stabil çalışmakta (aşağıda kodu ileteceğim) 2 adet textbox 1. kullancı adı 2.şifre 1 adet Command Button giriş butonu mevcut şimdi istediğim şu
kodun içinde kullanıcı adı ve şifreyi değiştire biliyorum lakin bir userform ile bunu nasıl değiştire bilirim?
Private Sub CommandButton1_Click()
Dim username As String
Dim password As String
username = UserForm1.textboxUsername.Value
password = UserForm1.textboxPassword.Value
If username = "admin" And password = "123456" Then
MsgBox "BU EXCEL İNCİ 'E AİTTİR.", vbInformation, "İNCİ "
UserForm1.Hide
ThisWorkbook.Worksheets(1).Select
Else
MsgBox "Kullanıcı Adı Veya Şifre Yanlış..." & vbNewLine & "Lütfen Tekrar Deneyiniz...", vbCritical, "HATA"
UserForm1.textboxUsername.Value = ""
UserForm1.textboxPassword.Value = ""
End If
End Sub