Breaking News: Grepper is joining You.com. Read the official announcement!

excel vba autoclose when idle

Zany Zebra answered on December 26, 2022 Popularity 1/10 Helpfulness 1/10

answer excel vba autoclose when idle

excel vba autoclose when idle

Comment

Dim xTime As String
Dim xWB As Workbook

Private Sub Workbook_Open()
'Updated by Extendoffice 2019/1/20
    On Error Resume Next
    xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 2)
    Set xWB = ActiveWorkbook
    If xTime = "" Then Exit Sub
    Reset
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    On Error Resume Next
    If xTime = "" Then Exit Sub
    Reset
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If xTime = "" Then Exit Sub
    Reset
End Sub

Sub Reset()
    Static xCloseTime
    If xCloseTime <> 0 Then
        ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False
    End If
    xCloseTime = Now + TimeValue(xTime)
    ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True
End Sub

Popularity 1/10 Helpfulness 1/10 Language vb

Source: www.extendoffice.com

Tags: auto-close excel vba when

Link to this answer
Share Copy Link

Contributed on Dec 26 2022

Zany Zebra

0 Answers Avg Quality 2/10

excel vba autoclose when idle

Contents

More Related Answers

excel vba autoclose when idle

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.