Kullanıcının Eski şifresini Değiştirme.

[Fre3D]

Arkadaşlar kullanıcı porolasını güncelleme yaptıracam.Exelde eski poralanın yerine güncelenip yazılacak.Bizahmet yardımcı olursanız sevinirim.

 

[yerbakili]

Maşallah Türkçeyi epey bir katletmişsiniz.

 

[Fre3D]

hızlı yazmısım pardon .

 

[yerbakili]

Katletmeye devam ediyorsunuz.

 

[Fre3D]

nerde hatam var söyle ozman

 

[Murat OSMA]

"Bil bakalım hatam nerede ?" gibi olmuş...

Yanlış anlamayın, eleştirmek maksadıyla yazmıyorum...

■ Cümlenin ilk harfi büyük yazılır.
■ Nerde değil, nerede yazılır.
■"Var" kelimesinden sonra virgül koysaydınız iyi olurdu..
■ Ozman değil o zaman yazılır.
■ Cümle bitiminde ? olması gerekirdi.

Hadi bunları geçelim, ama size sen değil de, siz diye hitabeden bir kişiye "söyle o zaman" demeniz hoş olmamış...

Unutmayın: yazı biçiminiz, sizin karakterinizi ortaya koyar !

Saygılar

 

[Fre3D]

Haklısınız. Bir şey diyemem. Konu hakkında yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Merhaba,

Şifre değiştirme işlemi için kullanıcı adını bir yerde saklamanız uygun olacaktır.

Formunuzun üzerine bir Textbox daha ekleyin. Adı TextBox3 olsun.

Aşağıdaki kodu KAYDET isimli tuşa tanımlayın.

Private Sub CommandButton1_Click()
    Dim BUL As Range
    
    If TextBox2 = "" Then
        MsgBox "Lütfen yeni şifre bölümünü doldurunuz !", vbCritical
        TextBox2.SetFocus
        Exit Sub
    End If
    
    If TextBox3 = "" Then
        MsgBox "Lütfen kullanıcı adını giriniz !", vbCritical
        TextBox3.SetFocus
        Exit Sub
    End If
    
    Set BUL = Sheets("USERS").Range("B:B").Find(TextBox3, , , xlWhole)
    If Not BUL Is Nothing Then
        Sheets("USERS").Cells(BUL.Row, "C") = TextBox2
        MsgBox "Şifre değiştirme işlemi tamamlandı.", vbInformation
        Set BUL = Nothing
    Else
        MsgBox "İlgili kullanıcı bulunamadı !", vbCritical
    End If
End Sub

 

[Fre3D]

Sağolun kod için. Ellerinize sağlık.

 

[Fre3D]

Korhan bey sizin yapmış olduğunuz kod uyguladım. Ama ilgili kullanıcı bulunamadı diyor. Normal'de USERS sayfasında kayıtlı bulunmaktadır.

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımda sanırım eksik ifade kullanmışım.

Formunuzun üzerine eklediğiniz TextBox3 nesnesine kullanıcı adını yazıp o şekilde şifre değiştirme işlemini yapın.

 

[Fre3D]

Benim gözden kaçırdığım bir hata varmış. Kusura bakmayınız. Yardımlarınız için sağolun.