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

Để phân quyền cho IIS (Internet Information Services) đọc/ghi vào một thư mục trên Windows Server

  Để phân quyền cho IIS (Internet Information Services) đọc/ghi vào một thư mục trên Windows Server 2013, bạn có thể làm theo các bước sau: Bước 1: Mở IIS Manager Mở IIS Manager bằng cách nhấn Windows + R , gõ inetmgr và nhấn Enter. Bước 2: Tạo hoặc chọn Website trong IIS Trong IIS Manager, ở bên trái, chọn Sites và chọn website bạn muốn cấu hình. Nếu chưa có website, bạn cần tạo một website mới. Bước 3: Xác định tài khoản sử dụng cho IIS IIS sử dụng tài khoản mặc định để truy cập vào các thư mục, như là IIS_IUSRS hoặc tài khoản người dùng cấu hình trong ứng dụng pool của website. Để kiểm tra tài khoản của ứng dụng pool, vào mục Application Pools trong IIS Manager. Chọn application pool của website, sau đó nhấn Advanced Settings . Trong phần Identity , bạn sẽ thấy tài khoản mà ứng dụng pool đang sử dụng (chẳng hạn ApplicationPoolIdentity hoặc tài khoản cụ thể). Bước 4: Phân quyền cho thư mục Mở Windows Explorer và tìm đến thư mục bạn muốn IIS có quyền đọc/ghi. Chuột phải và...
Đăng nhận xét
Đọc thêm

Xem danh sách người dùng trong Windows Server

Để xem danh sách người dùng (user) trong Windows Server 2013, bạn có thể thực hiện theo một trong các cách sau: ### Cách 1: Sử dụng **Computer Management** 1. Nhấn **Windows + X** và chọn **Computer Management**. 2. Trong cửa sổ **Computer Management**, ở bên trái, mở rộng **Local Users and Groups**. 3. Chọn **Users** để thấy danh sách tất cả người dùng trên máy chủ. ### Cách 2: Sử dụng **Command Prompt** hoặc **PowerShell** Bạn có thể sử dụng Command Prompt hoặc PowerShell để xem danh sách người dùng. #### Cách 2.1: Sử dụng **Command Prompt** 1. Mở **Command Prompt** bằng cách nhấn `Windows + R`, gõ `cmd` và nhấn Enter. 2. Gõ lệnh sau và nhấn Enter:    ```bash    net user    ```    Lệnh này sẽ liệt kê tất cả các tài khoản người dùng trên hệ thống. #### Cách 2.2: Sử dụng **PowerShell** 1. Mở **PowerShell** bằng cách nhấn `Windows + X` và chọn **Windows PowerShell (Admin)**. 2. Gõ lệnh sau để lấy danh sách người dùng:    ```powershell ...
Đă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ệ thống....
Đăng nhận xét
Đọc thêm