Code Login và quyền sử dụng trực tiếp trên bảng tính. (1 người xem)

[khamha]

Nhờ các bạn giúp mình tạo đoạn Code như sau:
I. Trong File có tất cả 3 "Sheet" Trong đó:
1, Sheet"FORM và PASS" là Sheet tự động ẩn ,Khi ta mở bảng tính.
2, Trong Sheet"HOME" có bảng để thay đổi và điền User & Pass như sau:
2,1, Range"A6:B6" Thay đổi giữa đăng nhập để vào sử dụng hay sửa mật khẩu.
2,2, Range"B7" để điền User.
2,3, Range"B8" để điền Pass.
2,4, Range"A9:B9" là nút OK.
II. Khi ta:
1, Chọn Range"A6:B6" để vào sử dụng bảng tính ,nếu User & Pass đúng thì sẽ mở Sheet"FORM"
2, Chọn Range"A6:B6" để vào sửa User & Pass,nếu User & Pass đúng thì sẽ mở Sheet"PASS" ,Chỉ có User đầu tiên mới có quyền này.
III. Các bạn xem File đính kèm & giúp mình nhé...Thank

 

[leonguyenz]

Nút Đăng nhập và Nút OK có gì khác nhau không bác?
Bác tham khảo code này xem, chỉ nhấp OK, không nhấp vào Đăng Nhập:
[gpecode=vb]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim FindUser As Range
[A5] = Empty
If Not Intersect(Target, [A9:B9]) Is Nothing Then
If [B7] = Empty Then
[A5] = "B" & ChrW(7841) & "n ch" & ChrW(432) & _
"a nh" & ChrW(7853) & "p Tên."
Else
Set FindUser = PASS.[A2:B11].Find([B7], , xlValues, xlWhole)
If Not FindUser Is Nothing Then
[A5] = Empty
If [B8] = Empty Then
[A5] = "B" & ChrW(7841) & "n ch" & ChrW(432) & _
"a nh" & ChrW(7853) & "p M" & ChrW(7853) & _
"t Kh" & ChrW(7849) & "u."
ElseIf [B8] <> FindUser.Offset(, 1) Then
[A5] = "M" & ChrW(7853) & "t Kh" & ChrW(7849) & _
"u ch" & ChrW(432) & "a " & ChrW(273) & "úng."
Else
[A5] = "Welcome!"
If Target.Row = 9 And [B7] = PASS.[A2] Then
FORM.Visible = xlSheetVisible
PASS.Visible = xlSheetVisible
PASS.Activate
Else
FORM.Visible = xlSheetVisible
FORM.Activate
End If
End If
End If
End If
End If
End Sub
[/gpecode]
Code hide sheet khi mở file:
[gpecode=vb]
Private Sub Workbook_Open()
FORM.Visible = xlSheetVeryHidden
PASS.Visible = xlSheetVeryHidden
End Sub
[/gpecode]
Cách này bảo mật không ổn đâu, chỉ cần coppy Name và F9 là thấy hết User cả Pass.

 

[khamha]

Cảm ơn leonguyenz.

Nút Đăng nhập và Nút OK có gì khác nhau không bác?

Chỗ nút "Đăng nhập" là điều kiện như sau: Nếu ta chọn là "LOGIN" thì sau khi điền đúng User & Pass ,thì chỉ hiện Sheet"FORM". Nếu chọn là "EditPass" thì nó sẽ hiện Sheet"PASS" (và chỉ có User & Pass của người thứ nhất mới mở được)

 

[leonguyenz]

Cảm ơn leonguyenz.
Chỗ nút "Đăng nhập" là điều kiện như sau: Nếu ta chọn là "LOGIN" thì sau khi điền đúng User & Pass ,thì chỉ hiện Sheet"FORM". Nếu chọn là "EditPass" thì nó sẽ hiện Sheet"PASS" (và chỉ có User & Pass của người thứ nhất mới mở được)

Bác định đặt chữ LOGIN hay EditPass ở ô nào chưa? Lúc đầu em tưởng A6:B6 là Data Validation để cho chọn: DANGNHAP,EDITUSER gì đó. Vì có nút OK rồi.

 

[khamha]

leonguyenz đặt tại "B6" nhé...Thank

 

[leonguyenz]

leonguyenz đặt tại "B6" nhé...Thank

Em sửa lại code, bác xem trong file nhé.