Help with WorkbookBeforeClose

[huzman]

Hi All!

How do I use this:

Private Sub object_WorkbookBeforeClose(ByVal Wb As Workbook, ByVal Cancel As Boolean)

what's an object? how do i declare it?

I want to use this as i want something to happen immediately before the workbook closes.

Thanks!!

 

[Iridium]

Would the Workbook_BeforeClose event not suffice? What are you trying to do?

 

[huzman]

Iridium, Thanks! This is what i am trying to to:

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)

Worksheets(6).Visible = True
Worksheets(1).Visible = xlVeryHidden
Worksheets(2).Visible = xlVeryHidden
Worksheets(3).Visible = xlVeryHidden
Worksheets(4).Visible = xlVeryHidden
Worksheets(5).Visible = xlVeryHidden

Worksheets("Warning").Activate

Cells(1, 1).Activate
End Sub

 

[Iridium]

So would this not suffice in the ThisWorkbook module (not in a standard module and assuming you have events enabled)?

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Worksheets(6).Visible = True
    Worksheets(1).Visible = xlVeryHidden
    Worksheets(2).Visible = xlVeryHidden
    Worksheets(3).Visible = xlVeryHidden
    Worksheets(4).Visible = xlVeryHidden
    Worksheets(5).Visible = xlVeryHidden

    Worksheets("Warning").Activate

    Cells(1, 1).Activate
End Sub

HTH

 

[huzman]

Thanks again,
The issue with BeforeCloseEvent is that the code will run before the workbook closes.If the workbook has been changed, this event occurs before the user is asked to save changes.

While, with WorkbookBeforeClose Event, it happens immediately before any open workbook closes, and after the use is asked to save the changes, which is what i need.