Hi folks,
migrating from Excel 2000 to 2003, I realize that
the VBA-code may have changed in some parts.

The routine below, called when workbook
opens - quite helpful at times when a bit of
programming is done - in 2003 produces
an error:

Sub OpenMainWindow()
' On Error Resume Next
With Application.VBE.MainWindow
.Visible = True
.SetFocus
End With
End Sub

Is there any known workaround available?
Thanks in advance for any hint.

Best Regards
Peter Ostermann

Hi Peter

Does it actually error out on a particular line in the sub you
posted? I ask because it causes no errors on my machine (xl2003 and
XP SP2). How are you calling that sub on opening of the workbook? Is
it a line in the WorkBook_Open event such as:

Private Sub Workbook_Open()
OpenMainWindow
End Sub

Best regards

Richard

On 27 Jan, 11:18, "Peter Ostermann"
wrote:
Hi folks,
migrating from Excel 2000 to 2003, I realize that
the VBA-code may have changed in some parts.

The routine below, called when workbook
opens - quite helpful at times when a bit of
programming is done - in 2003 produces
an error:

Sub OpenMainWindow()
' On Error Resume Next
With Application.VBE.MainWindow
.Visible = True
.SetFocus
End With
End Sub

Is there any known workaround available?
Thanks in advance for any hint.

Best Regards
Peter Ostermann

In one of my workbooks, I include a dummy sub called demo:

Sub demo()

End Sub

In ThisWorkbook code, I include:


Private Sub Workbook_Open()
Application.Goto "demo"
End Sub

This is enough to open the VBE and give it focus.
--
Gary's Student
gsnu200702


"Peter Ostermann" wrote:

Hi folks,
migrating from Excel 2000 to 2003, I realize that
the VBA-code may have changed in some parts.

The routine below, called when workbook
opens - quite helpful at times when a bit of
programming is done - in 2003 produces
an error:

Sub OpenMainWindow()
' On Error Resume Next
With Application.VBE.MainWindow
.Visible = True
.SetFocus
End With
End Sub

Is there any known workaround available?
Thanks in advance for any hint.

Best Regards
Peter Ostermann

Put the same code in the workbook open macro

Private Sub Workbook_Open()
On Error Resume Next
With Application.VBE.MainWindow
.Visible = True
.SetFocus
End With

End Sub


"Peter Ostermann" wrote:

Hi folks,
migrating from Excel 2000 to 2003, I realize that
the VBA-code may have changed in some parts.

The routine below, called when workbook
opens - quite helpful at times when a bit of
programming is done - in 2003 produces
an error:

Sub OpenMainWindow()
' On Error Resume Next
With Application.VBE.MainWindow
.Visible = True
.SetFocus
End With
End Sub

Is there any known workaround available?
Thanks in advance for any hint.

Best Regards
Peter Ostermann

Gotcha!

Hi fellows,

thanks for your hints.
In the meantime I found the solution which
I like to share with you.

Since I have the German edition, my translation
may be wrong, but I will try:

tools- macros - security - registertab: "trustable publishers"
There just hook the rectangle: trust access to visual basic project

Best Regards
Peter Ostermann


The routine below, called when workbook
opens - quite helpful at times when a bit of
programming is done - in 2003 produces
an error:

Sub OpenMainWindow()
' On Error Resume Next
With Application.VBE.MainWindow
.Visible = True
.SetFocus
End With
End Sub

Is there any known workaround available?
Thanks in advance for any hint.

Best Regards
Peter Ostermann