Tham khảo tài liệu 'giáo trình hình thành quá trình ứng dụng các phương pháp lập trình trên microsoft access marco p4', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | End Sub . Khoá tương tác người dùng Trong một số trường hợp để tránh người dùng thoát khỏi Excel khi đang thực hiện một số bước tính toán mất nhiều thời gian cần phải giới hạn tương tác giữa người dùng và chương trình Excel. Đối tượng Application có một số phương thức thuộc tính để thực hiện điều này Gán thuộc tính DisplayAlerts bằng FALSE để ẩn các hộp thoại Excel khi đang thực thi mã lệnh. Gán thuộc tính Interactive bằng FALSE để người dùng hoàn toàn không thể tương tác được với Excel. Gán thuộc tính ScreenUpdating bằng FALSE để tắt quá trình cập nhật lại màn hình làm ẩn đi những thay đổi diễn ra trong lúc thực thi mã lệnh. Những cách trên đều cần phải thực hiện ở đầu đoạn mã lệnh và phải thực hiện lại ở cuối của đoạn mã lệnh để thiết lập lại các giá trị mặc định nếu không sẽ làm khoá hoàn toàn chương trình Excel. Ví dụ sau minh hoạ cách tạm thời khoá tương tác người dùng khi thực hiện các đoạn mã lệnh mất nhiều thời gian Sub Khoa_nguoi_dung Dim cel As Range Chuyển con trỏ chuột thành biểu tượng chờ. xlWait Tắt tương tác người dùng và việc cập nhật màn hình. False False Đoạn mã lệnh mô phỏng việc tính toán mất nhiều thời gian. For Each cel In a1 iv999 Next Khôi phục lại trạng thái ban đầu. True True xlDefault a1 .Select End Sub Một lợi điểm nữa của việc gán thuộc tính ScreenUpdating bằng FALSE là việc đoạn mã lệnh sẽ thực thi với tốc độ nhanh hơn vì Excel không cần phải cập nhật lại màn hình khi tiến hành chọn từng ô trong vùng dữ liệu từ A1 IV999. Nhưng cần lưu ý phải khôi phục lại các giá trị mặc định trước khi kết thúc mã lệnh. GỢI Ý Gán thuộc tính Screenupdating bằng FALSE trong khi thực khi các đoạn mã lệnh có liên quan đến việc hiển thị trên màn hình chằng hạn như đổi màu nền cho vùng dữ g liệu. sẽ làm tăng tốc độ thực thi của mã lệnh . Thao tác với cửa sổ Đối tượng Application có .
