Merhaba hocam malesef yine hata veriyor ,
kod bloğum aşağıdaki gibi 
Private Sub HariciGiris_Click()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
    
ie.Visible = True

ie.navigate "https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap"
    
    
Do Until ie.ReadyState = READYSTATE_COMPLETE
    DoEvents
Loop

ie.Document.all("j_username").Value = KullaniciAdi.Value
ie.Document.all("isyeri_kod").Value = Me.isyeri_kod.Value
ie.Document.all("j_password").Value = Me.sistemsifresi.Value
ie.Document.all("isyeri_sifre").Value = Me.isyerisifresi.Value
ie.Document.all("isyeri_guvenlik").Value = Me.guvenlikresmi.Value

Do Until ie.ReadyState = READYSTATE_COMPLETE
    DoEvents
Loop
End Sub

bu satır sarı oluyor
Set ie = New InternetExplorer
hata kodu ise 429