Addin Locking Excel
 

Jim
It sounds more like something on that particular PC than your code.
Check that machine does not have a personal.xls or something running
Also check there are no COM add-ins installed, and maybe try unloading
Essbase etc
Also be sure to turn screen updating back on if you turn it off., I remember
issues with 2002. Excel would freeze, I'd open the VBE and type
application.screenupdating=true in the immediate window, then everything was
fine.
cheers
Simon

"Jim Thomlinson" wrote in message
...
I have an addin that uses app level events to catch the before print event.
It installs and works great on a number of computers including my own. On
one
machine however it causes XL to freeze up. Here are the symptoms:

I open Excel and install the addin. At this point it functions correctly
and
there are no errors generated at any point. When I close XL I am prompted
to
save my changes to Book1 which I have not touched or modified in any way
(odd
but I choose not to save the cahnges). When I go to re-open XL no workbook
opens up and all menus are frozen. If I go in and initiate the code in the
addin and then stop the code then XL unfreezes and a new workbook opens
up.

The system that I am installing on is similar to my own:
XL 2002 with SP3
Essbase Installed
CubeAnalysis Installed

Anyone seen anything like this before???

Here is the code...

Class**************
Option Explicit
Private WithEvents xlApp As Excel.Application

Private Sub Class_Initialize()
Set xlApp = Excel.Application
End Sub

Private Sub xlApp_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As
Boolean)
On Error Resume Next
If ActiveSheet.CodeName = "shtKPIrpt" Then
Wb.Sheets("open").Range("B23").Value = CInt(Mid(Wb.Path, 6, 4))
End If
End Sub

Thisworkbook************
Option Explicit

Private Sub Workbook_Open()
'MsgBox "Test1"
Set evtEvents = New clsXLEvents
'MsgBox "Test2" 'This showed up on re-open after install
End Sub

Standard Code Module**********
Option Explicit

Public evtEvents As clsXLEvents

--
TIA...

Jim Thomlinson