Chuyển đến nội dung chính

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

 


 

 

Nhận xét

Đăng nhận xét

Bài đăng phổ biến từ blog này

Đổi mật khẩu trong Windows Server

Để đổi mật khẩu tài khoản Administrator trên Windows Server 2016, bạn làm theo các bước sau Cách 1: Đổi mật khẩu qua giao diện     Đăng nhập vào tài khoản có quyền quản trị (Administrator).     Mở Start Menu, gõ "Computer Management" và nhấn Enter.     Trong cửa sổ Computer Management, điều hướng đến:         Local Users and Groups > Users     Tìm tài khoản Administrator, nhấp chuột phải và chọn Set Password.     Chọn Proceed nếu có cảnh báo.     Nhập mật khẩu mới, xác nhận và nhấn OK. Cách 2: Đổi mật khẩu qua Command Prompt (CMD)     Mở Command Prompt dưới quyền Administrator.     Gõ lệnh sau: net user Administrator NewPassword (Với NewPassword là mật khẩu mới mà bạn muốn đặt).     Nhấn Enter. Nếu thành công, sẽ có thông báo "The command completed successfully." Cách 3: Đổi mật khẩu qua PowerShell    ...
Đăng nhận xét
Đọc thêm

Làm thế nào xuất hiện cổng line-in trên windows

  Cổng Line-In trên Windows thường dùng để kết nối âm thanh từ thiết bị bên ngoài (như micro, mixer, điện thoại). Nếu không thấy cổng này trong Sound settings , bạn có thể làm theo các bước sau: 1. Hiển thị cổng Line-In trong Sound settings Nhấp chuột phải vào biểu tượng loa trên thanh Taskbar → Chọn Sound settings (Cài đặt âm thanh). Cuộn xuống mục Input (Đầu vào) → Kiểm tra xem Line-In có xuất hiện không. Nếu không thấy, nhấp vào Manage sound devices (Quản lý thiết bị âm thanh). Nếu Line-In bị Disabled (Tắt) , chọn Enable (Bật) . 2. Hiển thị Line-In trong Control Panel Nhấn Windows + R , nhập mmsys.cpl rồi nhấn Enter . Chuyển sang tab Recording (Ghi âm) . Nhấp chuột phải vào vùng trống → Chọn Show Disabled Devices (Hiển thị thiết bị bị vô hiệu hóa). Nếu thấy Line-In , nhấp chuột phải chọn Enable . 3. Cập nhật hoặc cài lại driver âm thanh Nếu vẫn không thấy Line-In , có thể do driver âm thanh. Nhấn Windows + X → Chọn Device Manager . Mở rộng mục Sound, video an...
Đăng nhận xét
Đọc thêm

Cách ứng dụng macro Excel vào công việc thực tế

    macro Excel là 1 trong những công cụ hỗ trợ tốt cho dân văn phòng, nếu không biết cách ứng dụng macro Excel vào công việc thì chỉ có 3 từ, ôi thôi rồi. Macro trong Excel là gì? Ứng dụng thực tế của Macro trong công việc Tự động hóa các tác vụ lặp lại Tạo báo cáo tự động Nhập, xuất dữ liệu Tự động hóa quy trình tính toán Kiểm tra dữ liệu và sửa lỗi Tự động gửi email qua Outlook Tạo giao diện nhập liệu đơn giản Video ứng dụng thực tế của Macro trong công việc 1. Macro trong Excel là gì? Macro trong Excel là một tập hợp các lệnh VBA EXCEL được ghi lại hoặc lập trình để tự động hóa các tác vụ lặp đi lặp lại. Macro sử dụng ngôn ngữ lập trình VBA (Visual Basic for Applications), giúp tăng hiệu suất làm việc trong Excel. 2. Ứng dụng thực tế của Macro trong công việc     Tự động hóa các tác vụ lặp lại         Ví dụ: Hàng ngày, bạn phải định dạng dữ liệu báo cáo từ hệ ...
Đăng nhận xét
Đọc thêm