Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
App_WorkBookBeforeClose()
Hi ,
I have a piece of VBA code , it goes like this , the class module has Public WithEvents app As Application Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, _ Cancel As Boolean) a = MsgBox("Do you really want to close the workbook?", _ vbYesNo) If a = vbNo Then Cancel = True End Sub for WorkBookBeforeClose under app tab and another module has Public oappobject As New Class1 Sub auto_open() Set oappobject.app = Application End Sub for auto_open under General tab in VBA I saved this as Test.xla , and put under XLSTART folder . When excel is run , my message appears twice for Excel 2003 and once for Excel 2000. Can somebody explain the behaviour and suggest a workaround for this . Thanks in anticipation, Deepa |