Tạo form nhập thông tin có combobox có mật khẩu (1 người xem)

[khoahoc78]

ạo form nhập thông tin có combobox có mật khẩu
- Mình xin được giúp đỡ từ diễn đàn GPE vì kiến thức VB mình quá kém
- Mình có 1 file Excel có 4 Sheet (Giao dien, toan quyen, User1, User2) và 1 form đăng nhập :
+ 1 combobox để nhập thông tin về quyền đăng nhập : Toàn quyền, Quyền 1, Quyền 2.
+ 1 Textbox nhập mật khẩu.
- Làm thế nào để đưa thông tin : Toàn quyền, Quyền 1, Quyền 2 vào Combobox.
- Khi cập nhật cho Combobox : Toàn quyền và Textbox đúng mật khẩu (MKTQ)thì có quyền đăng nhập vào 4 sheet, nếu mật khẩu sai hoặc đóng Form lại thì chỉ vào được sheet giao diện.
- Khi cập nhật cho Combobox : Quyền 1 và Textbox đúng mật khẩu (MK1)thì có quyền đăng nhập vào sheet User1, các sheet khác không truy cập được, nếu mật khẩu sai hoặc đóng Form lại thì chỉ vào được sheet giao diện.
- Khi cập nhật cho Combobox : Quyền 2 và Textbox đúng mật khẩu (MK2)thì có quyền đăng nhập vào sheet User2, các sheet khác không truy cập được, nếu mật khẩu sai hoặc đóng Form lại thì chỉ vào được sheet giao diện.

Mình xin cảm ơn nhiều

 

[nghiaphuc]

ạo form nhập thông tin có combobox có mật khẩu
- Mình xin được giúp đỡ từ diễn đàn GPE vì kiến thức VB mình quá kém
- Mình có 1 file Excel có 4 Sheet (Giao dien, toan quyen, User1, User2) và 1 form đăng nhập :
+ 1 combobox để nhập thông tin về quyền đăng nhập : Toàn quyền, Quyền 1, Quyền 2.
+ 1 Textbox nhập mật khẩu.
- Làm thế nào để đưa thông tin : Toàn quyền, Quyền 1, Quyền 2 vào Combobox.
- Khi cập nhật cho Combobox : Toàn quyền và Textbox đúng mật khẩu (MKTQ)thì có quyền đăng nhập vào 4 sheet, nếu mật khẩu sai hoặc đóng Form lại thì chỉ vào được sheet giao diện.
- Khi cập nhật cho Combobox : Quyền 1 và Textbox đúng mật khẩu (MK1)thì có quyền đăng nhập vào sheet User1, các sheet khác không truy cập được, nếu mật khẩu sai hoặc đóng Form lại thì chỉ vào được sheet giao diện.
- Khi cập nhật cho Combobox : Quyền 2 và Textbox đúng mật khẩu (MK2)thì có quyền đăng nhập vào sheet User2, các sheet khác không truy cập được, nếu mật khẩu sai hoặc đóng Form lại thì chỉ vào được sheet giao diện.

Mình xin cảm ơn nhiều

Bạn tham khảo trong file đính kèm nhé. Trong code của form FrmLogin, mình đã giải thích ý nghĩa từng câu lệnh, bạn tham khảo và có gì thắc mắc thì hãy hỏi tiếp nhé.

 

[khoahoc78]

Mình mới chạy thử, chắc là đúng ý mình rồi. Xin cảm ơn sự giúp đỡ tận tình của Nghiaphuc

 

[khamha]

Bạn tham khảo trong file đính kèm nhé. Trong code của form FrmLogin, mình đã giải thích ý nghĩa từng câu lệnh, bạn tham khảo và có gì thắc mắc thì hãy hỏi tiếp nhé.

Bạn cho mình hỏi là nếu muốn chuyển mật khẩu sang Sheet khác thì phải sửa Code lại như thế nào,ví dụ mình chuyển sang Sheet9"Password"
Cảm ơn bạn

 

[khamha]

Bạn cho mình hỏi là nếu muốn chuyển mật khẩu sang Sheet khác thì phải sửa Code lại như thế nào,ví dụ mình chuyển sang Sheet9"Password"
Cảm ơn bạn

Chào bạn nghiaphuc và các bạn,Các bạn sửa giúp mình như nội dung cần sửa ở trên với.
Cảm ơn các bạn.

Private Sub UserForm_Initialize()
Sheet1.Activate 'Chon Sheet1 (Giao dien)
CbbQuyen.RowSource = [B2:C4].Address 'Dua thong tin vung B2:C4 cua Sheet Giao dien vao Combobox CbbQuyen
End Sub
Private Sub CmdNhap_Click()
If CbbQuyen.ListIndex = -1 Then 'Combobox CbbQuyen dang de trong
MsgBox "Ban chua chon quyen dang nhap", , "Thông báo" 'Hien hop thoai thong bao
Exit Sub 'Thoat khoi thu tuc
End If
If TxtMK <> CbbQuyen.List(, 1) Then 'Mat khau nhap vao o Textbox TxtMK khac mat khau cua User duoc chon
MsgBox "Nhap khong dung mat khau", , "Thông báo"
TxtMK.SelStart = 0: TxtMK.SelLength = Len(TxtMK): TxtMK.SetFocus 'Chon Textbox TxtMK de cho nhap lai mat khau
Else
Select Case CbbQuyen.ListIndex 'Hien cac Sheet tuong ung voi User dang chon
Case 0: Sheet2.Visible = xlSheetVisible: Sheet3.Visible = xlSheetVisible: Sheet4.Visible = xlSheetVisible
Case 1: Sheet3.Visible = xlSheetVisible
Case 2: Sheet4.Visible = xlSheetVisible: MK.Visible = xlSheetVisible

End Select
Unload Me 'Dong Form FrmLogin
End If
End Sub
Private Sub CmdHuy_Click()
Unload Me
End Sub

 

[honest819]

Gởi mọi người,
Mình muốn viết một file excel cũng gần tương tự như bạn, nhưng có chút phức tạp hơn như dưới , mọi người giúp mình viết với nha, cám ơn mọi người nhiều nhiều

1 File excel với 5 sheet

User1 User2 User3 User4 User5 User6 User7
5 sheet Read MODIFY READ MODIFY READ MODIFY READ MODIFY READ MODIFY READ MODIFY READ MODIFY
Tai lieu 1 x x x x o o o o x o x x o o
Tai lieu 2 x o x x x x x o x o x x x o
Tai lieu 3 x o x o x o x o x o x o x o
Tai lieu 4 x o x o x x x o x x x o x o
Tai lieu 5 x o x o x x x x x o x o x o

Note:
'x': đầy đủ quyền
'o': không có quyền

Mọi người giúp mình viết cái này nha, cám ơn mọi người.

 

[honest819]

có ai giúp mình được không?