Close workbook due to inactivity.

[Cyberpawz]

RoyUK has shown it can be done, the problem comes in where he gave an excel workbook as an example of what he was showing, it has been deleted...

http://www.excelforum.com/excel-prog...nactivity.html

Is there a way to resurrect this worksheet, or upload a new one to show as an example of how this work? I've read his script, and without knowing how he put it in a sheet I'm not sure how to make it work.

Thanks

[royUK]

I've re-built it for you

[TMS]

The first routine goes in a standard module. The other two go in the Workbook Class module (double click on the wb in the VBE.)


Regards, TMS

[Cyberpawz]

I've re-built it for you

Thanks that is greatly appreciated

I opened the worksheet and it told me that there is a Run-time error '1004':

Method 'OnTime' of object '_Application' failed... at here:

Please Login or Register  to view this content.

[royUK]

That's strange because it works fine on my PC.

Just remove the line splits & see if that is the problem

[Cyberpawz]

I restarted the computer, the error went away.

Thanks again

I do have a question, I see that there is a 5:00 clock on one setting, and a 10:00 clock on another, is there a reason for that? Can they both be the same?

[Cyberpawz]

I got an error, saying it couldn't save my file because it didn't exist, it looks for some reason it is attempting to save the file... here is the image of the error:

Error.Jpg

[TMS]

Works fine for me. In fact, unless you save your work as you go along, the code is designed to close without saving the workbook.

Try downloading it to a folder somewhere and running it from there.

Regards, TMS

[Cyberpawz]

Ok, got it working on the close aspect, but not the saving. I type something in the file and when it closes it doesn't save... I know this because when I open the document again the change I did isn't there.

[john55]

if you want to save automatically when you close the file try this

Please Login or Register  to view this content.

[TMS]

Read my last post ... by design.

If you want to use this approach, you will need to save your data as you go.

Alternatively, take out the .Saved and just Close the workbook. It will, however, sit waiting for the close request to be assessed and actioned ... that is, save or don't.

[TMS]

If you take John's advice, you may commit changes that were not intended to be made permanent.

But, the choice is yours. Save as you go, force the save, or wait for action.

[Cyberpawz]

Solved it, changed a part:

Please Login or Register  to view this content.

it works now.

[TMS]

That may commit changes you had not intended ...

[Cyberpawz]

That may commit changes you had not intended ...

No, but it will teach people good practices. That being said I am running into an issue. The sheet even if I am typing in it saves and shuts down. It looks like the timer doesn't reset itself.

[royUK]

There's no point in the With Thisworkbook statement in your last code snippet, you still use ThisWorkbook.Close

[TMS]

Have you got the change event in every sheet?

It needs to recognise any changes you make. Equally, a selection change would probably work ... It at least means someone is looking at the data, even if they're not changing it.

Regards, TMS

[Cyberpawz]

Have you got the change event in every sheet?

It needs to recognise any changes you make. Equally, a selection change would probably work ... It at least means someone is looking at the data, even if they're not changing it.

Regards, TMS

How would you do that? Because isn't the purpose of putting the code in ThisWorkbook mean to deal with all sheets in the workbook in the first place?

[TMS]

It should be OK if you have this in the Workbook module:

Please Login or Register  to view this content.

That monitors changes in every worksheet. I think that it resets the time.

So, maybe you could add:

Please Login or Register  to view this content.

... should monitor any movement on the sheets.


Regards, TMS

[Cyberpawz]

Sorry it took so long to read this, but this is my code:

Please Login or Register  to view this content.

Yours is not much different than what I have... I can't figure out why this isn't working. This script is in ThisWorkbook.