Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

Gửi Phạm Quang Trung. Gửi Phạm Quang Trung. Mình không biết bạn dùng cái đăng

SonDoan

Gửi Phạm Quang Trung.
Mình không biết bạn dùng cái đăng nhập này làm gì vì excel đã có sẵn tính năng Protect workbook. Và mình cũng không biết bạn tính khóa những nội dung gì. Vì nếu người mở không enable macro lên thì form không hiện và vẫn xem nội dung như thường. Đề tài khá hay nên mình thử làm 1 chút xem đúng ý bạn không nhé:
Ở event open workbook show form Đăng nhập.
Ở event beforesave workbook cho veryhide 8 sheet có trong file (chừa lại sheet home không hide)
Ở button login cho chạy dò txtUser với Mã nhân viên, nếu mã trùng và pass trùng với dòng tương ứng thì cho visible các sheet lên và hide form Đăng nhập. Nếu chạy hết vòng lặp vẫn chưa được thì hiện message.
Ở button close sẽ cho đóng workbook
https://facebook.com/569100319856001_863610203738343

SonDoan

À quên. Username là NV1 pass 123456 nhé

SonDoan

Với ThisWorkbook làm code sau:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("hanghoa").Visible = xlSheetVeryHidden
Sheets("khachhang").Visible = xlSheetVeryHidden
Sheets("nhanvien").Visible = xlSheetVeryHidden
Sheets("nhacungcap").Visible = xlSheetVeryHidden
Sheets("nhap").Visible = xlSheetVeryHidden
Sheets("xuat").Visible = xlSheetVeryHidden
Sheets("hoadonnhap").Visible = xlSheetVeryHidden
Sheets("hoadonxuat").Visible = xlSheetVeryHidden
End Sub

Private Sub Workbook_Open()
frmLogin.Show
End Sub

SonDoan

Với frmDangNhap làm code sau:
Private Sub btnClose_Click()
ThisWorkbook.Close
End Sub

Private Sub btnLogin_Click()
khoplenh = False
With Sheets("nhanvien")
lr = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lr
If txtUsername.Text = .Range("A" & i).Value Then
If txtPassword.Text = .Range("G" & i).Value Then
khoplenh = True
Sheets("hanghoa").Visible = xlSheetVisible
Sheets("khachhang").Visible = xlSheetVisible
Sheets("nhanvien").Visible = xlSheetVisible
Sheets("nhacungcap").Visible = xlSheetVisible
Sheets("nhap").Visible = xlSheetVisible
Sheets("xuat").Visible = xlSheetVisible
Sheets("hoadonnhap").Visible = xlSheetVisible
Sheets("hoadonxuat").Visible = xlSheetVisible
Me.Hide
Exit Sub
End If
End If
Next
End With
If khoplenh = False Then MsgBox ("Username or password incorrect")
End Sub

SonDoan

Đúng ra chỉ cần làm vòng lặp For i = 2 to worksheets.count rồi cho worksheets(i).visible = visible hay veryhide là xong. Nhưng mình sợ thay đổi vị trí các sheet thì khổ Vì vậy mình cho hide thủ công

SonDoan

Có ai có cách khóa không cho rename sheet hoặc thay đổi thứ tự các sheet không nhỉ ????

SonDoan

Sorry già rồi lẩm cẩm. Mấy cái gán khoplenh là dư thừa. Nếu kiểm tra user và pass trùng thì nó tự exit sub rồi nên không hiện massage, còn nếu chạy hết không khớp thì đương nhiên cho hiện massage, không cần quan tâm đến giá trị của khoplenh

PhamQuangTrung

Cám ơn anh ạ

-FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- ***Tặng phần mềm kế toán UNESCO Fee sử dụng vĩnh viễn các Version 6.0 - 5.1- KẾ TOÁN HÀNH CHÍNH SỰ NGHIỆP học ở đâu tại Hồ Chí Minh? Đào tạo chứng chỉ KẾ TOÁN VIÊN Trường Bồi dưỡng Cán bộ Tài chính-BTC ĐÀO TẠO KẾ TOÁN TRƯỞNG HÀNH CHÍNH SỰ NGHIỆP BỘ TÀI CHÍNH TPHCM Chuyên mục tặng phần mềm kế toán excel cho dân kế toán miễn phí mới nhất năm Mình có cái máy bị lỗi dấu chấm "." ở bên phím Numlock, khi chỉnh hệ thống Hỏi về cách chọn giá trị nhưng chỉ hiển thị thông tin nằm trong bảng đã chọn Tạo Hộp Thoại Search Thông tin Trông Ô Lấy nội dung của dòng bên trên ô selected Xem thêm