VBA 'set typelib =createobject(“scriptlet.typelib”)的权限被拒绝

Question

我对我的代码有一个问题，它似乎出现了一整晚。这有一些特点，所以我将尽可能多地给出细节。

所讨论的文件是excel工作簿，它根据传入的数据生成xml文件。该文件通过宏打开、填充和保存，本节运行良好。

在此例程中为.xml创建GUID时会出现问题：

Function GenGUID() As String

Dim strGUID As String
Dim TypeLib As Object

Set TypeLib = CreateObject("Scriptlet.TypeLib")
strGUID = TypeLib.guid

'dump the curly brackets
strGUID = Replace(strGUID, "{", "")
strGUID = Replace(strGUID, "}", "")

strGUID = Left(strGUID, Len(strGUID) - 2)

GenGUID = strGUID

End Function

具体而言，这条线：

Set TypeLib = CreateObject("Scriptlet.TypeLib")

这会引发一个“运行时错误70:权限被拒绝”。

现在，特殊之处。

• 文件在4台机器上试运行，其中一台就能工作。
• “工作”机器的用户尝试在其他3台机器上运行该文件，但没有结果。
• 在3台“坏了”的机器中，有2台在夜间安装了更新，另一台在几天内没有安装更新。这台“工作”机器自2月份以来就没有安装过任何更新。
• 管理员帐户已尝试运行该文件以排除夜间权限更新。
• 该文件昨天(2017年7月12日)在一台“坏了”的机器上运行。
• 所有参考库都已被检查，并与“工作”机器匹配。
• 在所有4台机器上使用的Excel版本都是2013 Pro。

上面最突出的是更新问题。但是，昨天文件运行良好的机器是“坏了的”机器，没有在一夜之间更新，排除了这一点。

我们已经尝试了我们所能想到的一切，同时也尝试了很多互联网搜索答案的方法。什么都没想出来。

有人有什么想法吗？

提前感谢您的帮助。

Answer 1

今天早上我们也遇到了这个问题。

删除Windows KB3213624。解决了错误。

Answer 2

KB3213624似乎是Office 2010安全更新。以下是MS Office其他版本的KBs：

Microsoft Office 2013 Service Pack 1 (64-bit editions)      3213555 
Microsoft Office 2013 Service Pack 1 (32-bit editions)      3213555 
Microsoft Office 2007 Service Pack 3                        3213640
Microsoft Office 2016 (32-bit edition)                      3213545
Microsoft Office 2010 Service Pack 2 (32-bit editions)      3213624 
Microsoft Office 2010 Service Pack 2 (64-bit editions)      3213624
Microsoft Office 2013 RT Service Pack 1                     3213555
Microsoft Office 2016 (64-bit edition)                      3213545

Answer 3

我们现在解决了我们的问题。

很明显是由更新引起的。在回顾所有“坏”机器上的最后一批更新之后，我们现在有4台“工作”机器。