internet explorer

[acemi1985]

Selam Arkadaşlar.
exceli açtığım zaman internet explorer minimize yapma makrosu lazım internete baktım bulamadım
Yardımlarınızı Rica ediyorum.saygılar.

 

[Seyit Tiken]

Application.WindowState = xlMaximized

 

[acemi1985]

Ustadım dediğiniz kodu denedim ama olmadı.

Benim çalışmamda userform var exceli açtığım zaman excel minimize oluyor userform açılıyor.
internet explorer da bi kısa yol yaptık bu excel için bu kısa yola tıkladığımızda excel açılıyor fakat internet explorer arkasında kalıyor ben ise ekranın önünde olsun istiyorum.onun için ya internet explorerı minimize etme makrosu yazmam gerekiyor yada userformu ekranın önüne getirme makrosu yazmam gerekiyor ama bulumadım bir türlü

 

[Seyit Tiken]

Bunlardan birini deneyiniz.

Application.WindowState = xlMinimized
Application.WindowState = xlNormal

 

[acemi1985]

Seyit bey denedim olmadı.Bu kod exceli minimize ediyor ben ise internet explorerı minimize etmek istiyorum üstadım.

 

[Haluk]

Merhaba;

Seyit beyin kodlarındaki "Application" ifadesi, Excel'in kendisine ait olduğu için, Internet Explorer nesnesini etkilemez.

Sorunun çözümü için API kullanmak gerekir. Bunun için, aşağıdaki kodları UserForm modülünün en üstüne yapıştırın. UserForm ekrana geldiğinde, mevcut Internet Explorer penceresi simge durumuna küçülecektir.

Private Declare Function apiShowWindow Lib "user32" _
        Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'
Private Sub UserForm_Activate()
    Set objShell = CreateObject("Shell.Application")
    Set objWindows = objShell.Windows
    
    For Each Prog In objWindows
        If (InStr(1, Prog, "Internet Explorer", vbTextCompare)) Then
            apiShowWindow Prog.hwnd, 2
        End If
    Next
End Sub

 

[acemi1985]

Haluk bey Emeğinize Elinize Sağlık.
Userformu Kapattığımda da Explorer açılması için

apiShowWindow Prog.hwnd, 3

yaptım harika çalışıyor..

 

[Haluk]

Kolay gelsin,

.

 

[acemi1985]

Merhabalar Haluk bey Bu kod yeni versiyon excelde çok güzel çalışıyor ama 2010 excelde sorun çıkardı maalesef size zahmet bunu nasıl çözebiliriz üstadım.hakkınızı helal edin sizi de yoruyorum

 

[Haluk]

Ben zaten Excel 2010' da hazırlamıştım kodu ve bir sorun olmamıştı.

Sizde verdiği hata nedir?

.

 

[acemi1985]

compile error in hidden module userform1.this error commonly occus when code version,platform,or architecture of this application.click "help" for information on how to correct this error.

bu hatayı veriyor Haluk Bey.

hata veren kod ise

Private Declare Function apiShowWindow Lib "user32" _
        Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

 

[Haluk]

Verdiği hatayı çözmek için dosyayı görmek lazım.

VBA kodlarını da sanırım şifrelemişiniz.

.

 

[Haluk]

Yukarıdaki 12. mesajınızı yeniden düzelemişsiniz.

Kullandığınız Ofis versiyonu 32 bit mi 64 bit mi? Ayrıca, bilgisayarınızdaki Internet Explorer versiyonu güncel mi?

.

 

[acemi1985]

Haluk bey
compile error:
the code in this project must be uptated for use on 64-bit systems. Please review and uptadate Declare statemennts and then mark them with the PtrSafe attribute.

Birde böyle bir Hata mesaji çıktı.

 

[acemi1985]

Bilgisayarlar 64.bit Internet Explorerda aynı sürüm şimdi baktım. ( 11.0.41 (kb40146661))

 

[Haluk]

Sanıyorum 64 Bit sorunu var.

Kodu bir de böyle deneyin ....

#If Win64 Then
    Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
    Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If
'
Private Sub UserForm_Activate()
    Set objShell = CreateObject("Shell.Application")
    Set objWindows = objShell.Windows
    
    For Each Prog In objWindows
        If (InStr(1, Prog, "Internet Explorer", vbTextCompare)) Then
            apiShowWindow Prog.hwnd, 2
        End If
    Next
End Sub

 

[acemi1985]

Haluk bey Elinize Sağlık Gayet Güzel Çalışıyor.Bu problemide ustalıkla hallettiniz

 

[Haluk]

Rica ederim, kolay gelsin ...

.