Private Sub Workbook_Open()
StartTimer
End Sub

 

og i et alm. modul :

 

Public Test As Double
Public flag As Single
Public Const minut = 5 '<- angiv antal minutter der skal ventes før luk

 

Sub StartTimer()
Test = TimeSerial(0, minut, 0): flag = False
MinTimer
End Sub

 

Sub MinTimer()
If flag = True Then Exit Sub
Test = Test - TimeSerial(0, 0, 1)
If Not ThisWorkbook.Saved Then ThisWorkbook.Saved = True: Test = TimeSerial(0, minut, 0)
Application.StatusBar = "Excel lukker ned om..: " & Format(Test, "hh:mm:ss")
If Test > 0 Then
Application.OnTime Now + TimeSerial(0, 0, 1), Procedure:="MinTimer"
End If
If Test <= 0 Then ThisWorkbook.Save:  Application.Quit
End Sub

 

Sub StopTimer()
flag = True ' stop timer før tid uden at lukke
End Sub

 

Jeg er ny indenfor macro området, så jeg søger lidt hjælp.

Jeg har en macro som autolukker min workbook, hvis den er inaktiv i x antal minutter.

Mit problem er:

Jeg vil gerne have vist den resterende tid, inden workbook lukkes, i mit worksheet celle(A1)

Min autoclose macro ser således ud:

Private Sub Workbook_Open()
Føler
End Sub

 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Føler
End Sub

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Stop_Føler
End Sub

 

Const LukNedEfter As String = "00:50:00"
Const GemFørst As Boolean = True

Public Tid As Date
Sub Start_Føler()
    Tid = Time
    On Error Resume Next
    Application.OnTime Tid + TimeValue(LukNedEfter), "LukNed"
    On Error GoTo 0
End Sub

 

Sub Stop_Føler()
    On Error Resume Next
    Application.OnTime Tid + TimeValue(LukNedEfter), "LukNed", , False
    On Error GoTo 0
End Sub

 

Sub Føler()
    On Error Resume Next

    If ThisWorkbook.ReadOnly = True Then Exit Sub

    Call Stop_Føler

    Call Start_Føler
End Sub

 

Private Sub LukNed()
    If ThisWorkbook.ReadOnly = True Then Exit Sub
    ThisWorkbook.Close (GemFørst)
End Sub

 

Please Help