Peter hỏi liệu có cách nào để chỉ định, khi khởi động Excel, không nên tải một bổ trợ cụ thể nào đó. Phần bổ trợ mà anh ấy nghĩ đến cần rất nhiều thời gian để tải và anh ấy không cần nó mọi lúc. Việc tắt bổ trợ sẽ giúp khởi động Excel nhanh hơn trong những trường hợp không cần thiết.

Thật không may, có rất ít thao tác có thể được thực hiện để vô hiệu hóa phần bổ trợ khi khởi động vì chưa có sổ làm việc cụ thể nào được mở. (Các phần bổ trợ được tải trước bất kỳ sổ làm việc nào.) Tuy nhiên, có một số cách bạn có thể thử.

Điều đầu tiên là bạn có thể tạo bổ trợ của riêng mình mà không làm gì hơn ngoài việc hỏi xem bổ trợ lớn có nên được tải hay không.

Tùy thuộc vào phản hồi của người dùng, bổ trợ sau đó có thể được tải bằng cách sử dụng dòng mã sau:

AddIns("Big Add-in").Installed = True

Tất nhiên, bạn sẽ cần thay thế “Big Add-in” bằng tên của add-in thực tế sẽ được tải. Nếu người dùng không muốn tải bổ trợ, chỉ cần bỏ qua dòng mã. Trong sự kiện Đóng cho bổ trợ nhỏ của bạn, sau đó bạn có thể thêm một dòng như sau để dỡ bổ trợ lớn:

AddIns("Big Add-in").Installed = False

Theo cách này, phần bổ trợ chỉ được thêm vào nếu người dùng cho biết có thể thêm vào, và sau đó luôn được tải xuống vào cuối phiên Excel của bạn.

Một cách tiếp cận khác là không bao giờ tải bổ trợ lớn, nhưng hãy đặt một quy trình vào tệp Personal.xls của bạn để người dùng có cơ hội tải bổ trợ.

Phần sau có thể được thêm vào sự kiện Workbook_Open trong Personal.xls:

Private Sub Workbook_Open()

With Application         .OnKey "{TAB}", "InstallMyAddIn"

.OnTime (Now + TimeValue("0:00:05")), "DisableTABProc"

End With End Sub

Mục đích của macro này là cung cấp cho người dùng một khoảng thời gian — trong trường hợp này là năm giây — để nhấn phím Tab để phần bổ trợ lớn được tải. Phương thức .OnKey chạy quy trình cài đặt, nếu Tab được nhấn, và quy trình .OnTime bắt đầu hẹn giờ chạy quy trình vô hiệu hóa sau khi năm giây trôi qua. Lưu ý rằng macro này gọi hai thói quen; chúng có thể nằm trong một mô-đun thông thường cho Personal.xls.

Sub InstallMyAddIn()

AddIns("Big Add-in").Installed = True     DisableTABProc End Sub
Sub DisableTABProc()

Application.OnKey "{TAB}", ""

End Sub

Tất nhiên, bạn sẽ cần thêm một số mã cho sự kiện Workbook_Close của Personal.xls, trong trường hợp này để dỡ bỏ bổ trợ:

Private Sub Workbook_Close()

AddIns("Big Add-in").Installed = False End Sub

Nếu bạn không muốn sử dụng macro, thì bạn luôn có thể di chuyển bổ trợ lớn khỏi vị trí thư mục của nó hoặc đổi tên bổ trợ trước khi khởi động Excel. Nếu Excel không thể xác định vị trí bổ trợ, nó sẽ tiếp tục tải mà không cần tải nó.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2383) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: