我试图在线搜索代码以在用户超过5分钟不活动时自动关闭我的excel文件。
我找到了一个代码,将其复制了,现在我的工作簿/代码被锁定了,无法访问它。
这是我粘贴的代码:
Private Sub workbook_open()
starttimer
End Sub
Const idletime = 15 'seconds
Dim start
Sub starttimer()
start = Timer
Do While Timer < start + idletime
DoEvents
Loop
Application.DisplayAlerts = False
ActiveWorkbook.Close True
Application.DisplayAlerts = True
End Sub