Shell "TASKKILL programı tamamen kapatmıyor

[BG]

Degerli Uzman arkadaşlarım,

ekte gonderdigim dosyada sayfa1 de herhangi bir hücreye cift tıklandıgında,
buyutec programı aciliyor burada problem yok, fakat sağ tuşa basıldığında
Shell "TASKKILL /F /IM magnify.exe" komutunu kullandım, ama programı tamamen kapatmıyor, excel dahil sonradan da açılacak tüm pencere ve programların üstünde boşluk kalıyor kısacası tam ekran olmuyor, ancak
Başlat/programlar/donatılar/erişilebilirlik/Büyüteç programı açılıp Çıkış butonuna tıklandığında tam ekrana dönülebiliyor, ne yapılması gerekir sizce?

teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Aşağıdakileri standart bir module yaratarak içine kopyalayınız.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, _
         ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
        (ByVal hwnd As Long, _
         ByVal wMsg As Long, _
         ByVal wParam As Long, _
         lParam As Any) As Long
Const WM_CLOSE = &H10
'-----------------------------
Sub BuyuteciKapat()
    Dim WinWnd As Long
    Dim lpClassName As String
    WinWnd = FindWindow(vbNullString, "Büyüteç")
    If WinWnd = 0 Then Exit Sub
    PostMessage WinWnd, WM_CLOSE, 0&, 0&
End Sub

Daha sonra; mevcut Sağ Mouse Click olay kodlarınızı aşağıdaki gibi revize ediniz.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
BuyuteciKapat
End Sub

 

[BG]

Sayın Ferhat Pazarçevirdi

Hocam çok teşekkür ederim, bir yanlışlık yapmadıysam,kodları dosyaya sayenizde uyarladım, problemsiz çalışıyor, zaman ayırdığınız için teşekkür ederim. iyi çalışmalar dilerim.

ilgilenen arkadaşlarım için dosya ektedir.

not: çalışma sayfasına çift tıklayınca büyüteç açılıyor, sağ tuşa basıldığında büyüteç programı kapanıyor.