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

[anthraxx02]

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]

Merhaba.
Aşağıdaki kod, kod sayfasının en üstünde olmalı.

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.

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.

 

[anthraxx02]

Merhaba.
Aşağıdaki kod, kod sayfasının en üstünde olmalı.

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.

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]

Rica ederim. İyi çalışmalar.