Hourglass appears when using "activeworkbook.Close Fal

[jmichaelp]

Hi, I have code that opens up a new temp workbook to which I add code (using John Walkenbach's method) to allow me to close the newly opened workbook without saving as follows:

 Set VBCodeMod = ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
With VBCodeMod
StartLine = .CountOfLines + 1
.InsertLines StartLine, _
"Private Sub Workbook_BeforeClose(Cancel As Boolean)" & Chr(13) & _
"activeworkbook.Close  False" & Chr(13) & _
"End Sub"

When I close this workbook, the hourglass appears (in place of the pointer)& stays as long as the hourglass/pointer remains on the spreadsheet. When I move the hourglass/pointer off the screen, the hourglass goes away & I have the pointer again.

Does Excel think some process is still running? If so, why & how to I stop this?

Thanks!

 

[Todd Bardoni]

Re: Hourglass appears when using "activeworkbook.Close

Hmm, not quite sure how to do what you're asking and I'm not quite sure what you're doing in general, but, this may be of interest to you.

If you want to close a workbook and don't want the Save msg to appear, then:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

If I'm way off then disregard.

 

[jmichaelp]

tbardoni, worked perfectly without the hourglass thanks!

I always thought that "activeworkbook.Close False" was the standard way to cose without saving.

fyi, what I'm doing is opening a new, temp workbook with the results of a advanced filter. I have a multi-thousand row sheet with product data sorted according to price & sometimes I want to see all of a particular product only. So, I double-click on the product name & pop this up. I needed a popup workbook instead of a userform because I have a bunch of code behind the sheet that executes to provide additional information when I right-click on particular cells.

 

[Todd Bardoni]

Re: Hourglass appears when using "activeworkbook.Close

Beaware that people can still save the file. The code I posted only prevents the save msg from appearing. To keep people from saving as well, then:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

edit: Ah, i saw the rest of your post above.