[حل شده] تغییر رمز ورود توسط خود کاربر

[a.dal65]

با سلام خدمت اساتید
یه userformدارم که کاربر با نام کاربری و رمز عبور وارد فایل میشه
میخوام کاربر خودش بتونه رمزشو عوض کنه.

تقریبا تمام کارهاشو تونستم انجام بدم الا وقتی که پسورد خودشو کاربر بتونه تغییر بده (یعنی رمز جدیدی که وارد میکنه جای رمز قبلی بشینه)
ممنون میشم کمک بفرمائید.




user:عطا
Password:1

[Amir Ghasemiyan]

سلام دوست عزيز
حيف اين فايل خوب شماست كه از table استفاده نكرديد

لطفا اين كد رو جايگزين كدتون بكنيد و بررسي بفرماييد درست عمل ميكنه يا نه

If Me.TextBox3.Value <> Me.TextBox4.Value Then
MsgBox "رمزهاي جديد شما يكسان نيست", vbCritical + vbMsgBoxRight, "خطا"
Exit Sub
Else
    For Each UserName In Sheet5.Range("G2:G100")
        If UserName = user Then UserName.Offset(, 1) = Me.TextBox3.Value: Exit Sub
    Next UserName
End If

[a.dal65]

ممنون آقا امیر کد کاملا درست عمل میکنه .

[a.dal65]

امیر جان یه msg که اضافه میکنم کار نمیکنه
میخوام بگه با موفقیت تفییر کرد

If Me.TextBox3.Value <> Me.TextBox4.Value Then
MsgBox "ÑãÒåÇí ÌÏíÏ ÔãÇ íßÓÇä äíÓÊ", vbCritical + vbMsgBoxRight, "ÎØÇ"
Exit Sub
Else
    For Each UserName In Sheet5.Range("G2:G100")
        If UserName = user Then UserName.Offset(, 1) = Me.TextBox3.Value:
        MsgBox "باموفقیت تغییر پیدا کرد", vbInformation + vbMsgBoxRight, "ãæÝÞ"
        Exit Sub
    Next UserName
End If

همش زیر سر این :
هستش

[Amir Ghasemiyan]

من كه الان تست كردم درست كار ميكنه. هم پيام داد هم تغييرات رو اعمال كرد

[a.dal65]

والا امیر جان من خودمم گیج شدم
با یوزر عطا کار نمیکنه
با یوزر احمد کار میکنه
رمز هر دو 1 هستش
format cell هر دو مثل هم.

[Amir Ghasemiyan]

والا امیر جان من خودمم گیج شدم
با یوزر عطا کار نمیکنه
با یوزر احمد کار میکنه
رمز هر دو 1 هستش
format cell هر دو مثل هم.

كدتون مشكل داشت عزيز برادر

If Me.TextBox3.Value <> Me.TextBox4.Value Then
MsgBox "ÑãÒåÇí ÌÏíÏ ÔãÇ íßÓÇä äíÓÊ", vbCritical + vbMsgBoxRight, "ÎØÇ"
Exit Sub
Else
    For Each UserName In Sheet5.Range("G2:G100")
        If UserName = user Then
            UserName.Offset(, 1) = Me.TextBox3.Value
            MsgBox "ÑãÒ ÚÈæÑ ÈÇ ãæÝÞíÊ ÊÛííÑ íÏÇ ˜ÑÏ", vbInformation + vbMsgBoxRight, "ãæÝÞ"
            Exit Sub
        End If
    Next UserName
End If