dosya açılmıyor

[fatih75]

elimde bir excel dosyası var biri bir macro yüklemiş açıldıktan sonra olağan güncelleştirme sorusunu soruyor ve dosya tekrar kapanıyor dosya hemen kapandığı için ilgili macroya ulaşamıyorum yardımlarınız için teşekkürler

 

[fatih75]

dosya aşağıda

 

[ileriexcel]

Kitabın vba sı şifrelenmiş ve bağlantılı kitap olmadanda işlem görmüyor.

 

[fatih75]

şifre 2446

 

[ileriexcel]

®

Thisworkbook'a yazılmış ilgili kodu kaldırdım.

 

[fatih75]

TeŞekkÜrler Dostum YaptiĞin İŞlem Acemİ Bİrİ İÇİn AnlaŞilabİlİrse Anlatabİlİrmİsİn Tekrar TeŞekÜr Ederİm

 

[bedersu]

Merhaba,
Dosyanızın VisualBasic kısmında ,sayfa isimlerinin yazılı olduğu kısımda bir de ThisWorkbook vardır.Bu Çalışma Kitabı anlamına gelir.Burada

Private Sub workbook_open()
On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Link = ActiveWorkbook.LinkSources(xlExcelLinks)
If IsEmpty(Link) = False Then
For a = 1 To UBound(Link)
Workbooks.Open Link(a)
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
ActiveWorkbook.Close False
Next
End If
End Sub

kodları vardı.Bu,çalışma kitabı her her açıldığında çalışacak olan kodları belirtir çünkü Private Sub workbook_open() (çalışma kitabı açılınca) var.

Çalışma kitabını her açıldığında updatelink(bağlantıları güncelle) makrosu çalışıyor ve bu şekilde bir problem meydana geliyordu.
Siz kitabı her açtığınızda makroları etkinleştir dediğiniz için de bu makro çalışıyor ve VisualBasic kısmına ulaşamadan da kitap kapanıyordu.ileriexcel arkadaşımız da Makroları Dever Dışı Bırak diyerek VisualBasic kısmına girmiş ve ThisWorkbook kısmındaki kodları silmiş.
İnşallah anlatabilmişimdir.