[Xin giúp đỡ] Check user và pass, sau đó tìm ra level dùng VBA

gameonly308 · 14/5/19

Em có user form như sau:

Và data trong 3 cột user - level và pass

Em muốn viết trên User Form để khi điền vào user và pass, nếu thỏa mãn thì sẽ kiểm tra level của user .
Sau đó nếu là level 1 thì gọi userform "a1"
Sau đó nếu là level 2 thì gọi userform "a2"
Sau đó nếu là level 3 thì gọi userform "a3"
Sau đó nếu là level 4 thì gọi userform "a4"
Có bác nào thạo phần này giúp em với !Em cảm ơn ạ!
File Excel ở dưới ạ, em quên mất ko upfile @@

huuthang_bd · 14/5/19

Không lẽ bạn chờ người khác làm file rồi viết code luôn à?
Mà thông tin để trên sheet thì thôi khỏi mật khẩu chi cho mất công bạn.

leonguyenz · 14/5/19

Nếu là file của anh HTN viết thì bạn hỏi trong box đó, anh ấy hỗ trợ.

gameonly308 · 14/5/19

huuthang_bd đã viết:
Không lẽ bạn chờ người khác làm file rồi viết code luôn à?
Mà thông tin để trên sheet thì thôi khỏi mật khẩu chi cho mất công bạn.

Em đang mò mẫm ạ, tại tự học nên vốn kiến thức không nhiều, còn 1 số cái em làm được rồi, cái này mới e chưa biết nên hỏi ạ.
Thông tin để trên sheet bình thường thôi ạ, em muốn làm để học + tính thống nhất cao trên 1 file excel chứ ko riêng bảo mật ạ.
Chứ nếu em code mà chạy dược thì không cần hướng dẫn rồi, hoặc anh biết ở đâu có hướng dẫn dạng kiểu này cho em link em học với ạ.
Còn không thì anh biết anh hướng dẫn em cách code với!

Bài đã được tự động gộp: 14/5/19

leonguyenz đã viết:
Nếu là file của anh HTN viết thì bạn hỏi trong box đó, anh ấy hỗ trợ.

Em ko lấy của ai ạ, tự nghĩ ra trong quá trình tự làm cho mình dùng thôi. Đến đoạn này ko biết làm tnao nên lên GPE hỏi ạ

thuyyeu99 · 14/5/19

huuthang_bd,@kieu manh .v..v.. mình thấy cũng có làm máy cái License đó hihiihi

gameonly308 · 14/5/19

Em cần học cách search user và pass trên vba sau đó lấy level của user đó, chứ còn insert qua sheet trung gian rồi lại lấy data từ sheet đó để thì có thể làm đc ạ.
Em thấy có hướng dẫn kết hợp dùng hàm Find trên VBA mà em ko biết cách làm ạ!

Kiều Mạnh · 14/5/19

thuyyeu99 đã viết:
huuthang_bd,@kieu manh .v..v.. mình thấy cũng có làm máy cái License đó hihiihi

làm được đó ... Mạnh viết trên VB6 (DLL có cái Form trong đó.. nhạp mã máy đăng ký ) ... còn delphi đang suy nghĩ code két sao ???? mò mò tiếp

gameonly308 · 14/5/19

kieu manh đã viết:
làm được đó ... Mạnh viết trên VB6 ... còn delphi đang suy nghĩ code két sao ???? mò mò tiếp

Bác ơi bác là chuyên gia, bác cho em xin vài dòng code để làm cho hoàn thiện với ạ

Kiều Mạnh · 14/5/19

gameonly308 đã viết:
Bác ơi bác là chuyên gia, bác cho em xin vài dòng code để làm cho hoàn thiện với ạ

Bạn nên tìm trong bài của @Hoàng Trọng Nghĩa là thấy cái bạn cần .... vba làm đơn giản còn hỏi vậy thì vb6 làm sao đây ??
đâu phải 1 vài dòng code là xong ... nó liên quan rất nhiều code trong 1 dự án code !!

leonguyenz · 14/5/19

gameonly308 đã viết:
Em đang mò mẫm ạ, tại tự học nên vốn kiến thức không nhiều, còn 1 số cái em làm được rồi, cái này mới e chưa biết nên hỏi ạ.
Thông tin để trên sheet bình thường thôi ạ, em muốn làm để học + tính thống nhất cao trên 1 file excel chứ ko riêng bảo mật ạ.
Chứ nếu em code mà chạy dược thì không cần hướng dẫn rồi, hoặc anh biết ở đâu có hướng dẫn dạng kiểu này cho em link em học với ạ.
Còn không thì anh biết anh hướng dẫn em cách code với!

Bài đã được tự động gộp: 14/5/19

Em ko lấy của ai ạ, tự nghĩ ra trong quá trình tự làm cho mình dùng thôi. Đến đoạn này ko biết làm tnao nên lên GPE hỏi ạ

Bạn tham khảo bài này:
Tặng các bạn File đăng nhập, Admin có thể tạo User mới

gameonly308 · 14/5/19

kieu manh đã viết:
Bạn nên tìm trong bài của @Hoàng Trọng Nghĩa là thấy cái bạn cần .... vba làm đơn giản còn hỏi vậy thì vb6 làm sao đây ??
đâu phải 1 vài dòng code là xong ... nó liên quan rất nhiều code trong 1 dự án code !!

Em không biết nó khó thế nào trên vb hoàn toàn, nhưng nếu chạy qua 1 sheet trung gian để kiểm tra user và pass để lấy level thì em làm được ngay mà bác! Đâu khó đến mức 1 dự án code đâu ạ?

thuyyeu99 · 15/5/19

kieu manh đã viết:
làm được đó ... Mạnh viết trên VB6 (DLL có cái Form trong đó.. nhạp mã máy đăng ký ) ... còn delphi đang suy nghĩ code két sao ???? mò mò tiếp

nó cũng giống na na như vb thôi anh (hồi mới mò Delphi em cũng có viết thử rồi). em cũng mò check thời gian mà chưa ra hướng nào hay

gameonly308 · 15/5/19

leonguyenz đã viết:
Bạn tham khảo bài này:
Tặng các bạn File đăng nhập, Admin có thể tạo User mới

Em làm đơn giản = check user trong list, nếu tồn tại user thì gán user + pass đăng nhập vào 2 ô trong sheet.
Sau đó check = hàm giữa user và pass vừa gán với user và pass trong list khớp không, nếu khớp thì gọi ra level của user đó.
Kết quả là ok.
Nhưng em muốn học hoàn toàn = code VBA, không gán giá trị vào sheet nữa ạ!

ongke0711 · 15/5/19

gameonly308 đã viết:
Em làm đơn giản = check user trong list, nếu tồn tại user thì gán user + pass đăng nhập vào 2 ô trong sheet.
Sau đó check = hàm giữa user và pass vừa gán với user và pass trong list khớp không, nếu khớp thì gọi ra level của user đó.
Kết quả là ok.
Nhưng em muốn học hoàn toàn = code VBA, không gán giá trị vào sheet nữa ạ!

Góp thêm ý nhé.
Làm Form đăng nhập có 2 kiểu:
- Chỉ được chọn User trong danh sách đã thiết lập sẳn qua combobox. Khi đó code chỉ cần kiểm tra trong ds User có đúng với User đã chọn hay không
- Tự gõ tên User vô rồi code sẽ check cả User lẫn Pass.
Bạn đang muốn làm theo cách nào?

Làm theo cách 1, sẽ ít code hơn.
- Tạo 2 textbox: 1lưu mật khẩu, 1 lưu UserLevel ngay trên Form. 2 textbox này bạn cho ẩn đi. Vd: txtPassTemp, txtUserLevel
- Khi người dùng chọn User từ Combobox, sự kiện AfterUpdate sẽ gán sẳn Pass và level của User đó vô 2 textbox ẩn ở trên.
- Khi nhập pass sẽ đối chiếu với txtPassTemp để thực các thao tác sau đó.

Xem demo cơ bản nhé.

gameonly308 · 15/5/19

ongke0711 đã viết:
Góp thêm ý nhé.
Làm Form đăng nhập có 2 kiểu:
- Chỉ được chọn User trong danh sách đã thiết lập sẳn qua combobox. Khi đó code chỉ cần kiểm tra password có đúng với User đã chọn hay không
- Tự gõ tên User vô rồi code sẽ check cả User lẫn Pass.
Bạn đang muốn làm theo cách nào?

Làm theo cách 1, sẽ ít code hơn.
- Tạo 2 textbox: 1lưu mật khẩu, 1 lưu UserLevel ngay trên Form. 2 textbox này bạn cho ẩn đi. Vd: txtPassTemp, txtUserLevel
- Khi người dùng chọn User từ Combobox, sự kiện AfterUpdate sẽ gán sẳn Pass và level của User đó vô 2 textbox ẩn ở trên.
- Khi nhập pass sẽ đối chiếu với txtPassTemp để thực các thao tác sau đó.

Xem demo cơ bản nhé.

Em cảm ơn bác đã góp ý ạ.
Ý của em là muốn user + pass người dùng phải tự điền vào.
Ứng với mỗi user và pass sẽ tìm ra 1 level đã được quy định trong 1 bảng danh sách cho trước để load form.
Vậy suy cho cùng em vẫn phải dùng danh sách trên sheet2 để check user là level mấy bác nhỉ.
Bác kiểm tra cho em với, xem cách check trên Sheet2 của User và Pass như thế này có hiệu quả về mặt sử dụng, và tinh gọn về mặt code không ạ.

ongke0711 · 15/5/19

gameonly308 đã viết:
Em cảm ơn bác đã góp ý ạ.
Ý của em là muốn user + pass người dùng phải tự điền vào.
Ứng với mỗi user và pass sẽ tìm ra 1 level đã được quy định trong 1 bảng danh sách cho trước để load form.
Vậy suy cho cùng em vẫn phải dùng danh sách trên sheet2 để check user là level mấy bác nhỉ.
Bác kiểm tra cho em với, xem cách check trên Sheet2 của User và Pass như thế này có hiệu quả về mặt sử dụng, và tinh gọn về mặt code không ạ.

Trong demo tôi dùng biến toàn cục để lưu User và UserLevel rồi đó bạn. Cần gì phải lưu User/Pass đã đăng nhập xuống Sheet. Sau đó ở các sự kiện khác của ứng dụng, cái nào cần kiểm tra UserLevel thì móc cái biến toàn cục đó ra đối chiếu thôi.
Bạn lưu xuống Sheet nếu bạn muốn theo dõi hoạt động của User đăng nhập, ngày giờ đăng nhập, thoát để truy cứu nếu có phát sinh việc gì đó. Lưu vào LogFile chẳng hạn.
Tôi thấy bạn tốn vừa code vừa công thức cho ô pass check và level check rồi đó.

gameonly308 · 15/5/19

ongke0711 đã viết:
Trong demo tôi dùng biến toàn cục để lưu User và UserLevel rồi đó bạn. Cần gì phải lưu User/Pass đã đăng nhập xuống Sheet. Sau đó ở các sự kiện khác của ứng dụng, cái nào cần kiểm tra UserLevel thì móc cái biến toàn cục đó ra đối chiếu thôi.
Bạn lưu xuống Sheet nếu bạn muốn theo dõi hoạt động của User đăng nhập, ngày giờ đăng nhập, thoát để truy cứu nếu có phát sinh việc gì đó. Lưu vào LogFile chẳng hạn.
Tôi thấy bạn tốn vừa code vừa công thức cho ô pass check và level check rồi đó.

Vâng em cảm ơn bác, về phần các hàm VBA em không biết nhiều do chả được học hành gì, em sẽ nghiên cứu thêm và áp dụng cách của bác cho tiện hơn. Có những chỗ nào không hiểu mong bác dành thời gian quan tâm thêm giúp em với nhé !.

ongke0711 · 15/5/19

gameonly308 đã viết:
Vâng em cảm ơn bác, về phần các hàm VBA em không biết nhiều do chả được học hành gì, em sẽ nghiên cứu thêm và áp dụng cách của bác cho tiện hơn. Có những chỗ nào không hiểu mong bác dành thời gian quan tâm thêm giúp em với nhé !.

- Bạn nên tập thói quen khai báo biến tường minh (Option Explicit) để VBA có thể giúp kiểm tra, tránh gõ sai tên biến trong code
- Khai báo loại dữ liệu luôn càng tốt để VBA nó dành bộ nhớ cho từng biến đúng kiểu dữ liệu của nó, tránh phân bổ dư thừa bộ nhớ.

Dựa theo file của bạn, code cho nút [Login] thiết kế đơn giản như bên dưới:

Mã:

Private Sub login_cmb_Click()
    Const TB As String = "Thông Báo!"
    Dim rngFoundCell As Range
   
    Application.ScreenUpdating = False
    If Trim(user_txt.Text) = "" Or Trim(pass_txt.Text) = "" Then
        MsgBox "Please enter UserName and Password!", vbOKOnly, TB
        user_txt.SetFocus
        Exit Sub
    ElseIf Trim(user_txt.Text) = "" Then
        MsgBox "Please enter the Username", vbOKOnly, TB
        user_txt.SetFocus
        Exit Sub
    ElseIf Trim(pass_txt.Text) = "" Then
        MsgBox "Please enter the Password", vbOKOnly, TB
        pass_txt.SetFocus
        Exit Sub
    Else
        Set rngFoundCell = Sheet2.Range(Sheet2.[c5], Sheet2.Range("C5").End(xlDown)).Find(user_txt.Value, , xlValues, xlWhole)
        If rngFoundCell Is Nothing Then
            MsgBox "Wrong User", vbOKOnly, TB
            user_txt.SetFocus
            Exit Sub
        End If
        If pass_txt.Text <> rngFoundCell.Offset(, 2).Value Then
            MsgBox "Wrong password", vbOKOnly, TB
            pass_txt.SetFocus
            Exit Sub
        End If
        MsgBox "Login successfull."
       
        sUser = user_txt.Value
        iUserLevel = rngFoundCell.Offset(, 1).Value
       
        MsgBox "User: " & sUser & vbNewLine & "Level: " & iUserLevel
       
    End If
    Application.ScreenUpdating = True
   
End Sub

Nhớ khai báo thêm 2 biến toàn cục: sUser và iUserLevel trong Module (không phải Form module) để tái sử dụng trong các code sau.

gameonly308 · 15/5/19

Mã:

iUserLevel = rngFoundCell.Offset(, 1).Value

Cái này có lẽ là cái quan trọng nhất em cần để tìm level user theo user đăng nhập. Em cảm ơn bác, vướng nhất chỗ đấy đấy ạ. Quả thật cái hàm Offset nhiều ứng dụng hay thật.

gameonly308 · 17/5/19

ongke0711 đã viết:
- Bạn nên tập thói quen khai báo biến tường minh (Option Explicit) để VBA có thể giúp kiểm tra, tránh gõ sai tên biến trong code
- Khai báo loại dữ liệu luôn càng tốt để VBA nó dành bộ nhớ cho từng biến đúng kiểu dữ liệu của nó, tránh phân bổ dư thừa bộ nhớ.

Dựa theo file của bạn, code cho nút [Login] thiết kế đơn giản như bên dưới:

Mã:

Private Sub login_cmb_Click() Const TB As String = "Thông Báo!" Dim rngFoundCell As Range Application.ScreenUpdating = False If Trim(user_txt.Text) = "" Or Trim(pass_txt.Text) = "" Then MsgBox "Please enter UserName and Password!", vbOKOnly, TB user_txt.SetFocus Exit Sub ElseIf Trim(user_txt.Text) = "" Then MsgBox "Please enter the Username", vbOKOnly, TB user_txt.SetFocus Exit Sub ElseIf Trim(pass_txt.Text) = "" Then MsgBox "Please enter the Password", vbOKOnly, TB pass_txt.SetFocus Exit Sub Else Set rngFoundCell = Sheet2.Range(Sheet2.[c5], Sheet2.Range("C5").End(xlDown)).Find(user_txt.Value, , xlValues, xlWhole) If rngFoundCell Is Nothing Then MsgBox "Wrong User", vbOKOnly, TB user_txt.SetFocus Exit Sub End If If pass_txt.Text <> rngFoundCell.Offset(, 2).Value Then MsgBox "Wrong password", vbOKOnly, TB pass_txt.SetFocus Exit Sub End If MsgBox "Login successfull." sUser = user_txt.Value iUserLevel = rngFoundCell.Offset(, 1).Value MsgBox "User: " & sUser & vbNewLine & "Level: " & iUserLevel End If Application.ScreenUpdating = True End Sub

Nhớ khai báo thêm 2 biến toàn cục: sUser và iUserLevel trong Module (không phải Form module) để tái sử dụng trong các code sau.

Chào bác, cái lv_cbb của em khi không điều chỉnh gì thì nó hiện dải ô rất rộng trong khi mình có mỗi số 1-2-3-4 rất ngắn, em muốn thu nó lại thì điều chỉnh ở ListWith. Nhưng khi điều chỉnh (chỉnh ListWith thành 20pt) thì bị lỗi lv_cbb thằng này, nó cứ hiện lên cái như trong đóng khung rất khó chịu, có các nào để bỏ đi không ạ.
Em cảm ơn!

[Xin giúp đỡ] Check user và pass, sau đó tìm ra level dùng VBA

Thành viên hoạt động

File đính kèm

Chuyên gia GPE

Thành viên gạo cội

Thành viên hoạt động

Trùm Nhiều Chuyện

Thành viên hoạt động

I don't program, I beat code into submission!!!

Thành viên hoạt động

I don't program, I beat code into submission!!!

Thành viên gạo cội

Thành viên hoạt động

Trùm Nhiều Chuyện

Thành viên hoạt động

Thành viên gắn bó

File đính kèm

Thành viên hoạt động

File đính kèm

Thành viên gắn bó

Thành viên hoạt động

Thành viên gắn bó

Thành viên hoạt động

Thành viên hoạt động

Đếm ngược thời gian