[lnkForumImage]
TotalShareware - Download Free Software
Confronta i prezzi di migliaia di prodotti.
Asp Forum
 Home | Login | Register | Search 


 

Forums >

microsoft.public.vb.general.discussion

excel beforeclose event

avi

8/15/2011 6:42:00 PM

Hello,

I try to fire commands when active workbook is closed with a class
module, but without any success

Public WithEvents objSpr As Excel.Workbook
Public Sub objSpr_BeforeClose(Cancel As Boolean)
MsgBox "hkjhkhkj"
End Sub

Please help

Thanks
Avi
4 Answers

Psyborgue

4/2/2008 3:10:00 PM

0

On Apr 2, 4:58 pm, FreeThinker <krysb...@gmail.com> wrote:
> On Apr 2, 12:43 am, Gregg Hagglund <elro...@cogeco.ca> wrote:
>
>
>
> > On Tue,  1 Apr 2008 23:22:02 -0600 (MDT), Borked Pseudo Mailed
>
> > <nob...@pseudo.borked.net> wrote:
> > >Epilepsy is funny Anonymous 08/03/31(Mon)10:06 ID:628ec6ba  No.123465
>
> > >    http://www.epilepsyfoundation.org/effor...
>
> > >    Post normal, supportive posts in different threads until
> > >    you have like 10, then add this to your sig:
> > >    [img]http://img384.imageshack.us/img384/7943/flas...[/img]
>
> > >    If you have some kind of moral objection to doing this, then
> > >    you need to find a remedy for your troll's remorse. I suggest
> > >    Jack Daniels.
>
> > >    /i/ - Insurgency
>
> > This is *not* from the Moral Anonymous sub group.
> > This is from the Cyber e-Hells Angels sub group.
> > You can tell the difference by their conduct.
> > One group is responsible, the other is cybertrash.
>
> > GH SP7
>
> correct.. there is a subset of anonymous that is raging against
> chanology.  They do not like the moralfag reputation that anonymous is
> getting along with the publicity.  They are trying to bring chaos to
> the movement.  I think the solution reached (and correct me if I'm
> wrong) is that all scientology raid boards will be removed from all
> chans and no more talking about xenu there.  In return I think
> chanology members are distancing themselves from the chans and no
> longer talks about them.. Though i will predict that the subset group
> will still try to cause trouble as their lulz come from the chaos they
> are creating.

The only solution that will work is to IGNORE. /i/ THRIVES on
reaction. If you don't react at all, things dissipate.

Psyborgue

4/2/2008 3:12:00 PM

0

On Apr 2, 4:58 pm, FreeThinker <krysb...@gmail.com> wrote:
> On Apr 2, 12:43 am, Gregg Hagglund <elro...@cogeco.ca> wrote:
>
>
>
> > On Tue,  1 Apr 2008 23:22:02 -0600 (MDT), Borked Pseudo Mailed
>
> > <nob...@pseudo.borked.net> wrote:
> > >Epilepsy is funny Anonymous 08/03/31(Mon)10:06 ID:628ec6ba  No.123465
>
> > >    http://www.epilepsyfoundation.org/effor...
>
> > >    Post normal, supportive posts in different threads until
> > >    you have like 10, then add this to your sig:
> > >    [img]http://img384.imageshack.us/img384/7943/flas...[/img]
>
> > >    If you have some kind of moral objection to doing this, then
> > >    you need to find a remedy for your troll's remorse. I suggest
> > >    Jack Daniels.
>
> > >    /i/ - Insurgency
>
> > This is *not* from the Moral Anonymous sub group.
> > This is from the Cyber e-Hells Angels sub group.
> > You can tell the difference by their conduct.
> > One group is responsible, the other is cybertrash.
>
> > GH SP7
>
> correct.. there is a subset of anonymous that is raging against
> chanology.  They do not like the moralfag reputation that anonymous is
> getting along with the publicity.  They are trying to bring chaos to
> the movement.  I think the solution reached (and correct me if I'm
> wrong) is that all scientology raid boards will be removed from all
> chans and no more talking about xenu there.  In return I think
> chanology members are distancing themselves from the chans and no
> longer talks about them.. Though i will predict that the subset group
> will still try to cause trouble as their lulz come from the chaos they
> are creating.

My feeling is that if that happens, Scientology will post chanology
related stuff on the chans to try and start a backlash. Perhaps a pre-
emptive statement by chanology/Enturbulation stating "We promise to
keep chanology related stuff off the chans. if stuff is posted on the
chans, it probably isn't us, but rather Scientology trying to get a
reaction."

Bob Butler

8/15/2011 6:58:00 PM

0


"avi" <aviben@bezeqint.net.il> wrote in message
news:7461de42-4096-4404-a676-ee2a73126173@z7g2000vbp.googlegroups.com...
> Hello,
>
> I try to fire commands when active workbook is closed with a class
> module, but without any success
>
> Public WithEvents objSpr As Excel.Workbook
> Public Sub objSpr_BeforeClose(Cancel As Boolean)
> MsgBox "hkjhkhkj"
> End Sub

how are you assigning 'objSpr'? The code below starts Excel and reacts to
the workbook close for me.


Private WithEvents moXL As Excel.Application
Private WithEvents moWB As Excel.Workbook
Private WithEvents moWS As Excel.Worksheet

Private Sub Form_Load()
Set moXL = CreateObject("Excel.application")
Set moWB = moXL.Workbooks.Add
Set moWS = moWB.Worksheets(1)
moXL.Visible = True
End Sub

Private Sub moWB_BeforeClose(Cancel As Boolean)
MsgBox "Excel workbook is about to close"
End Sub

avi

8/15/2011 7:37:00 PM

0

On 15 août, 21:58, "Bob Butler" <bob_but...@cox.invalid> wrote:
> "avi" <avi...@bezeqint.net.il> wrote in message
>
> news:7461de42-4096-4404-a676-ee2a73126173@z7g2000vbp.googlegroups.com...
>
> > Hello,
>
> > I try to fire commands when active workbook is closed with a class
> > module, but without any success
>
> > Public WithEvents objSpr As Excel.Workbook
> > Public Sub objSpr_BeforeClose(Cancel As Boolean)
> >  MsgBox "hkjhkhkj"
> > End Sub
>
> how are you assigning 'objSpr'?  The code below starts Excel and reacts to
> the workbook close for me.
>
> Private WithEvents moXL As Excel.Application
> Private WithEvents moWB As Excel.Workbook
> Private WithEvents moWS As Excel.Worksheet
>
> Private Sub Form_Load()
> Set moXL = CreateObject("Excel.application")
> Set moWB = moXL.Workbooks.Add
> Set moWS = moWB.Worksheets(1)
> moXL.Visible = True
> End Sub
>
> Private Sub moWB_BeforeClose(Cancel As Boolean)
> MsgBox "Excel workbook is about to close"
> End Sub

Thanks, It works

Avi