hücreye tıklandığında bütün açık kitapların kaptılması

[karayel_antep]

evet başlıktanda anlaşıldığı gibi herhangi bi hücreye tıkladığımda bütün açık olan kitapların kapanması ve istemiş olduğum excel kitabının açılması gerekmektedir. bu konuda yardımlarınızı bekler zihninizin açıklığını dilerim

 

[halit3]

Bu kod Aktif çalışma kitabından sonraki açık kitapların hepsi kapatıyor.

Sub acıkolandosyalarıkapat()
Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
If wkbk.Name <> ActiveWorkbook.Name Then
If Windows(wkbk.Name).Visible = True Then
wkbk.Close SaveChanges:=False
End If
End If
Next
End Sub

 

[karayel_antep]

kardeş yardımın için teşekkür ederim. bu konu ile ilgili bi kaç sorum daha olacak ama yüzyüze veya msn de yazışarak sorunumu çözebilirim ancak eğer kabul edersen sana zahmet ekle karayel_antep@hotmail.com çünkü bu dosyayla iş yerimde ekmek yiycem sayende

 

[Tarkan VURAL]

Selamlar, alternatif olarak deneyiniz.

Dim evnExc As Excel.Application, hedef As String
hedef = "c:\test.xls" 
Set evnExc = New Excel.Application
evnExc.Visible = True
evnExc.Workbooks.Open hedef
With Application
.DisplayAlerts = False
.Quit
End With
hedef = vbnullstring
Set evnExc = Nothing

 

[karayel_antep]

Teşekkür ederim üstad