Close form automatically upon opening workbook

  • Thread starter Thread starter Ixtreme
  • Start date Start date
I

Ixtreme

Hi,

I have a form that is being displayed automatically upon opening the
workbook (I have added the following code in the workbook open event:

Private Sub Workbook_Open()
FrmMain.Show
End Sub

However, I have another workbook that imports information from this
(and many copies of this) workbook). It automatically opens the
workbook, however it halts on the userform that is being displayed. Is
there a possibility that the form is closed with VBA code?

Currently I have:

Path = ActiveWorkbook.Path & "\IMPORT\"
ChDir Path
f = Dir(Path & "*.xls")
While f <> ""

Workbooks.Open f, , , , "PASSWORD"
Unload FrmMain
Sheets("Overview").Activate

The code stops on Unload FrmMain. Is there another way to bypass this?

Mark
 
Mark,

To open a file without running the auto_open macro or the open event, use

Application.EnableEvents = False
Workbooks.Open f, , , , "PASSWORD"
Application.EnableEvents = True

HTH,
Bernie
MS Excel MVP
 
Mark,

To open a file without running the auto_open macro or the open event, use

Application.EnableEvents = False
Workbooks.Open f, , , , "PASSWORD"
Application.EnableEvents = True

HTH,
Bernie
MS Excel MVP














- Tekst uit oorspronkelijk bericht weergeven -
Click to expand...

Thanks Bernie!

That is exactly what I needed. Great!

Kind regards,

Mark
 
Back
Top