DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub auto_open()
Application.OnTime Now + TimeValue("00:05:00"), "Kayıt"
End Sub
Sub Kayıt()
ActiveWorkbook.Save
MsgBox "Kitap Kaydedildi"
Call auto_open
End Sub
Vede devamıExcel'de Araçlar/Seçenekler/Kaydet Otomatik Kurtarma Bilgileri-Otomatik kaydetme belki işinizi görür.
Kolay gelsin.
Thisworkbook modüle ne.peki ya kaydetme işlemini engellemek istersek nasıl bir işlem yapmamız gerekiyor
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub