Açılan excel bir dosyayı belli bir süre sonra kapatma

[u.L.a.s]

Merhabalar

Aşağıdaki gibi code düzeninde. Açtığım bir excel dosyasını 3 saniye sonra kapatıyor. Fakat bu kod açık olan bütün excel dosyalarını kapatıyor. sadece istediğim dosya kapansın gerisi açık kalmaya devam etsin istiyorum.

o dosya masaüstünde xxx.xls dosyası olsun mesela.

Ayrıca illa bu kodun çalışması için xlsm olarak kaydedilmesi gerekiyor. fakat ben bu kodu xls uzantılı dosya içinde uyarlayabilirmiyim

Sub Auto_Open()
    Application.OnTime Now + TimeValue("00:00:03"), "Dosyayı_Kapat"
End Sub

Sub Dosyayı_Kapat()
    ThisWorkbook.Save
    Application.Quit
End Sub

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

ThisWorkbook.Close
    'Application.Quit

 

[sametozyavuz]

aradığın bu tarz bişey sanırım

    Workbooks("Kitap1.xls").Save
    Windows("Kitap1.xls").Close

 

[u.L.a.s]

Kapatmak istediğim dosya yolu ve adı aşağıdaki gibidir


Dosya yeri -->C:\Users\kullanıcıadı\Desktop
Dosya Adı -->(ViewExportExcel).xls

 

[u.L.a.s]

Sub Auto_Open()
    Application.OnTime Now + TimeValue("00:00:03"), "Dosyayı_Kapat"
End Sub

Sub Dosyayı_Kapat()
    Workbooks("C:\Users\kullanıcıklasörü\Desktop\(ViewExportExcel).xls").Save
    Windows("C:\Users\kullanıcıklasörü\Desktop\(ViewExportExcel).xls").Close
End Sub

bu şekilde yazdım ama hata veriyor bana

 

[u.L.a.s]

Bu kodla sorunu hallettim

Sub Auto_Open()
    Application.OnTime Now + TimeValue("00:00:03"), "Dosyayı_Kapat"
End Sub

Sub Dosyayı_Kapat()
    Workbooks("(ViewExportExcel).xls").Close False
    
End Sub

 

[u.L.a.s]

Fakat şöyle bir sorun var. bu kapanan dosya xls uzantılı. ve bu dosyanın içeriğine ben bu macro kodu yazsamda kapandığı için kayboluyor. mecburen açık olan xlsm uzantılı dosyama bu kodu aldım. ve bu makroyu bu xlsm uzantılı excelimde kısayol tuşu ekledim. o tuşa basınca kapatıyor..

Bu tuşa basmadan kapatmanın bir yolu olamaz mı acaba . sonuçta açılan excel dosyasını ha X işaretinden kapatmışım ha bu yazdığım makro ile o kısayol tuşundan kapatmışım bir farkı kalmıyor.