Kullanıcı giriş formu şifre değişimi

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
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,802
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Aşağıdaki kod, kod sayfasının en üstünde olmalı.

Kod:
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
Aşağıdaki kodun nerede olduğu önemli değil, aynı dosyada olması yeterli.
Aşağıdaki kodlarda .DeleteLines 6 ve .InsertLines 6 da bulunan 6 rakamı en yukarıdaki kodlarda
If username = "admin" And password = "123456" Then satırının satır numarasını ifade ediyor. Eğer bu satırın satır numarası değişirse 6 rakamını da ona göre değiştirmelisiniz.

Kod:
Sub SifreDegistir()
    Dim YeniSifre As String
    Dim YeniKullaniciAdi As String
    YeniKullaniciAdi = InputBox("Yeni kullanıcı adını giriniz.")
    YeniSifre = InputBox("Yeni Şifreyi giriniz.")
    If YeniKullaniciAdi = "" Or YeniSifre = "" Then
        MsgBox "Yeni Kullanıcı adı ve Yeni Şifre boş olamaz. Lütfen yeniden deneyiniz.", vbExclamation
        Exit Sub
    End If
 
    With Workbooks(ActiveWorkbook.Name).VBProject.VBComponents("Module1").CodeModule
        .DeleteLines 6
        .InsertLines 6, "    if username = " & """" & YeniKullaniciAdi & """" & " And password = " & """" & YeniSifre & """" & "then"
    End With
End Sub
SifreDegistir kodlarını çalıştırarak şifre ve kullanıcı adını kodlar içerisinde de değiştirebilirsiniz.
 
Katılım
17 Kasım 2019
Mesajlar
39
Excel Vers. ve Dili
2019,Türkçe
Merhaba.
Aşağıdaki kod, kod sayfasının en üstünde olmalı.

Kod:
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
Aşağıdaki kodun nerede olduğu önemli değil, aynı dosyada olması yeterli.
Aşağıdaki kodlarda .DeleteLines 6 ve .InsertLines 6 da bulunan 6 rakamı en yukarıdaki kodlarda
If username = "admin" And password = "123456" Then satırının satır numarasını ifade ediyor. Eğer bu satırın satır numarası değişirse 6 rakamını da ona göre değiştirmelisiniz.

Kod:
Sub SifreDegistir()
    Dim YeniSifre As String
    Dim YeniKullaniciAdi As String
    YeniKullaniciAdi = InputBox("Yeni kullanıcı adını giriniz.")
    YeniSifre = InputBox("Yeni Şifreyi giriniz.")
    If YeniKullaniciAdi = "" Or YeniSifre = "" Then
        MsgBox "Yeni Kullanıcı adı ve Yeni Şifre boş olamaz. Lütfen yeniden deneyiniz.", vbExclamation
        Exit Sub
    End If

    With Workbooks(ActiveWorkbook.Name).VBProject.VBComponents("Module1").CodeModule
        .DeleteLines 6
        .InsertLines 6, "    if username = " & """" & YeniKullaniciAdi & """" & " And password = " & """" & YeniSifre & """" & "then"
    End With
End Sub
SifreDegistir kodlarını çalıştırarak şifre ve kullanıcı adını kodlar içerisinde de değiştirebilirsiniz.
teşekkürler
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,802
Excel Vers. ve Dili
2019 Türkçe
Rica ederim. İyi çalışmalar.
 
Üst