excel uygulamasını kapatmak

[þahins]

Herkese iyi günler diliyorum,
Bir excel uygulamasını açtığımda sadece bir userform açılıyor excel geri planda gizleniyor. Kapatırkende ya form penceresinden (x) yada commmandbutton'a aktarılmış aşağıdaki kodlarla kapatmaktayım.

Unload UserForm1
Workbooks("Ã?rnek.xls").Close

Ancak uygulama kapatılmış gibi gözüksede görev yöneticisini açtığımda excel olarak çalışır halde bulmaktayım. Silmek istediğimde uygulama halen çalışıyor mesajını almaktayım. Makrosuz bir excel dosyasını açıp kapattığımdaki gibi kapanmasını istiyorum. Görev yöneticisinde çalışır olmamasını istiyorum.
İlgilenen tüm arkadaşlara şimdiden teşekkür ediyorum.

 

[Mahmut Bayram]

application.quit ekle

 

[þahins]

o kodu daha öncede uygulamıştım kapatmıyor. Ben görev yöneticisinden kapanmasını istiyorum.

 

[Haluk]

Bahsettiğiniz dosya, başka bir Excel oturumunda mı açılıyor ?

 

[Mahmut Bayram]

syn sahins raider yapmış olduğu bir programın kodlarını veriyorum affına sığınarak userform ekleyin, bir listbox ve birde command buton aşağıdaki kodları yapıştırın
'**************************************************************
'* Bilgisayardaki o anda calisan butun programlari *
'* UserForm uzerindeki ListBox1 nesnesinde, ID' leri ile *
'* birlikte gosteren bir calismadir. *
'* *
'* ListBox uzerinde tıklayarak seceginiz bir programin *
'* calismasi derhal sonlandırılır. *
'* *
'* Kodların calismasi icin bilgisayarda WMI yuklu olmalidir. * *
'* Burasi Excel vadisi ..... *
'* Raider ® *
'* Ocak 2005 *
'* *
'**************************************************************

'
Dim Prog As Object
Dim objWMIService As Object
Dim RunningProcesses As Object
Dim strRet As String
'
Const strComputerName As String = "."
Const strNameSpace As String = "root\cimv2"
Const strClassName As String = "win32_process "
'
Private Sub CommandButton1_Click()
Dim Prog As Object
Dim objWMIService As Object
Dim RunningProcesses As Object
Dim MyArray() As Variant
Dim i As Long
On Error Resume Next
If Err.Number <> 0 Then
MsgBox "WMI yüklenmemiş! Programdan çıkılacak...", vbExclamation, _
"Windows Management Instrumentation"
Exit Sub
On Error GoTo 0
End If
Set objWMIService = GetObject("winmgmts:\\" & strComputerName & _
"\" & strNameSpace)
Set RunningProcesses = objWMIService.ExecQuery("Select * from " & strClassName)
i = 0
For Each Prog In RunningProcesses
ReDim Preserve MyArray(1, i)
MyArray(0, i) = Prog.Name
MyArray(1, i) = Prog.ProcessId
i = i + 1
Next
ListBox1.List = WorksheetFunction.Transpose(MyArray)
Erase MyArray
End Sub
'
Private Sub ListBox1_Click()
Set objWMIService = GetObject("winmgmts:\\" & strComputerName & _
"\" & strNameSpace)
Set RunningProcesses = objWMIService.ExecQuery("Select * from " & strClassName)
For Each Prog In RunningProcesses
If ListBox1.Text = Prog.Name Then Prog.terminate
Next
ListBox1.Clear
End Sub

Private Sub UserForm_Click()

End Sub

 

[þahins]

İşim gereği vaktim çok kısıtlı önerinizi uygulayıp sonucu bildirecem.

 

[Ongun]

Selamlar,
Private Sub CommandButton4_Click()
Dim Cevap As VbMsgBoxResult
Cevap = MsgBox("PROÐRAMIN KAPATILMASINI İSTİYOR MUSUNUZ.?", _
vbOKOnly + vbYesNo, "MESAJ")
If Cevap = vbYes Then
ActiveWorkbook.Save
Excel.Application.Quit
End If
End Sub
Yukarıdaki kodu denermisiniz. iyi çalışmalar.

 

[þahins]

Sadece kapatma satırı olan Excel.Application.Quit 'i denedim. Win98'de kapatmıtor, WinXP'de kapatıyor ve dosyayı silebiliyorsun.
Teşekkürler