Cách tắt comaddin trong excel bằng VBA

[NgoctrinhUSA]

Em muốn tắt tất cả Comaddin trong excel bằng VBA nhưng gặp khó khăn vì bắt phải chạy quyền admin excel.exe mới tắt được bác nào có giải pháp khắc phục xin chỉ giáo ạ !
Code hiện tại của em :
Public Sub Disable_Comaddin()
Dim objCOMAddin As COMAddIn
For Each objCOMAddin In Application.COMAddIns
Application.COMAddIns(objCOMAddin.progID).Connect = False
Next objCOMAddin
End Sub

 

[HeSanbi]

Bạn thử xem biết đâu lại được

Public Sub Disable_Comaddin()
  On Error Resume Next
  Dim CAI As COMAddIn
  For Each CAI In Application.COMAddIns
    CAI.Connect = False
  Next
  'Application.COMAddIns("ApplicationAddin.AddinModule").Connect = False
End Sub

 

[NgoctrinhUSA]

Bạn thử xem biết đâu lại được

Public Sub Disable_Comaddin()
  On Error Resume Next
  Dim CAI As COMAddIn
  For Each CAI In Application.COMAddIns
    CAI.Connect = False
  Next
  'Application.COMAddIns("ApplicationAddin.AddinModule").Connect = False
End Sub

dạ e đã thử nhưng vẫn không tắt hết được chỉ những comaddin của user thì tắt được còn của admin thì không được.