Code VBA đếm số lần mở file Excel, thoát file Excel nếu mở quá số lần quy định

  #vbaexcel #phanmem #ntsoftware Code VBA đếm số lần mở file Excel, thoát file Excel nếu mở quá số lần quy định Bạn muốn viết 1 app excel để giới hạn số lần mở file, nếu mở quá số lần quy định thì sẽ thoát file và thông báo cho khách hàng biết là đã mở tối đa số lần file excel cho phép. Hãy tham khảo đoạn code vba sau nha: Áp dung trong một số nghiệp vụ làm app excel cho khách hàng sử dụng thử trong thời gian quy định, nếu mở quá số lần file excel tự động đóng. Bước 1: Tạo file Excel có Type As 

 

Save: Excel Macro Enabled Workbook Bước 2: Mở được chức năng CODE VBA - Tạo được lệnh tác động đến Workbook * Phân biệt code trong Sheet và trong Workbook - Sheet : code chỉ tác động được đến sheet - Workbook: code tác động được đến file excel. Tham khảo lệnh VBA theo liên kết: https://nhatthanh.net/hoc-lap-trinh/4... Sau đây là code VBA, bạn COPY vào nha nhớ thay lại [dấu lớn hơn] và[ dấu nhỏ hơn] lại, vì ký tự đó không nhập được trên youtube 'Lenh chay khi mo file Excel Private Sub Workbook_Open() 'khai bao bien so lan mo file Dim SoLanMoFileExcel As Integer Dim MatKhau As String ' lay gia tri so lan mo hien tai ra bien SoLanMoFileExcel = Range("A1").Value 'tang so lan mo len 1 SoLanMoFileExcel = SoLanMoFileExcel + 1 'ghi lai bien so lan mo ra o A1 Range("A1").Value = SoLanMoFileExcel 'Neu nhu gia tri bien SoLanMoFileExcel lon hon 5 If SoLanMoFileExcel [dấu lớn hớn] 5 Then 'hien thi hop thoai nhap lieu 'gia tri nhap tu ban phim se dua vao bien MatKhau MatKhau = InputBox("File excel mo duoc "& SoLanMoFileExcel &" lan ,neu nhap MK sai file Excel se bi thoat", "NT Software", "") 'Neu gia tri bien MatKhau khac 123 thi thoat If MatKhau l [dấu nhỏ nhỏ] l [dấu lớn hơn] "123" Then Application.Quit ' thoat End If End If End Sub ' Lenh chay TRUOC KHI thoat file excel Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Neu chua luu thi Luu ' Me.Saved TRUE neu da luu 'Me.Saved FALSE neu chua luu If Not Me.Saved Then Me.Save End If End Sub ► Nhận thêm nhiều video về thủ thuật phần mềm nhanh nhất: https://www.youtube.com/c/NTSoftware?... ------------------------------------ ► Hãy Liên Hệ Email Của Tôi: ► Gmail : nhatthanhchulai@gmail.com ------------------------------------ ► Powered by NT SOFTWARE ©. Vui lòng không đăng tải lại dưới bất kì hình thức nào. ► Copyright © By NT SOFTWARE