Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi,
I have a little code issue that is likely quite easy for someone experienced in VBA. I have written this code: Private Sub Workbook_Open() Workbooks.Open ("document link here") 'Application.ActiveWorkbook.Visible=False This is the bad line! Application.ActiveWorkbook.Close End Sub Basically, upon opening one workbook, I open another, as well and this is working fine. However, I do not want the second workbook to show at all during this process (note the commented out code). This commented code doesn't work but is likely close. Any ideas on the correct syntax for this line? I have tried a few different ways to no avail. Your help is appreciated, -- Michael J. Nowak Texas City, TX |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Not sure what you are up to but you can give this a try. It is the equivalent
of Window - Hide. Private Sub Workbook_Open() Workbooks.Open ("document link here") ActiveWindow.Visible=False Application.ActiveWorkbook.Close End Sub -- HTH... Jim Thomlinson "Mike" wrote: Hi, I have a little code issue that is likely quite easy for someone experienced in VBA. I have written this code: Private Sub Workbook_Open() Workbooks.Open ("document link here") 'Application.ActiveWorkbook.Visible=False This is the bad line! Application.ActiveWorkbook.Close End Sub Basically, upon opening one workbook, I open another, as well and this is working fine. However, I do not want the second workbook to show at all during this process (note the commented out code). This commented code doesn't work but is likely close. Any ideas on the correct syntax for this line? I have tried a few different ways to no avail. Your help is appreciated, -- Michael J. Nowak Texas City, TX |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Mike,
Try this: Private Sub Workbook_Open() Application.ScreenUpdating = False Workbooks.Open "document link here" ActiveWindow.Visible = False Application.ScreenUpdating = True End Sub HTH, Bernie MS Excel MVP "Mike" .(donotspam) wrote in message ... Hi, I have a little code issue that is likely quite easy for someone experienced in VBA. I have written this code: Private Sub Workbook_Open() Workbooks.Open ("document link here") 'Application.ActiveWorkbook.Visible=False This is the bad line! Application.ActiveWorkbook.Close End Sub Basically, upon opening one workbook, I open another, as well and this is working fine. However, I do not want the second workbook to show at all during this process (note the commented out code). This commented code doesn't work but is likely close. Any ideas on the correct syntax for this line? I have tried a few different ways to no avail. Your help is appreciated, -- Michael J. Nowak Texas City, TX |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi Bernie,
Thanks for the reply but I am getting a error "object variable with block variable not set" on the "ActiveWindow.Visible = False" line. Any ideas on what I am missing? -- Michael J. Nowak Energy Systems/Dow Chemical Texas City, TX "Bernie Deitrick" wrote: Mike, Try this: Private Sub Workbook_Open() Application.ScreenUpdating = False Workbooks.Open "document link here" ActiveWindow.Visible = False Application.ScreenUpdating = True End Sub HTH, Bernie MS Excel MVP "Mike" .(donotspam) wrote in message ... Hi, I have a little code issue that is likely quite easy for someone experienced in VBA. I have written this code: Private Sub Workbook_Open() Workbooks.Open ("document link here") 'Application.ActiveWorkbook.Visible=False This is the bad line! Application.ActiveWorkbook.Close End Sub Basically, upon opening one workbook, I open another, as well and this is working fine. However, I do not want the second workbook to show at all during this process (note the commented out code). This commented code doesn't work but is likely close. Any ideas on the correct syntax for this line? I have tried a few different ways to no avail. Your help is appreciated, -- Michael J. Nowak Texas City, TX |
#5
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Mike, Everything works in my testing. What is your exact code? Does the workbook open line work? Is the workbook that is opened already hidden? (You can save workbooks as hidden already....) HTH, Bernie MS Excel MVP "Mike" .(donotspam) wrote in message ... Hi Bernie, Thanks for the reply but I am getting a error "object variable with block variable not set" on the "ActiveWindow.Visible = False" line. Any ideas on what I am missing? -- Michael J. Nowak Energy Systems/Dow Chemical Texas City, TX "Bernie Deitrick" wrote: Mike, Try this: Private Sub Workbook_Open() Application.ScreenUpdating = False Workbooks.Open "document link here" ActiveWindow.Visible = False Application.ScreenUpdating = True End Sub HTH, Bernie MS Excel MVP "Mike" .(donotspam) wrote in message ... Hi, I have a little code issue that is likely quite easy for someone experienced in VBA. I have written this code: Private Sub Workbook_Open() Workbooks.Open ("document link here") 'Application.ActiveWorkbook.Visible=False This is the bad line! Application.ActiveWorkbook.Close End Sub Basically, upon opening one workbook, I open another, as well and this is working fine. However, I do not want the second workbook to show at all during this process (note the commented out code). This commented code doesn't work but is likely close. Any ideas on the correct syntax for this line? I have tried a few different ways to no avail. Your help is appreciated, -- Michael J. Nowak Texas City, TX |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
showing links when opening | Excel Discussion (Misc queries) | |||
showing picture upon opening file | Excel Discussion (Misc queries) | |||
opening a worksheet without showing excel components | Excel Worksheet Functions | |||
run the macros without opening or showing the excel sheet | Excel Programming | |||
run the macros without opening or showing the excel sheet | Excel Programming |