Soru Eklenti Güncelleme Sorunu

[bulentkars]

Arkadaşlar Merhaba,

Aşağıdaki Kodlar AUTO_OPEN ile sürekli çalışmakatadır, eğer xla dosyasında güncelleme varsa uyarı veriyor, kullanıcı tamam değip güncelle yaptığında exceli kapatıp Bat dosyasını çalıştırıyor. kopyalama ve güncellemede sorun yok, sadece güncellemeyi yaptığında yeni excel açtığım zaman eklenti eklentilerden kalkmış oluyor. sürekli eklentilerden eklemek zorunda kalıyorum. Bu konu ile ilgili bana yardımcı olabilirseniz sevinirim. veya aşağıdaki güncelleme ile ilgili önerebileceğiniz farkı bir yöntem varsa kodu değiştirebilirim. Şimdiden Teşekkürler

Sub Versiyon_Kontrol()
Dim o As Date
Dim C As Date
    o = FileDateTime("O:\ORTAK\Eklenti\RAPORLAR.XLA")
    C = FileDateTime("C:\Eklenti\RAPORLAR.XLA")
    If o > C Then    ' Versiyon Kontrolu yapar
     uyarı ' Yeni versiyon varsa güncelleme için uarı yapar
    
      End If
     End Sub
          

Sub uyarı()
Dim cevap
cevap = MsgBox("RAPORLAR Makrosunda Yeni Güncelleme var Lütfen güncelleyiniz.. Devam etmek istiyor musunuz..?", vbYesNo + vbExclamation, "Sayın :  " & Application.UserName)
If cevap = vbYes Then
Application.DisplayAlerts = False
For Each w In Application.Workbooks
    w.Save
    w.Close
Next w
Application.Quit
Shell ("C:\Eklenti\UPDATE\UPDATE.BAT"), vbHide
End If
End Sub





UPDATE.BAT DOSYASI İÇİNDEKİ KOMUT.
@echo off
taskkill /f /im excel.exe
C:
Copy O:\ORTAK\Eklenti\RAPORLAR.XLA C:\Eklenti\