分享一个函数（VB解码被禁用的加载项）（原创）

luckyisland

网上似乎没有使用VB解码被禁用的ComAddin加载项的代码，反正我没搜到过。李老板的催化剂C#代码是有点问题的，你可以好好测试测试。

所以我自己撸了一个VB的。欢迎拍砖。

EXCEL Comaddin如果报错或者被非法操作可能被EXCEL自动禁用，是非常烦人的事情。

可以手工通过 EXCEL 文件菜单栏---> EXCEL选项--->加载项--->禁用项目---转到，选中了，启用 。 但是手工操作挺麻烦。

于是就代码自动删除被禁用的加载项。

comaddin被禁用之后，会在HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\ {EXCEL版本号} \Excel\Resiliency\DisabledItems" 增加被禁用的记录。

（其中 {EXCEL版本号} 占位为 10.0、 11.0 、 12.0 、 14.0 、15.0、 16.0  等等 根据自己需要修改）

那么解码被禁用的加载项内容，从而判断是不是需要启用的加载项，就比较有用了。

遍历DisabledItems项，调用如下解码函数。

解码函数如下：


Public Function DecodeDisabledItem(sValue As String) As String

                Dim buf() As Byte
                buf = sValue
                Dim i As Long
                Dim StrChange As String
                Dim temps As String
                Dim n0 As Integer

                For i = 24 To UBound(buf)  '0-23 位 是特定的标识符 :    6 ( ACK 回应/响应/收到通知)   +   7 个 0----> 63 (?) +   7 个 0  +  48 (数字0) + 7个0
                   If buf(i) = 0 Then
                       n0 = n0 + 1
                   Else
                       n0 = 0
                   End If

                   If n0 = 7 Then                    
'                    temps = temps & " " '7个0代表分隔
                    Exit For
                   End If

                   If buf(i) > 0 Then '不存在 32 空格 ,分隔就是7个0
'                        Debug.Print "buf(i) = " & buf(i) & " ---> (i) = " & i & " -->   " & Chr(buf(i))
                        temps = temps & Chr(buf(i))
                   End If
                Next i
               
                DecodeDisabledItem = CStr(temps)
End Function


解码出被禁用的内容文件路径之后，可以自己再根据需要判断（路径或者关键字）是否调用 RegDeleteKey API删除即可。

f8b1987

楼主不如直接弄个工具出来

luckyisland

f8b1987 发表于 2023-5-30 15:11
楼主不如直接弄个工具出来

工具没意思啊，关键的就是这个解码啊，其他自己根据需要搞一下就行了