Form thay đổi User + Pass. (1 người xem)

[khamha]

Nhờ các bạn viết Code cho Form thay đổi User + Tên và Mật Khẩu ,Các bạn xem ảnh & File đính kèm.

&

&

&
File đính kèm: http://laoupload.com/62AELHR68AV2/ThayDoi-User_Pass.7z.html

 

[dhn46]

Anh có thể làm như sau
Code nút lệnh Cm_thaydoi

Private Sub Cm_thaydoi_Click()
    Dim Fuser As Range
    Set Fuser = Sheets("P").[A2].Resize(Sheets("P").[A65536].End(3).Row - 1).Find(TED01.Value, , xlFormulas, xlWhole)
    If Not Fuser Is Nothing Then
        If Fuser.Offset(0, 1) = TED02 Then
            If Fuser.Offset(0, 2).Text = TED03.Text Then
                UF_EditUP.Height = 315
            End If
        End If
    End If
End Sub

Code nút lệnh Cm_Chapnhan

Private Sub Cm_Chapnhan_Click()
    Dim Fuser As Range
    Set Fuser = Sheets("P").[A2].Resize([A65536].End(3).Row).Find(TED01.Value, , xlFormulas, xlWhole)
    If TED06 = TED07 Then
        If Not Fuser Is Nothing Then
            Fuser = TED04
            Fuser.Offset(, 1) = TED05
            Fuser.Offset(, 2) = TED06
        Else
            MsgBox "Please check Old Information"
        End If
    Else
        MsgBox "Please check New Password and Confirm Password"
    End If
    Unload Me
End Sub

 

[Que Diêm]

Anh có thể làm như sau
Code nút lệnh Cm_thaydoi

Private Sub Cm_thaydoi_Click()
    Dim Fuser As Range
    Set Fuser = Sheets("P").[A2].Resize(Sheets("P").[A65536].End(3).Row - 1).Find(TED01.Value, , xlFormulas, xlWhole)
    If Not Fuser Is Nothing Then
        If Fuser.Offset(0, 1) = TED02 Then
            If Fuser.Offset(0, 2).Text = TED03.Text Then
                UF_EditUP.Height = 315
            End If
        End If
    End If
End Sub

Code nút lệnh Cm_Chapnhan

Private Sub Cm_Chapnhan_Click()
    Dim Fuser As Range
    Set Fuser = Sheets("P").[A2].Resize([A65536].End(3).Row).Find(TED01.Value, , xlFormulas, xlWhole)
    If TED06 = TED07 Then
        If Not Fuser Is Nothing Then
            Fuser = TED04
            Fuser.Offset(, 1) = TED05
            Fuser.Offset(, 2) = TED06
        Else
            MsgBox "Please check Old Information"
        End If
    Else
        MsgBox "Please check New Password and Confirm Password"
    End If
    Unload Me
End Sub

Bạn có thể upfie hoặc links khác lên cho mình tham khảo với được không?
Mình vào links ở bài 1 không hiểu sao không thể tải nổi file về được?
Cảm ơn!

 

[khamha]

Link down vẫn OK mà:



&



&



&

 

[Que Diêm]

Cảm ơn bạn!
Lúc đó mình cũng đã làm như bạn và cũng đã hiện lên khung IDM rồi nhưng không thấy hiện dung lượng của file lên không download được!
Giờ thì ổn rồi, có thể lỗi do idm.
-----------------
Không hiểu sao mình đã thử với code của dhn chỉ dẫn ở trên mà lại lỗi như hình ảnh đính kèm.
Phải chăng là do mình để code không đúng chỗ.
Phiền các bạn xem lại dùm mình với.
Cảm ơn!

 

[dhn46]

Trong quá trình sửa Code (lý do ở tôi đã viết ở trên) có nói thay Fuser

    Set Fuser = Sheets("P").[A2].Resize([COLOR=#ff0000]Sheets("P").[/COLOR][A65536].End(3).Row - 1).Find(TED01.Value, , xlFormulas, xlWhole)

Bạn thay thêm đoạn màu đỏ trong Code của nút lệnh Chấp nhận là được