
Code VBA đếm số lần mở file Excel, thoát file Excel nếu mở quá số lần quy định
Á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.
Sau đây là code VBA:
'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 > 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 <> "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
Xem VIDEO Code VBA đếm số lần mở file Excel, thoát file Excel nếu mở quá số lần quy định