Chào Anh/Chị GPE
em có nhờ chatgpt viết code tắt com addins nhưng không được. báo lỗi " This add-in is installed for all users on this computer, and can only be connected or disconnected by an administrator" ở dòng code "addin.Connect = False".
Em thao tác tay ở phần option vẫn tắt bình thường được.
Anh/Chị giúp em đoạn code để tắt com addins chạy với ạ.
Em xin trân thành cảm ơn.
Lý giải bên ngoài một chút
Máy tính công ty em mới cài Com add-ins để phân loại tài liệu "1.mật- 2.nội bộ - 3.công bố", việc phân loại tài liệu để tránh thất thoát dữ liệu. Nhưng làm mấy code vba em xài bị lỗi ( lúc đóng file excel bị mất phần cảnh báo lưu không đóng dù em đã có dòng Application.DisplayAlerts = False".
Em thử tắt Com addins bằng thao tác tay thì code vba hay xài vẫn dùng được.
em có nhờ chatgpt viết code tắt com addins nhưng không được. báo lỗi " This add-in is installed for all users on this computer, and can only be connected or disconnected by an administrator" ở dòng code "addin.Connect = False".
Em thao tác tay ở phần option vẫn tắt bình thường được.
Anh/Chị giúp em đoạn code để tắt com addins chạy với ạ.
Em xin trân thành cảm ơn.
Mã:
Sub DisableCOMAddin()
Dim addin As COMAddIn
' Thay đổi GUID của Add-in cần tắt
Dim addinGUID As String
addinGUID = "{Your_Addin_GUID_Here}"
For Each addin In Application.COMAddIns
If addin.Guid = addinGUID Then
addin.Connect = False
MsgBox "Đã tắt COM Add-in thành công!", vbInformation
Exit Sub
End If
Next addin
MsgBox "Không tìm thấy COM Add-in với GUID được chỉ định.", vbExclamation
End Sub
Lý giải bên ngoài một chút
Máy tính công ty em mới cài Com add-ins để phân loại tài liệu "1.mật- 2.nội bộ - 3.công bố", việc phân loại tài liệu để tránh thất thoát dữ liệu. Nhưng làm mấy code vba em xài bị lỗi ( lúc đóng file excel bị mất phần cảnh báo lưu không đóng dù em đã có dòng Application.DisplayAlerts = False".
Em thử tắt Com addins bằng thao tác tay thì code vba hay xài vẫn dùng được.