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 ạ

Em nhờ mọi người 1 ca khó với :( Em phải gửi Phiếu lương hàng tháng cho mọi Mình cần làm thuê bài tập excel ạ, giúp mình với Nhờ Mọi người giúp đỡ với giúp em giải câu excel ạ Cho em hỏi phần đơn giá em bị sai gì ạ ? Dùng hàm IF và hàm Vlookup Hàm tìm ngày trong khoảng thời gian xác định SANG DỮ LIỆU TỪ FILE 1 VÀO FILE 2 THEO THỨ TỰ. Cần các cao thủ về Mail merge trợ giúp ạ. ***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- Xem thêm