flash saat uyarı mesajı

[acar6783]

Merhaba arkadaşlar.Ekteki uyarıyı esgeçmemin bir yolu varmıdır?

Her dosyayı açtığımda soruyor?
Kodlar içine ekleme yaparak.
Güvenlik ayarlamasına gerek kalmadan?

Private Sub UserForm_Activate()
ShockwaveFlash1.LoadMovie 0, ThisWorkbook.Path & "\" & "zaman.swf"
End Sub

 

[alicimri]

Sayın acar6783
Aşağıdaki kodu denermisin

Application.DisplayAlerts = False
ShockwaveFlash1.LoadMovie 0, ThisWorkbook.Path & "\" & "zaman.swf"
Application.DisplayAlerts = true

 

[acar6783]

İnanın Benim de ilk aklıma gelen bu olmuştu
Ama tabi değişen birşey olmadı.

 

[acar6783]

Çözüme ulaşamadım.
Fikri olan var mı?