Sayfayı otomatik kaydeme mesajı

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim sayfamda otomatik kaydetme kodu var, sayfayı ilk açtığımda sayfa otomatik kaydedildi diye mesaj geliyor.

Benim istediğim sayfayı ilk açtığımda bu mesaj gelmesin, sayfa üzerinde çalışırken sayfayı otomatik kaydettiğinde uyarı mesajı versin mesaj tekrar kapanmasını istiyorum.

Yardımcı olur musunuz?

Sub Auto_Open()
Application.OnTime Now + TimeSerial(0, 0, 30), "Auto_Open"
CreateObject("WScript.Shell").Popup "Sayfa otomatik kaydedildi! . .", 1, "UYARI"
ThisWorkbook.Save
End Sub

 

[Korhan Ayhan]

Bir sayaç kullanabilirsiniz.

Dim Say As Byte

Sub Auto_Open()
    Application.OnTime Now + TimeSerial(0, 0, 30), "Auto_Open"
    If Say > 0 Then CreateObject("WScript.Shell").Popup "Sayfa otomatik kaydedildi! . .", 1, "UYARI"
    ThisWorkbook.Save
    Say = Say + 1
End Sub

 

[ASLAN7410]

Sayın Korhan Bey ellerinize sağlık gerçekten güzel oldu, Allah razı olsun.


Hayırlı çalışmalar hayırlı geceler diliyorum.