We want to share an important update with our Betfair Community users.
Over the coming months, the Betfair Community platform will be winding down. The final active day for the platform will be December 21st. From December 22nd, users will no longer be able to access the platform.
Your discussions, insights, engagement, and, most importantly, feedback have helped shape the platform and guided innovation. Your feedback continues to be important to us, and we will continue to listen via our dedicated feedback channels, as well as through product testing and innovations.
To share your feedback and experience, visit: https://support.betfair.com/app/home
Chit Chat
There is currently 1 person viewing this thread.
We have a spreadsheet at work that a no. of people access. (Office 2010) I found some code on the web that closes the spreadsheet after 10 minutes.
A pain if the harris has started clicking in a cell and leaving it open on their pc for hours.
I was hoping then adding Application.SendKeys ("{escape}") and also tried Range("A1").Select after it, in the hope that this would exit from the selected cell and then close the spreadsheet. It doesn't. 
Can anyone help?
Public RunWhen As Double
Public Const NUM_MINUTES = 10
Module 1
Public Sub SaveAndClose()
Application.SendKeys ("{escape}")
Range("A1").Select
ThisWorkbook.Close savechanges:=True
End Sub
This workbook
Private Sub Workbook_Open()
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0)
Application.OnTime RunWhen, "SaveAndClose", , True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", , False
On Error GoTo 0
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0)
Application.OnTime RunWhen, "SaveAndClose", , True
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0)
Application.OnTime RunWhen, "SaveAndClose", , True
End Sub
A pain if the harris has started clicking in a cell and leaving it open on their pc for hours.
I was hoping then adding Application.SendKeys ("{escape}") and also tried Range("A1").Select after it, in the hope that this would exit from the selected cell and then close the spreadsheet. It doesn't. Can anyone help?
Public RunWhen As Double
Public Const NUM_MINUTES = 10
Module 1
Public Sub SaveAndClose()
Application.SendKeys ("{escape}")
Range("A1").Select
ThisWorkbook.Close savechanges:=True
End Sub
This workbook
Private Sub Workbook_Open()
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0)
Application.OnTime RunWhen, "SaveAndClose", , True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", , False
On Error GoTo 0
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0)
Application.OnTime RunWhen, "SaveAndClose", , True
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0)
Application.OnTime RunWhen, "SaveAndClose", , True
End Sub
sort by:
Show
per page
Replies: 2
|
By:
Should I try the Application.SendKeys ("{escape}") bit of code in one of the other sub routines?
|
|
By:
Compound Magic is the best Excel expert I have seen on here (and usually very helpful) but I haven't seen him post much lately.
|