Merhaba,

internet explorer'i aç,

İnternet Seçenekleri'nde Gizlilik Sekmesi, Açılır Pencere Engelleyicisi kısmındaki Ayarlar butonunu tıkla,

Açılan sayfada izin verilecek web sitesi adresi kısmına

yazıp Ekle Butonunu tıkla,





İnternet Explorer'i kapat.

Excel Belgesindeki "CommandButton2" isimli butonun tıklandığında olayına aşağıdaki kodu ekle,

Dim ie As Object

Set ie = CreateObject("internetexplorer.application")



ie.Visible = True



ie.Navigate "https://intvd.gib.gov.tr/internetvd/index.jsp"



Do While ie.Busy Or Not ie.ReadyState = READYSTATE_COMPLETE

DoEvents

Loop



Set doc = ie.Document

    

    

Call doc.parentWindow.execScript("openLoginPopup()", "JavaScript")

    

ie.Quit