Arka planda açılan çalışma kitabı

[AS3434]

İyi günler
Aşağıdaki makro satırı ile SERVİS isimli dosyamı açarken başka bir çalışma kitabını daha açıyorum. Bu haliyle kodlar çalışınca Data isimli kitap penceresi ekrana geliyor.İstediğim açılan bu ikinci çalışma kitabının (Data) arka planda kalması.

Workbooks.Open Filename:="C:\Documents and Settings\Data.xls"

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Workbooks.Open Filename:="C:\Documents and Settings\Data.xls"
[B]workbooks("servis.xls").activate[/B]

 

[AS3434]

Sn. leventm
Teşekkür ederim.

 

[AS3434]

Peki, Açtığım çalışma kitabını nasıl kapatacağım.
kırmızı satırı çeşitli yerlerde denedim ama bir türlü yapamadım. Devamlı hata veriyor. Bir püf noktasını atlıyorum ama bulamadım.
Kullandığım kapat makrosu şöyle;

Sub kapat()
' Excel.web.tr
If MsgBox("KAPATMAK İSTEDİĞİNİZDEN EMİN MİSİNİZ?", vbYesNo, "SERVİS") = vbNo Then Exit Sub
kullanici = Application.UserName
saat = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
sor = MsgBox(" GÖRÜŞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _
SERVİS & Chr(10) & Chr(10) & _
Tarih : & tarih & Chr(10) & Chr(10) _
& "Saat : " & saat & Chr(10) & Chr(10) _
Dosyanızın kaydedilmesini istiyor musunuz?, 4, "SERVİS")
If sor = vbYes Then
If MsgBox("YENİ SERVİS NO VERDİNİZ Mİ?", vbYesNo, "SERVİS") = vbNo Then Exit Sub
If sor = vbYes Then
For a = 2 To Sheets.Count
Sheets(a).Protect
Next
ActiveWorkbook.Save
Else
Application.DisplayAlerts = False
End If
End If
Workbook.Close Save, Filename:="C:\Documents and Settings\Desktop\Data.xls"
If Workbooks.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Close
End If
End Sub


Edit. Tamam arkadaşlar sorunu çözdüm.
Workbooks("Data").Close Save
Şeklinde yazılınca oldu.