Soru Dosyayı kapatıp açma makrosu

Ofis 2007 ve 2013 de denedim, kodlar çalıştı.

365 kullanıyorum ondan mı çalışmadı.

19. mesajınızda hata verdiğini belirttiğiniz satırı silip deneyiniz. O satırı dosyayı salt okunur yapmak için eklemiştim, fakat sonraki denemelerimde çok da gerek olmadığını fark ettim. (En azından benim kullandığım versiyonda) Yukarıdaki mesajımda da belirtmiştim.
Problemin, versiyon farkından veya paylaşılan dosya olmasından dolayı olabilir.

Bir excel dosyasını kendi içinden makro ile kapatıp açamazsınız. Makro Excel kapandığı anda durur. Bunun yerine şöyle bir yaklaşım izlenebilir
Bu kod ile FileLastMod dosyanın son kayıt zamanını bir değişken olarak açılışta kayıt eder ve zamanlayıcı alt yordamını çalıştırır, zamanlayıcı 10 dakikada bir dosyanın kayıt zamanında değişiklik olup olmadığını FileMod değişkeni ile kontrol eder. Son kayıt zamanı olarak FileLastMod'a atanan değer ve zamanlayıcı tarafından kontrol edilen FileMod zamanı aynı olduğu sürece kontrol etmeye devam eder, yeni bir kayıt zamanı yani dosyada güncelleme var ise kullanıcıya güncelleme yapıldığına dair uyarı uyarı mesajı verir ve Oklendiğinde dosya kapatılır, kulllanıcı dosyayı yeniden açtığında güncellenmiş hali ile kullanmaya başlar ve prosedür aynı şekilde işler.
Bunun dışında kendi içindeki makro kapanması ile birlikte son bulacağından sadece Windows görev zamanlayıcısı veya harici bir excel dosyası kullanılarak dosyanız kapatıldıktan sonra yeniden açılabilir.

Tekrar merhaba,
Son olarak kullandığım sürümde çalışan başka bir örnek daha paylaşıyorum. Deneyip sonucu bildirirseniz sevinirim.
Aşağıdaki kodu boş bir modüle kopyalayıp deneyiniz.

Biraz dolambaçlı bir alternatif daha.