LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 30
Default 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



 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Removing an Addin from the Tools Addin list. Trefor Excel Programming 2 August 25th 06 04:45 PM
locking formula in cells in without locking whole sheet SuziQ Excel Discussion (Misc queries) 1 July 21st 06 03:58 PM
Unshimmed Automation Addin and Shimmed COM Addin in same App Domai Brandon Excel Programming 0 June 27th 06 11:18 PM
How to display the user "locking" a workbook or an addin. Stefano Gatto Excel Programming 1 June 2nd 06 09:05 AM
Remove Excel AddIn from AddIn List !! Help carl Excel Programming 2 December 8th 03 03:36 PM


All times are GMT +1. The time now is 06:54 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"