Tôi cũng gặp tình trạng này giống như bạn. Cũng mới phát sinh khoản 1 tháng, tôi dùng office 2016 sau đó gỡ ra cài đặt lại office thì lại hết nhưng sau đó một số file có code vba thì không mở được nữa bị báo lỗi . Nhưng file đó mở trên điện thoại xem bằng 365 thì vẫn mở được. Rồi win tự động update gì gì đó qua mấy lần tự update thì nó quay lại lỗi addin ban đầu. Tôi đành chấp nhận mỗi lần mở file excel thì phải chọn lại addin. Từ đó tôi đoán là hình như hệ thống update office để chặn các addin hay sao đó.
Option Explicit
Option Compare Text
Sub fixAddinPathInRegistry()
Const HKEY_CURRENT_USER As Long = &H80000001
Dim objRegistry As Object
Dim strComputer As String
Dim rPath As String, s$, s1$, s2$
Dim arrEntryNames(), arrValueTypes(), arrSubkeys()
Dim strAsk, addin, APPDATA$, p$
Dim FSO As Object, a, i, i2, v, root As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
strComputer = ".": root = HKEY_CURRENT_USER
Set objRegistry = Interaction.GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
For Each i In Array("12.0", "14.0", "15.0", "16.0")
GoSub p1: GoSub p
GoSub p2: GoSub p
GoSub p3: GoSub o
Next
APPDATA = Environ("APPDATA") & "\Microsoft\Addins"
i = Application.Version: GoSub p1
For Each i In Application.AddIns
If i.Installed Then
p = i.FullName: s1 = i.Name
If FSO.FileExists(p) Then
s2 = s2 & IIf(s2 = "", "", vbLf) & " " & p
If i.Path = APPDATA Then
objRegistry.setStringValue root, rPath, s1, ""
Else
objRegistry.setStringValue root, rPath, p, ""
End If
Else
s = s & IIf(s = "", "", vbLf) & " " & p
objRegistry.DeleteValue root, rPath, s1
objRegistry.DeleteValue root, rPath, p
End If
End If
Next
E:
MsgBox IIf(s = "", _
"Hoan thanh!" & vbNewLine & _
"Khong tim thay Path can xoa!", _
" Da xoa các Path:" & _
s) & vbNewLine & vbNewLine & _
IIf(s2 = "", "Khong tim thay Path can fix!", _
" Da fix các Path:" & _
s2), Title:="Xoa & fix path Add-in Registry"
Exit Sub
p1:
rPath = "Software\Microsoft\Office\" & i & "\Excel\Add-in Manager"
Return
p2:
rPath = "Software\Microsoft\Office\" & i & "\Excel\AddInLoadTimes"
Return
p3:
rPath = "Software\Microsoft\Office\" & i & "\Excel\Options"
Return
p:
objRegistry.EnumValues root, rPath, arrEntryNames, arrValueTypes
If IsNull(arrEntryNames) Then Return
For Each strAsk In arrEntryNames
v = strAsk
If v Like "*:\*" Then
If v Like """*""" Then v = Mid$(v, 2, Len(v) - 2)
If v Like "file:///*" Then v = Mid$(v, 9)
If FSO.FileExists(v) Then
Else
s = s & IIf(s = "", "", vbLf) & " " & strAsk
objRegistry.DeleteValue root, rPath, strAsk
' For Each addin In Application.AddIns
' If addin.Installed = False Then
' If strAsk = addin.Path & "\" & addin.Name Then
' objRegistry.DeleteValue root, rPath, strAsk
' End If
' End If
' Next
End If
End If
Next
Return
o:
objRegistry.EnumValues root, rPath, arrEntryNames, arrValueTypes
If IsNull(arrEntryNames) Then Return
For Each strAsk In arrEntryNames
If strAsk Like "Open#*" Or strAsk = "Open" Then
objRegistry.getstringvalue root, rPath, strAsk, v
If v Like "*:\*" Then
If v Like """*""" Then v = Mid$(v, 2, Len(v) - 2)
If v Like "file:///*" Then v = Mid$(v, 9)
If FSO.FileExists(v) Then
Else
s = s & IIf(s = "", "", vbLf) & " " & v
objRegistry.DeleteValue root, rPath, strAsk
End If
End If
End If
Next
Return
End SubMình đã chạy thử code trên nhưng chưa khắc phục được.
Bạn chép lại lệnh trên chạy lại xem có được không
Cám ơn bạn đã giúp đỡ. Mình chạy lại code trên, code đã xóa đường dẫn add-in cũ cài trước đó trong registry. Nếu không xài addin thì không báo lỗi nhưng cứ chọn addin xong mở lại file là báo lỗi ko tìm thấy addin đó.
Đúng như bạn nói tất cả addin đều không dùng được. Thôi đành sống với lỗi này.
Bạn có thể gửi UltraView để tôi xem đường dẫn Add-in nằm ở đâu trong Registry của bạn là có thể biết nguyên nhân, gửi bên tin nhắn riêng bạn nhé.
Đúng là các registry nếu các đường dẫn mới tạo sẽ được trình quét quét xem có nguy cơ tiềm tàn không đó anh. Viết mã VBA nếu các mã liên quan system, tải online thì em có viết bài hướng dẫn để vượt qua.
giaiphapexcel.com
Đúng là các registry nếu các đường dẫn mới tạo sẽ được trình quét quét xem có nguy cơ tiềm tàn không đó anh. Viết mã VBA nếu các mã liên quan system, tải online thì em có viết bài hướng dẫn để vượt qua.
VBA Nâng cao: các lỗi viết mã và cách tránh lỗi ứng dụng bị xem là có virus
Hôm nay tôi chia sẻ cho các bạn chủ đề liên quan đến các lỗi viết mã cơ bản trong lập trình VBA và cách tránh lỗi viết mã bị xem là nguy hiểm bị xem là ứng dụng có virus, nếu các bạn thiếu kinh nghiệm trong lập trình sẽ tạo ra nhiều lỗi, mà sau này phải bỏ nhiều thời gian để sửa lỗi cho các dự...
Do em không dùng WS nên không biết các trường hợp nó chặn như thế nào. Em đã từng gặp trường hợp nó xóa hẳn dự án của em. Và mất đi công sức gây dựng. Nên em đã tắt chế độ Virus & thread protection. Nó không thực sự hiệu quả.
Trình quét nó quét mã đã biên dịch là P-Code hoặc thứ cấp biên dịch nào đó, chứ không hẳn là quét mã VBA, khi VBA được biên dịch lại chưa chắc là mã biên dịch trước đó đã được xóa đi. Có khi mã trước đó chứa đoạn mã trình quét nhận diện.
Nhờ gợi ý này mà mình kiểm tra lại các bản cập nhật và phát hiện vấn đề fix lỗi addin tại bản cập nhật November 19, 2024, update for Excel 2016 (KB4484305). Sau khi cài đặt bản vá lỗi này xong thì mọi chuyện đã được giải quyết. Một lần nữa cám ơn mọi người đã hỗ trợ.
