削除

EXCELのVBAに関する質問です。削除

Message#1 2014年12月26日(金)09時33分
From: VBA

EXCELのVBAに関する質問です。
VBAでIE（InternetExplorer11）を操作してサイトにログインをしていたのですが、ある日突然に、

実行時エラー'-2147024891(80070005)':
アクセスが拒否されました。

と、表示が出てログイン出来なくなってしまいました。

こんな感じなんですけど…

Sub ログイン()

Set objIE = CreateObject("InternetExplorer.application")
With objIE
.Visible = True
'いすずのみまもりくんというサイトです。
.navigate "https://www.mytruck.jp/m/GA1801.do"
.FullScreen = False
.Top = 0
.Left = 1000
.Width = 800
.Height = 600
.Toolbar = True
.MenuBar = False
.AddressBar = True
.StatusBar = True
End With
Do While objIE.Busy = True
DoEvents
Loop
Dim frm1 As Object
Dim intag As Object
Dim k As Integer
Dim user As Object
Dim pass As Object
Dim submit As Object
Set frm1 = objIE.document.frames(1)
Set intag = frm1.document.getElementsByTagName("input")

'↑↑↑ここで止まってしまって
'実行時エラー'-2147024891(80070005)':
'アクセスが拒否されました。
'と、表示されます。

For k = 0 To intag.Length - 1
If (intag.Item(k).getAttribute("name") = "loginID") Then
Set user = intag.Item(k)
End If
If (intag.Item(k).getAttribute("name") = "password") Then
Set pass = intag.Item(k)
End If
If (intag.Item(k).getAttribute("alt") = "ログイン") Then
Set submit = intag.Item(k)
End If
Next
Do While objIE.Busy = True
DoEvents
Loop
Application.Wait Now + TimeValue("00:00:01")
user.Value = "○○○○○○○○" 'ごめんなさい、ここはちょっと…
pass.Value = "○○○○○○○○" 'ごめんなさい、ここはちょっと…
submit.Click
With objIE
.FullScreen = False
.Width = 900
.Height = 700
End With

End Sub

急に出来なくなってしまって作業に困っています。
どなたか対処の方法がわかる方よろしくお願いいたします。

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。