Cách Unblock để chạy các file Excel chứa code VBA bị chặn (Security Risk)

Ngày tạo 07/05/2022

 -  12.012 Lượt xem

Hướng dẫn 3 cách gỡ chặn (Unblock) triệt để lỗi bảo mật ''Microsoft has blocked macros from running because the source of this file is untrusted'' trên Office 365 và Excel 2021 khi tải file chứa code VBA từ Internet.

Vì lý do bảo mật nên bắt đầu từ đầu tháng 4 này. Tất cả bạn nào đang xài Office 365 sẽ bị Microsoft block các File chứa macro mà bạn đã download từ Internet

Theo dự kiến là các phiên bản sắp tới từ Office 2013 đến 2021 sau khi nhận cập nhật cũng sẽ bị block như vậy.

Microsoft đưa ra lý do của việc làm này là bảo vệ người dùng khỏi những mã độc đang tràn lan trên mạng và tệ hơn nữa là nó được lây lan qua phần mềm Microsoft Office của họ.

Vậy có cách nào để khắc phục không? Đương nhiên là có nhưng không phải chỉ Enable Content như lần trước là được đâu mà chúng ta sẽ phải làm bằng tay từng File như sau.

Bước 1: File > Options > Trust Center > Trust Center Settings > Macro Settings. Bạn sẽ cần chỉnh như hình dưới đây

Bước 2: Sang phần Trusted Locations và Add ổ đĩa của bạn vào đây. Mặc định sẽ chỉ là các đường dẫn trong ổ C mà thôi. Bạn sẽ ấn Add new Location... và add ổ đĩa bạn vào nhé.

Bước 3: Sau khi làm xong bước này thì bạn cần unblock File VBA hoặc chứa macro bạn muốn dùng bằng cách chuột phải vào File đó chọn Properties và chọn Unblock.

Có thể thấy việc này chỉ cần làm 1 lần với File có chứa macro bạn download xuống từ Internet.

Link chi tiết tham khảo về tính năng mới này bạn có thể xem tại đây

 

Khung Mẫu Tối ưu Tốc độ Thực thi Code VBA trên Bảng tính Lớn

Khi áp dụng các đoạn mã VBA trên bảng tính doanh nghiệp có hàng chục nghìn dòng dữ liệu, bạn hãy bọc code trong khung mẫu tối ưu hiệu năng dưới đây để tăng tốc độ chạy Macro lên gấp 10 – 50 lần:

MÃ NGUỒN VBA CHUẨNHigh-Performance Macro Wrapper
Sub ERX_Optimized_Macro_Template()
    On Error GoTo CleanExit
    '' Tắt cập nhật màn hình và tính toán tự động để tăng tốc tối đa
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    '' --- Đặt nội dung xử lý VBA của bạn tại đây ---

CleanExit:
    '' Khôi phục trạng thái chuẩn của Excel sau khi hoàn tất
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub
Web Admin

 
 
Gọi (028) 3514 2046