The bad news is that the user would still have to be at their desk to hit one of
the buttons (and be observant, too <vbg).

And if they've seen the reminder, they could close and save or discard their
changes.

But if I were going to ask, I'd create a small userform with 3 buttons:

Continue working
Close and discard changes
Save changes and close

The builtin message boxes don't offer customized buttons. So you'd probably
have to explain the difference between
Cancel
Yes
No
(or whatever 3 buttons you chose)

You'd still your existing ontime stuff, though--to get the prompt.

Dim myPrompt As String
Dim Resp As Long

myPrompt = "Click Cancel to continue working" _
& vbLf & "Click Yes to save and close" _
& vbLf & "Click No to close and discard"

Resp = MsgBox(prompt:=myPrompt, Buttons:=vbYesNoCancel)

Select Case Resp
Case Is = vbYes
ThisWorkbook.Close savechanges:=True
Case Is = vbNo
ThisWorkbook.Close savechanges:=False
Case Else 'cancel
'do nothing
End Select

=====
I've never found this a good solution. People walk away from their desks, get
phone calls, ... and just never notice the time in the workbook.

I know that I started locking my pc (with a password) when I walked away--just
to stop anyone from touching the stuff I was working on. I would imagine that
this could happen in your office, too.


Alberta Rose wrote:

Excellent points Dave and Eric! I hadn't thought about the other variables
that could happen, eek... I like the idea of putting the warning on.

I'm also the Microsoft Access person for our company, and would love to get
this switched over to Access, but ... higher powers love Excel and are slowly
moving towards Access.

Do you have the coding I would put to give the Continue or Quit options?
Thanks for your help with this, much appreciated...

Laurie

"EricG" wrote:

Something intermediate that I have done many times is to put a very visible,
impossible to miss warning form that says something like "It's been a long
time since you did anything! Are you still working in the file
'Share_File.xls'? If not, please exit so others can use it." I have two
buttons: "Continue" and "Quit". The user makes the choice.

Also, the thought of making it a shared workbook just crossed my mind...


"Dave Peterson" wrote:

If I were a user of this workbook, I'd be worried--even if I'm not the offender.

If you save that workbook that hasn't been touched in 10 minutes, how do you
know what you're saving?

If that user did something very bad (destroying lots of data or deleting lots of
sheets--either by mistake or on purpose (wanting to save it as a new name)),
then doesn't saving it just make matters worse?

And if you think you can close without saving, I'd hate to be the user who made
an hours worth of intricate changes only to lose them because I got a phone
call.

Heck, I'd hate to be the developer of that ontime procedure when the user
complains that he or she didn't do the damage--the developer did.

Personally, I think that this is a training issue. You have to get the users on
board to make changes and get out.

Even better would be to use a different application--one that supports multiple
concurrent users (Access or any real database program????).

That said, I used to have the same problem. Instead of closing the file
automatically, I'd write a record to a text file on a server that was open to
everyone (but no one knew about!) whenever any opened the workbook or closed it.

Then I'd just open that text file (readonly mode!) to see the last person to
open without closing.



Alberta Rose wrote:

At times someone in our office has a certain file open to which others
need access. If the person hasn't made changes in 10 minutes, I'd like the
file to save and close automatically after this time period. I've tried a
couple of suggestions on this site, but not working. Any help?

--

Dave Peterson


--

Dave Peterson