Sayfada işlem yapılmadığında otomatik kaydedip kapanma

[ASLAN7410]

Merhaba arkadaşlar hayırlı geceler.

Forumda ve internette çok araştırdım ancak benim istediğim gibi bir şey bulamadım.

Ortak ağda kullandığımız bir kaç excel sayfası var, bazı arkadaşlar bu sayfayı açtığında bazen sayfayı açık unutuyor, diğer arkadaşlarda bu sayfaları açtığında salt okunur şeklinde açılıyor.

Benim istediğim açık olan sayfa üzerinde herhangi bir işlem yapılmadığında aktif sayfa otomatik olarak kaydedip kapanmasını istiyorum.
Yardımcı olan arkadaşlara şimdiden teşekkür ederim.

Aşağıdaki kodları nettte buldum, ancak işime yaramadı.
Sayfa ilk açıldığında süre çalışmaya başlıyor sayfa üzerinde değişiklik yapsanda yapmasanda sayfa 20 saniye sonra kapanıyor.

Modül kısmındaki kod

Public süre As Double

BuÇalışmaKitabı kısmındaki kod

Private Sub Workbook_Open()
süre = 20 ' saniye olarak süre
basla = Timer
Do While Timer < basla + süre
DoEvents
Loop
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

 

[alicimri]

Sn ASLAN7410
Kitabın hem "Open" hemde "SheetChange" olayına nette bulduğunuz kodu uygularsanız.

Private Sub Workbook_Open()
süre = 20 ' saniye olarak süre
basla = Timer
Do While Timer < basla + süre
DoEvents
Loop
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
süre = 20 ' saniye olarak süre
basla = Timer
Do While Timer < basla + süre
DoEvents
Loop
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

 

[ASLAN7410]

Sayın Ali Bey ilginize çok teşekkür ederim, vardiyalı çalıştığım için bilgisayar başına yeni geçebildim.

Dediğiniz gibi yaptım kod gayet güzel çalışıyor ancak küçük bir hata oluyor, yazı tipi, yazı tipi boyutu, dolgu rengi, yazı tipi rengi pasif hale geliyor, bunlar pasif olduğu için sayfa üzerinde düzenleme yapılamıyor.