excel - cannot select another workbook when macro enabled workbook open -


I have a macro enabled workbook that uses code to set the timer - this is a shared book and often Book people and leave your desk etc. It is set to save & amp; Turn off after 30 minutes of inactivity This function works fine, but the problem I am running is that when I have other workbooks, I can click on the tile (Windows 7) or alt + tab, surround them The only way to move ctrl + shift If this is just using the workbook that will not be an issue - does anyone know why this is happening? Post Code Below: 

  Private Sub Workbook_Open () StartTimer End Sub Personal Sub Workbook_SheetChange (ByVal as a commodity, ByVal range as target) StartTimer End Sub Const idleTime = 1800 seconds Slow start sub StartTimer () Start = Timer while timer & lt; + IdleTime DoEvents Loop Application.DisplayAlerts = False ActiveWorkbook.Close true application.DisplayAlerts = True End Sub Start

To start with

, I'm not completely sure why you are receiving that behavior, but please keep in mind. I have something to do with suspicious your busy-waiting loop (one with the DoEvents ), but it's just a hump Someone else may have a better (better) explanation. Anyway, maybe it's a good way to use you can schedule an operation to be at a certain time or interval and there is an option to cancel and change the scheduled action first. You will need that feature in the Workbook_SheetChange event handler

In short, you can do the following:.

  1. Save Add to a New Routine and Exit Workbook, let's call it: SaveWorkbookAndExit . It will be called by OnTime later

  2. Change the contents of your Workbook_SheetChange event handler like this:. 

      Application.OnTime now + TimeValue ("00:30:00"), _ "SaveWorkbookAndExit", _ Schedule: = false

    this basic form From the program routine SaveWorkbookAndExit should now be called in 30 minutes. Schedule: = Incorrect - Indicates that a predetermined process should be cleaned / aborted, which is very important.

  3. Add the same code to your workbook_on above the event handler However on the contrary, note that you schedule: = true Set up here!

And this is it. When the workbook is opened, a new SaveWorkbookAndExit operation is scheduled. Then, every time you go to Workbook_SheetChange , the scheduled operation will be canceled and a new schedule will be replaced instead.

I have not tested any of these, but I hope you get this idea. Please tell me if you want me to explain something else.


-

Comments

Post a Comment

Popular posts from this blog

sqlite3 - UPDATE a table from the SELECT of another one -

I have the first table article where some data is missing. In the table, articles_tmp I have a part of the missing data. So I want to update the articles. Where the path path is data in articles_tmp.path where the path is not zero . With SQLite , it does not work: update article SET path = (SELECT at.path FROM Articles_tmp as AS, WHERE at.article_id = a.id and a.asp, the text is in the form and not on. It has been transmitted) where the path is null MS Access Along with, it works fine: Update Articles Join the Inner Articles at articles_tmp articles.id = articles_tmp.id SETP articles.path = articles_tmp.path Can anyone help? Sin CE SQL Server Syntax, which I provided, was not working, here this solution With whom I have come. A little modification of your original query, but with my "correlation" suggestion added. There is a SQL Bella for this: Here is the code: update article SET path = (SELECT path from articles_tmp AS T WHERE t.id
Read more

c# - Showing a SelectedItem's Property -

So I have enabled a rightclick option for my DataGrid. I want to display the only chosen property but it is not behaving like what I would like it to display my name and additional. Public category Paymentinfo {public int PaymentNo {get; Set; } Public string date {get; Set; } Public Double Pay {get; Set; } Public Double Principle {get; Set; } Public Double Interest {get; Set; } Public Double Balance {Received; Set; }} Private Zero MenuItem_OnClick (Object Sender, RoutedEventArgs e) {MessageBox.Show (AmortGrid.SelectedItem.ToString ()); } I'm trying to apply it without using a View Module! If I place a breakpoint where the messagebox and the recipient place it on selected ITEM, then this property will display the payment. A date-payment-principle-interest-balance is the only value that needs payment. Was hoping that it would be something like this MessageBox.Show (AmortGrid.SelectedItem.PaymentNo.ToString ()); When you call ToString () So you get the class typ
Read more

javascript - Render HTML after each iteration in loop -

I'm trying to gradually increase the font size of text on a web page. The code works in my place, although the new HTML / CSS does not render after every iteration of the loop and when all this is done, then display only the text of 100 px size. To see the text as if it is slowly zooming, I need to do this JavaScript is down because it is being used from a different file here is what I have ... < Pre> & lt; P class = "game-title" style = "font-size: 50px" & gt; Test & lt; / P & gt; Function sleep (milliseconds) {var start = new date (). GetTime (); For (var i = 0; i & lt; 1e7; i ++) {if ((new date). GetTime () - start) & gt; Milliseconds {break; CSS ('font-size', 'parseInt ($ (' game-title '). CSS (' font-size ')) + 1 + "pixels"); } While (parasont ($ ('# text'). Css ('font-size')) & lt; = 100) {sleep (1000); IncreaseSize (); Using CSS: Use of jQuery (sample):
Read more