Win開(kāi)始——運(yùn)行,輸入Regedit,打開(kāi)注冊(cè)表編輯器,找到如下路徑:
HKCU\Software\Microsoft\VBA\Security,找到LoadControlsInForms項(xiàng)(如果沒(méi)有,新建一個(gè)),將其值修改REG_DWORD類型的1
HKCU\Software\Microsoft\Office\Common,找到Security\UFIControls項(xiàng)(如果沒(méi)有,新建一個(gè)),將其值修改為REG_DWORD類型的1
如果不會(huì)操作注冊(cè)表,新建一個(gè)EXCEL文件,按【ALT+F11】,主菜單“插入”——模塊,將下述代碼粘貼到右側(cè)編輯區(qū),然后執(zhí)行主菜單“運(yùn)行”——過(guò)程,然后退出EXCEL(不用保存新建文件),再打開(kāi)EXCEL就解決了控件初始化不安全的提示
Sub ControlAx()
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms", 1, "REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Office\Common\Security\UFIControls", 1, "REG_DWORD"
Set WshShell = Nothing
End Sub
聯(lián)系客服