Soru kapatırken alınan run-time error hatası

[incsoft]

Arkadaşlar dosyamda böyle bir hata veriyor ve debug dediğimde aşağıdaki alanı işaretliyor. Burada ne sorun olabilir sizce?






Bunun modul kodu da aşağıdaki gibidir..


Option Explicit
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:05:00") ' hh:mm:ss
Application.OnTime CloseDownTime, "CloseDownFile"
End Sub

Public Sub CloseDownFile()
On Error Resume Next
If Environ("ComputerName") <> "UFUK" Then
Application.StatusBar = "Inactive File Closed: " & ThisWorkbook.Name
ThisWorkbook.Close SaveChanges:=True
End If
End Sub

 

[Korhan Ayhan]

Dikkat ederseniz diğer kodlarınızın başında On Error Resume Next satırı bulunuyor.

Bu satırı ekleyip deneyiniz.