I'm trying to write code that will disable the "Sort" menu option when I open
a specific workbook, and enable it again when the workbook is closed. The
actual code that does that is written, but when I place references to it in
the Workbook_Open sub, it is not called.

Just to test, here is the code I put in:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call disable_sort(True)
MsgBox "Workbook_BeforeClose"

End Sub

Private Sub Workbook_Open()

MsgBox "Workbook_Open"

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'Call disable_sort(False)

MsgBox "Workbook_SheetActivate"

End Sub

When I open the file, nothing at all happens. When I move to a different
sheet, the message box for SheetActivate pops up. When I close the file, the
"Workbook_Close" message box appears.

So what's the deal with Workbook_Open? </Seinfeld
--
Hmm...they have the Internet on COMPUTERS now!

Hi,
I do not see any call to disable_sort in Workbook_Open? If the call to
disable_sort with the True parameter is supposed to turn off the Sort option
then your Workbook_Open event should include that

Private Sub Workbook_Open()

Disable_Sort True
MsgBox "Workbook_Open"

End Sub


"MDW" wrote:

I'm trying to write code that will disable the "Sort" menu option when I open
a specific workbook, and enable it again when the workbook is closed. The
actual code that does that is written, but when I place references to it in
the Workbook_Open sub, it is not called.

Just to test, here is the code I put in:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call disable_sort(True)
MsgBox "Workbook_BeforeClose"

End Sub

Private Sub Workbook_Open()

MsgBox "Workbook_Open"

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'Call disable_sort(False)

MsgBox "Workbook_SheetActivate"

End Sub

When I open the file, nothing at all happens. When I move to a different
sheet, the message box for SheetActivate pops up. When I close the file, the
"Workbook_Close" message box appears.

So what's the deal with Workbook_Open? </Seinfeld
--
Hmm...they have the Internet on COMPUTERS now!

I already tried that. It doesn't work.

Like I said, I can't even get the messagebox to appear. The event itself
isn't firing.

--
Hmm...they have the Internet on COMPUTERS now!


"Alok" wrote:

Hi,
I do not see any call to disable_sort in Workbook_Open? If the call to
disable_sort with the True parameter is supposed to turn off the Sort option
then your Workbook_Open event should include that

Private Sub Workbook_Open()

Disable_Sort True
MsgBox "Workbook_Open"

End Sub


"MDW" wrote:

I'm trying to write code that will disable the "Sort" menu option when I open
a specific workbook, and enable it again when the workbook is closed. The
actual code that does that is written, but when I place references to it in
the Workbook_Open sub, it is not called.

Just to test, here is the code I put in:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call disable_sort(True)
MsgBox "Workbook_BeforeClose"

End Sub

Private Sub Workbook_Open()

MsgBox "Workbook_Open"

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'Call disable_sort(False)

MsgBox "Workbook_SheetActivate"

End Sub

When I open the file, nothing at all happens. When I move to a different
sheet, the message box for SheetActivate pops up. When I close the file, the
"Workbook_Close" message box appears.

So what's the deal with Workbook_Open? </Seinfeld
--
Hmm...they have the Internet on COMPUTERS now!

Sometimes the code turns off the events by executing this line

Application.EnableEvents = False

This may have happened in your case. Either this excel workbook or another
one loaded in the same Excel instance may have done it.

I suggest you close your workbook and then open it again in a new instance
of excel. That is Start Excel and then do File/Open.



"MDW" wrote:

I already tried that. It doesn't work.

Like I said, I can't even get the messagebox to appear. The event itself
isn't firing.

--
Hmm...they have the Internet on COMPUTERS now!


"Alok" wrote:

Hi,
I do not see any call to disable_sort in Workbook_Open? If the call to
disable_sort with the True parameter is supposed to turn off the Sort option
then your Workbook_Open event should include that

Private Sub Workbook_Open()

Disable_Sort True
MsgBox "Workbook_Open"

End Sub


"MDW" wrote:

I'm trying to write code that will disable the "Sort" menu option when I open
a specific workbook, and enable it again when the workbook is closed. The
actual code that does that is written, but when I place references to it in
the Workbook_Open sub, it is not called.

Just to test, here is the code I put in:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call disable_sort(True)
MsgBox "Workbook_BeforeClose"

End Sub

Private Sub Workbook_Open()

MsgBox "Workbook_Open"

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'Call disable_sort(False)

MsgBox "Workbook_SheetActivate"

End Sub

When I open the file, nothing at all happens. When I move to a different
sheet, the message box for SheetActivate pops up. When I close the file, the
"Workbook_Close" message box appears.

So what's the deal with Workbook_Open? </Seinfeld
--
Hmm...they have the Internet on COMPUTERS now!