tümünü kaydet ama dosyaları kapatma

[osmancig]

çok büyük dosyalar ile çalışıyorum. hepsini aynı anda açmam gerekiyor malesef excel bazen geçersiz işlem yürütüyor. ben de hepsini kaydetmem için tüm dosyaları kayderek kapat komutu veriyorum (kaydetmek isteyip istemediğimi sorduğunda tümüne evet diyorum)

sonra bu dosyaları tekrar açmam uzun sürüyor diğer işlerim de olduğundan bilgisayarın başında oturarak bu dosyaları teker teker kaydet komutu vermek istemiyorum. tümüne evet dedikten sonra bilgisayarın başına 3 dakika kadar gelmeyip başka işlerimi hallediyorum. sonra tekrar dosyaları açmak bana sıkıcı geliyor.

Excel'e bütün açık dosyaları kendilerini kapatmadan kaydecek bir tuş eklemek istiyorum. nasıl yapabilirim ?

 

[xxcell]

Aşağıdaki kodu çalıştırdığınızda tüm açık dosyaları kaydeder.

Sub TumAcikDosyalariKaydet()
For i = 1 To Workbooks.Count
Workbooks(i).Save
Next
End Sub

 

[osmancig]

o kodu nasıl çalıştırabilirim ?

 

[Metin Karaağaç]

Aşağıdaki link size yol gösterebilir.
http://www.excel.web.tr/showthread.php?t=7756