Không nhập hoặc nhập sai pass vẫn đăng nhập

[hoangduy_90]

Chào các bạn,

Các bạn vui lòng giúp mình giải quyết bài toán: đăng nhập phải có password và được thay đổi password đăng nhập. Trong file đính kèm, nhập đúng, không nhập, hoặc nhập sai cũng cho đăng nhập luôn. Các bạn xem file đính kèm và nhín chút thời gian sửa giúp mình các code. Cảm ơn các bạn nhiều lắm.

 

[MinhNguyệt]

Mình gửi lại file với tên "LOG IN".

Nói chung file của bạn còn phải sửa nhiều theo cách làm của bạn, nhất là code trong các form. Tôi chỉ sửa cho bạn trong form login thôi, các form khác, bạn tự nghiên cứu làm tiếp nhé

 

[HideBoy]

HB cũng đóng góp một file login nhưng với yêu cầu là: User đó có quyền sử dụng những chức năng gì và không được làm gi đó. Bạn xem và có thể tự phát triển rộng hơn như: Tự sinh xâu quyền đăng nhập và mã hóa nó, khi login đúng người thì lại giải mã xâu để khẳng định quyền sử dụng các chức năng.
UI: admin, Pass: quangle (Quyền quản trị)
UI: hqle, Pass: hqle (Quyền người dùng)
Bạn có thể tùy biến sao cho phù hợp, lưu ý: Nếu quản trị nhiều người dùng thì Danh sách lưu thông tin trong sheet "USERS" bạn có thể link nó tới một file quản lý trên server. Vì sao chắc bạn hiểu!

Thân mến!

 

[sealand]

Bạn tham khảo file của mình xem sao. User nào thì Pass là tên người đó.
Riêng Viet là Admin nên mới về Exc được

 

[hoangduy_90]

Nhập nhưng không đổi pass sheet được

Chào các bạn. Các bạn xem giúp mình file đính kèm mình sai chỗ nào mà không đổi được pass sheet 1. Mình muốn sau khi đăng nhập sheet, user có thể tự đổi pass. Cảm ơn các bạn.

 

[HideBoy]

Code cho nút OK của fỏm đăng nhập

Private Sub OK_Click()
Dim d As String
d = OldPass.Text
If d = Cells(1, 1).Text Then
    MsgBox ("§¨ng nhËp thµnh c«ng")
    Unload Me
    Else
    MsgBox ("Sai mËt khÈu!")
    OldPass.SetFocus
End If
End Sub

Code cho nút OK của form sửa mật khẩu:

Private Sub OK_Click()
Dim a, b, c As String
Dim i As Integer
a = mkcu.Text
b = mkmoi.Text
c = remkmoi.Text
i = Cells(1, 1).Value
If a <> Cells(1, 1).Text Then
    MsgBox "Mat khau cu sai!"
    mkcu.SetFocus
    Else
    If b <> c Then
        MsgBox ("Mat khau moi khong khop!")
        mkmoi.SetFocus
        Else
        Cells(1, 1).Value = c
        MsgBox "Da thay doi mat khau!"
        Unload Me
    End If
End If
End Sub

HB: Bạn sử dụng With khi phải lặp lại nhiều lần một đối trượng nào đó,... sau khi hết tương tác với đối tượng đó thì End With ngay. Nếu một lần thì bạn gán luôn nhé (đỡ mất thời gian, câu lệnh thì dài,..). Bạn nên nhớ khi gán giá trị cho biến ở thời điểm nào thì phải nắm được giá trị của nó là bao nhiêu? Khi code cần lưu ý tính chặt chẽ của vấn đề! tránh rườm rà! Tất nhiên đây chỉ là trường hợp hết sức đơn giản! nên mình chỉ nói vậy thôi! Bạn phải biết một điều là bạn đang đăng nhập bằng user nào? với cell nào?,..
Trong ví dụ trên mình chỉ thẳng ra là đang làm việc với cells(1,1). Còn sau này bạn tùy biến sau! Hix

 

[sealand]

To hoangduy_90:

Tự bạn là khó bạn, chứ việc ấy nên đơn giản hơn. Cái chính là bố trí tất cả các Pass vào đâu cho hợp lý thôi. Bạn nên bố trí 1 sheet lưu toàn bộ Pass của các Sheet và cho ẩn đi. Sau đó khóa VBA lại. Chứ Pass mà lại lưu ở sheet thao tác nhỡ xóa mất thì sao. Mà đôi khi nó chình ình ra thì sao mà bảo mật.