excel kaydedilince istenen mesaj görüntülensin

[umax**]

İyi Günler,
Bir excel dosyasını kaydettikten sonra ekranda istenen bir mesaj gösterilmesini ne şekilde yapabilirim.
İlginize şimdiden teşekkür ederim

 

[6729626]

Aşağıdaki makro ile kayıt yapıldığı masajla belirtiliyor. Ve aynı zamanda c:'ye yedek alıyor. Sanırım istediğiniz böyle birşey.
Sub Kaydet()
ActiveWorkbook.Save
On Error GoTo hata
ThisWorkbook.SaveCopyAs "C:\(yedek almak istediğiniz dosya adı.XLS"
MsgBox "KAYIT YAPILDI - YEDEK ALINDI", vbInformation, Application.UserName
Exit Sub
hata:
MsgBox Err.Number & " : " & Err.Description, vbCritical, "YEDEK ALINAMADI!"
End Sub

 

[umax**]

öncelikle ilginize teşekkür ederim. ancak istediğim excelde bulunan kaydet butonuna basılınca bir mesaj vermesi.
değişik şekilllerde denedim ancak bir türlü başaramadım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu çalışmanızın ThisWorkbook bölümüne uygulayıp denermisiniz.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    MsgBox "DOSYANIZ KAYIT EDİLMİŞTİR.", vbInformation
End Sub

 

[teonet]

slm

Merhaba
Hoş bir konu uygulamayı denedim ama başaramadım. daha detaylı anlatabilirmisiniz? Sıfırdan bilen bir kişi olarak şimdiden teşekkür ettim.