vba - アクセス拒否; エラー 70 ....Word 2007

Question

Word 2007 マクロの実行時に奇妙な問題が発生します。

背景情報: この特定のマクロは、ActiveX コントロールを使用します。これにより、ユーザーはクライアント/アドレス情報をデータベースから取得し、Word 文書のフォーマット済みフィールドに入力できます。

これらはすべて、オフィスの 50 台以上のユーザー PC で数年間問題なく動作しました。昨日の朝、オフィスに来て、突然動かなくなりました。全員がエラー 70 許可拒否メッセージを受け取ります。

参考のためsProgressPath = "p:\acts\"

コードの一部を次に示します。

Dim InFile As String

InFile = sFolderPath & "Results.txt"

'Delete results file if present

If Dir(InFile) <> "" Then
   Kill InFile
End If

'start an instance of progress by executing the batch file

Set objshell = CreateObject("WScript.Shell")

strBatFilePath = sProgressPath & "how2send.bat"

**objshell.Run strBatFilePath, 0**

Set objshell = Nothing