Kaydedince makro otomatik çalışsın

[hakan666]

Merhaba arkadaşlar;

Excel dosyamıza Ctrl S dediğimizde veya kaydet tuşuna başınca makroyu otomatik çalıştırabileceğimiz bir makro yazılabilir mi?

Saygılarımla

 

[ahzola]

Merhabalar;

Bekleyelim çok güzel bir soru.

 

[hakan666]

Maalesef henüz bir cevap gelmedi

 

[Huseyinkis]

Maalesef henüz bir cevap gelmedi

Dosyanızda Thisworkbook (Buçalımakitabı) kısmının altına ekteki kodları yapıştırın ..

Çalıştırılacakmakro adına sizin çalışmasını istediğiniz makronun adını yazın.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call calıştırılacakmakroadı
End Sub

 

[parametre]

ctrl +s veya kaydet tusunu makrıoya cevirdigimizde ActiveWorkbook.Save komutu calsıyor

Range("B9").SelectActiveWorkbook.SaveAs Filename:="dosya yolu ", FileFormat _
:=xlNormal, Password:="dosya acılma paorlası", WriteResPassword:="yazma veya değiştirme parolası", ReadOnlyRecommended:= _
False, CreateBackup:=False burada istenirse yedek alınabiliyor ben alınmasın demişim

 

[hakan666]

Arkadaşlar Teşekkür ederim.