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 ạ

Mọi người giải dùm mình đề này với ạ Xếp loại học sinh áp dụng if, vlookup, and Công thức lấy năm hiện tại để ghép vào tiêu đề bảng tính Cho em hỏi phần đơn giá em bị sai gì ạ ? GIẢI CỨU NHỮNG AI ĐANG MẤT CĂN BẢN VỀ KẾ TOÁN giải đáp thắc mắc về bảng Xuất nhập tồn hỏi về ghép số trong ex VBA các bác cho hỏi sao cái hộp textbox của em nó k xoay được ạ, Tức là nó k hiện Dùng hàm IF và hàm Vlookup ??Chia sẻ File Excel kế toán nội bộ miễn phí Xem thêm