تغییر اطلاعات

[Meysam6335]

با سلام

لطفا فایل ضمیمه را بررسی نمایید.
توضیح : کنترل فقط پسورد گزینه مناسبی نیست و نام کاربری به فرم شما اضافه شد اگر نخواستید میتوانید آن را حذف کنید.

Private Sub CommandButton2_Click()
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(3).Row

If Val(TextBox2.Text) <> Val(TextBox3.Text) Then
    MsgBox "تکرار رمز همخواني ندارند"
    Exit Sub
End If
For Each cell In Range("a2:a" & Lastrow)
    If cell.Value = Val(TextBox4.Text) And cell.Offset(0, 1) = Val(TextBox1.Text) Then
    cell.Value = Val(TextBox4.Text)
    cell.Offset(0, 1) = Val(TextBox2.Text)

Exit Sub
Else
MsgBox " رمز يا نام کاربري وارد شده صحيح نمي باشد"
End If
Exit Sub
Next
End Sub

موفق باشید میر

سلام
ممنون از فایلتون
استاد تو فایل ازسالی شما فقط کاربر 1 متونه رمز عبور خودش را عوض که و کاربران 2 و3 و4 قادر به تغییر رمز عبور خود نیستند

[majid_mx4]

با سلام

لطفا فایل ضمیمه را بررسی نمایید.
توضیح : کنترل فقط پسورد گزینه مناسبی نیست و نام کاربری به فرم شما اضافه شد اگر نخواستید میتوانید آن را حذف کنید.

Private Sub CommandButton2_Click()
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(3).Row

If Val(TextBox2.Text) <> Val(TextBox3.Text) Then
    MsgBox "تکرار رمز همخواني ندارند"
    Exit Sub
End If
For Each cell In Range("a2:a" & Lastrow)
    If cell.Value = Val(TextBox4.Text) And cell.Offset(0, 1) = Val(TextBox1.Text) Then
    cell.Value = Val(TextBox4.Text)
    cell.Offset(0, 1) = Val(TextBox2.Text)

Exit Sub
Else
MsgBox " رمز يا نام کاربري وارد شده صحيح نمي باشد"
End If
Exit Sub
Next
End Sub

موفق باشید میر

[Meysam6335]

سلام
برای تغییر رمز عبور کاربران نیاز به راهنمای دارم

در فایل پیوست هر کاربر چطور میتونه رمز عبور خودش را تغییر بده