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 ạ

ae ơi cho sửa lỗi vba về hàm nội suy 1 chiều này cho em với 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ọc Nhanh cách tạo hàng loạt phiếu lương và in phiếu lương tự động Siêu Tốc độ Tính Tổng các mã hàng giá trị cần tính nằm xen kẽ với mã hàng đó trong bảng tính 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 ĐỊNH MỨC XĂNG XE /DẦU XE CHO DOANH NGHIỆP VẬN TẢI HỌC KẾ TOÁN TRƯỞNG CẤP CHỨNG CHỈ CỦA BỘ TÀI CHÍNH HỌC KẾ TOÁN HÀNH CHÍNH SỰ NGHIỆP THEO THÔNG TƯ 107/2017/TT-BTC Địa chỉ học bằng KẾ TOÁN HÀNH CHÍNH SỰ NGHIỆP ở Hồ Chí Minh ?Download Bộ Tài Liệu Tập Huấn CỤC THUẾ HÀ NỘI mới nhất Xem thêm