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 ạ

***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- tại sao khi in có dòng mã bên dưới cuối trang và xóa như thế nào -FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- Bác nào có phần mềm hoặc file kiểm phiếu bầu cử nhanh bằng Excel không ạ ? Mình cần hỗ trợ từ các bạn Công thức lấy năm hiện tại để ghép vào tiêu đề bảng tính tính tiền ăn mỗi bữa Trả về giá trị nếu thuộc một trong các giá tri đưa ra CÔNG THỨC LIỆT KÊ SỐ PHIẾU GIAO HÀNG TRONG THÁNG CỦA CỬA HANG các anh chị cho em hỏi Xem thêm