Her açtığımda excel uygulamamı çökerten dosya

[danersin]

http://www.lacher.com/examples/lacher42.htm

Dosyanın içeriğini bir türlü göremedim..açamadan çöküyor excel..
acaba bunlamı ilgili..sayfanın :

Last modified: May 21, 1996

 

[Levent Menteşoğlu]

Dosya bende açıldı,fakat şifreli sadece aşağıdaki kod açıktı.
[vb:1:bcdc974ece]'
' Macro1 Macro
' Macro recorded 8/31/96 by John Lacher
'
'
Sub ChangeShading()

With ActiveSheet.DrawingObjects("Picture 3")
For intWrk = 1 To 14
.Formula = "A" & intWrk
Application.Wait Now() + 0.0000007
Next intWrk
End With
End Sub
[/vb:1:bcdc974ece]

 

[danersin]

Çok ilginç makroları çalıştırmasamda, ne yapsam açılmıyor.. Þu anda 2002 Türkçe kullanıyorum. Muhtemelen eski versiyonlarda olupta şimdi desteklemediği bir şey var dosyada veya bir ayar vardır.. Neyse çok önemli değil, sonsuza kadar her versiyonu desteklemek zorunda değil tabii adamlar..

 

[xxrt]

Bende çökmedi ama,..Excel sayfasına eklenen dikdörtgen içindeki renk kombinesinin sıralı dökümü ..
İçindekş modüldeki kodlar;

'
' Macro1 Macro
' Macro recorded 8/31/96 by John Lacher
'
'
Sub ChangeShading()
  
  With ActiveSheet.DrawingObjects("Picture 3")
  For intWrk = 1 To 14
    .Formula = "A" & intWrk
    Application.Wait Now() + 0.0000007
  Next intWrk
  End With
End Sub

Dikdörtgenin ismi Picture8 olarak değişmiş.
Birde buradan indir bakalım...

 

[danersin]

İşe yaradı..
Teşekkürler arkadaşlar.