【#VBA】CreateObject(“Scriptlet.TypeLib”).GUIDで「70 書き込みできません」エラー

某社に出しているVBAマクロが，エラー吐いて，起動できなくなった言うてる
あれ？なんじゃろか？？

某社の社内システム，セキュリティがきついし
また，社内セキュリティ仕様が変わったかね？（これで対応コードを何度か変更した）

とりあえず，思いつくまま対応メールした
んで，別の仕事やろうと思ってたけど，なんか引っかかって，ディープに調べてみた

驚愕の事実，判明((((；ﾟДﾟ))))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ

KB3213624をWindows Update当てると，”Scriptlet.TypeLib” COMの仕様変わって

実行時エラー ’70’: アクセスが拒否されました

が出るそうな

GUID – Run-time error ’70’ permission denied ＠Microsoft
2017 年 7 月のセキュリティ更新適用後、VBA から一部のオブジェクトを作成できません＠Microsoft

CreateObject("Scriptlet.TypeLib").GUID

これ，使いまくり．．．

｡･ﾟ･(ﾉД`)･ﾟ･｡
MSさん，仕様変えるなよぉ～～

このコードに変えれば，大丈夫っぽい？（未検証）

Private Type GUID_TYPE
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(7) As Byte
End Type
Private Declare PtrSafe Function CoCreateGuid Lib “ole32.dll” (Guid As GUID_TYPE) As LongPtr
Private Declare PtrSafe Function StringFromGUID2 Lib "ole32.dll" (Guid As GUID_TYPE, ByVal lpStrGuid As LongPtr, ByVal cbMax As Long) As LongPtr
Function CreateGuidString()
    Dim guid As GUID_TYPE
    Dim strGuid As String
    Dim retValue As LongPtr
    Const guidLength As Long = 39 'registry GUID format with null terminator {xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}
    retValue = CoCreateGuid(guid)
    If retValue = 0 Then

        strGuid = String$(guidLength, vbNullChar)
        retValue = StringFromGUID2(guid, StrPtr(strGuid), guidLength)
        If retValue = guidLength Then  ‘ valid GUID as a string
            CreateGuidString = strGuid
        End If
    End if
End Function

某社担当，今日はお休みらしいので
明日，対応検討しますー