Makro ile eklenti olarak kaydettirdiğim dosyanın formatı

[bezl]

Selamlar
aşağıdaki kod ile belgemi addins klasörüme eklenti olarak kaydettirmek istiyorum. Görünüşte xla uzantılı olarak kaydediyor gibi gözüküyor ancak uzantısı xla ve fileformatını addin olarak vermeme rağmen normal excel belgesi olarak kaydediyor. Yani eklentiden bu dosyayı seçemiyorum.
Acil yardımlarınızı bekliyorum teşekkürler...

Sub guncel()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim WscNetwork As Object
Set WscNetwork = CreateObject("WScript.Network")
    AddIns("1").Installed = False
ChDir "C:\Documents and Settings\" & WscNetwork.UserName & "\Application Data\Microsoft\AddIns\"
ActiveWorkbook.SaveAs Filename:="1.xla", FileFormat:=xlAddIn
Set WscNetwork = Nothing
AddIns("1").Installed = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.ThisWorkbook.Close
   End Sub

 

[Ali]

Eklenti olarak kaydetmek için makroya neden gereksinim duyuyorsunuz.

Excel Dersanesinde bununla ilgili örnekler var


http://www.excel.web.tr/viewtopic.php?t=8571

http://www.excel.web.tr/viewtopic.php?t=4851

 

[bezl]

eklenti dosyamı içeriğini hemen her gün güncelliyorum sonra da bunu yeniden eklenti olarak kaydediyorum. Bunu makro ile yapmazsam. Belgeyi güncellediğimde ilk önce araçlar eklentilerden işaretini kaldırmam farklı kaydet dedikten sonra exlenti olarak kaydetmem sonra yeniden eklentiyi işaretlemem gerekiyor. Bu işleri otomatikleştirmek için makro ile yapmam gerekiyor. Sorunuzu ve sorunumu anladıysanız yardımcı olursanız sevinirim.