Yardım ortak kullanılan dosyalarda süre

Arkadaşlar işyerimde aynı dosyası ortak kullanan kişilerimiz var bu dosyaya paylaşım verdiğimde sizlerinde bildiği gibi bazı işlemler yapılamıyor. Dosyaya şöyle bir özellik tanımlayabilirmiyiz? Dosya örneğin 5 dk boyunca kullanılmadıysa otomatik olarak kaydet komutu verip dosyayı kapatacak. Bunu ne şekilde yapabiliriz? Teşekkürler..

İstediğiniz çalışmaya buradan ulaşabilirsiniz.
İşlem Yapılmadığında Dosya Kapansın

Murat OSMA' Alıntı:

İstediğiniz çalışmaya buradan ulaşabilirsiniz.
İşlem Yapılmadığında Dosya Kapansın

Genişletmek için tıkla ...

ÇALIŞMA KİTABI KODU

Option Explicit

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
ResetTimer
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ResetTimer
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ResetTimer
End Sub


MODÜLE YAZDIĞIM KOD

Public CloseDownTime As Variant

Public Sub ResetTimer()
On Error Resume Next
If Not IsEmpty(CloseDownTime) Then Application.OnTime EarliestTime:=CloseDownTime, Procedure:="CloseDownFile", Schedule:=False
CloseDownTime = Now + TimeValue("00:15:00") ' hh:mm:ss
Application.OnTime CloseDownTime, "CloseDownFile"
End Sub

Public Sub CloseDownFile()
On Error Resume Next
Application.StatusBar = "Inactive File Closed: " & ThisWorkbook.Name
ThisWorkbook.Close SaveChanges:=True
End Sub




Bu kodlarla çözüm efendim kapatma yapıyor ancak nedense ara sıra kapattığı dosyayı yine kendi kendine geri açıyor tekrar kapatıyor ne alaka onu çözemedim.

Kodları personal.xlsb 'de barındırıyor olabilirsiniz.

Murat OSMA' Alıntı:

Kodları personal.xlsb 'de barındırıyor olabilirsiniz.

Genişletmek için tıkla ...

personel.xlsb nedir hocam? Ben kullandığım dosyama adapte ettim dilerseniz bir örnek dosya verebilirmisiniz?

Teşekkürler

Siz örnek dosya yollamalısınız ki kodlarınıza bakalım.
Verdiğim örnekteki dosyayı kullanırsanız işiniz hallolmuş olur bu arada.. bilginize.

Murat OSMA' Alıntı:

Siz örnek dosya yollamalısınız ki kodlarınıza bakalım.
Verdiğim örnekteki dosyayı kullanırsanız işiniz hallolmuş olur bu arada.. bilginize.

Genişletmek için tıkla ...

Hocam sizdeki kod açılışta soruyor ona göre her seferinde ayar yapmak gerekiyor. Eğer onu macro içerisinde sabit 1 defa ayar yapacak şekilde ayarlayabilirseniz hemen onu ekleyelim. Ben denedim yapamadım. Teşekkürler

Açılışta soruyor dediğiniz ne? Ne soruyor açılışta?

Murat OSMA' Alıntı:

Açılışta soruyor dediğiniz ne? Ne soruyor açılışta?

Genişletmek için tıkla ...

Kaç dakika sonra kapanacağını belirtmemiz için bir giriş seçeneği geliyor. Bende formüle direk 1 defaya mahsus örneğin 10 dk sonra kapatılacak şeklinde belirtsem ve sormasa diyorum Murat bey.

Workbook_Open kodlarındaki Süre'yi elle kendiniz tanımlayın hiç sormasın daha iyi olur.

Murat OSMA' Alıntı:

Workbook_Open kodlarındaki Süre'yi elle kendiniz tanımlayın hiç sormasın daha iyi olur.

Genişletmek için tıkla ...

Aşağıdaki koda göre aktif dosya 10 dakika sonra kapatılıyor arkadaşlar ancak şöyle bir sorun var. Örneği dosya ile işim bitti ve 3 dk sonra kapattım. Bu sefer 7 dk sonra kapatılan dosyayı yeniden açıyor. Bunu kodda nasıl bir değişikli yaparak çözebiliriz?


ÇALIŞMA KİTABI KODLARI

Option Explicit

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
ResetTimer
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ResetTimer
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ResetTimer
End Sub



MODÜL KODU

Public CloseDownTime As Variant

Public Sub ResetTimer()
On Error Resume Next
If Not IsEmpty(CloseDownTime) Then Application.OnTime EarliestTime:=CloseDownTime, Procedure:="CloseDownFile", Schedule:=False
CloseDownTime = Now + TimeValue("00:10:00") ' hh:mm:ss
Application.OnTime CloseDownTime, "CloseDownFile"
End Sub

Public Sub CloseDownFile()
On Error Resume Next
Application.StatusBar = "Inactive File Closed: " & ThisWorkbook.Name
ThisWorkbook.Close SaveChanges:=True
End Sub