How To Automatically Open New Workbook After 1st Workbook Open 4 Seconds

I have a presentation that I open from a short-cut. After the "Welcome Page" is opened, I want to open a second workbook in a new instance of Excel after 4 seconds.

I think that I can open the new instance of excel, but I don't know how to activate the macro after 4 seconds.

I'm sure there is a function someplace for this that can be used in a macro.

Then, after the second Workbook is opened, I want the Welcome Page "Workbook" closed, leaving the second Worbook open.

hello.

put this in Thisworkbook

Private Sub Workbook_Open()
'Run the procudure in 4 sec from now
Application.OnTime Now + TimeValue("00:00:04"), "Wbopen"
End Sub

and this in a module

Sub Wbopen()
Dim wb As Workbook
    Application.ScreenUpdating = False ' turn off the screen updating
    Set wb = Workbooks.Open("F:\test.xlsm") 'CHANGE THIS TO YOUR FILE
    ThisWorkbook.Close False: 'Close this workbook discarding changes
    Application.ScreenUpdating = True ' Now let the user see what has happened.. This may happed automatically??
End Sub

I hope this is what you wanted.

If you only want to create a new workbook and not open one.

Sub Wbopen()

    Application.ScreenUpdating = False ' turn off the screen updating
    Workbooks.Add 'create new workbook.
    ThisWorkbook.Close False: 'Close this workbook discarding changes
    Application.ScreenUpdating = True ' Now let the user see what has happened.. This may happed automatically??
End Sub

Cheers

Good Morning D_Rennie . . .

I can make this work by putting both macros into the module of the workbook first opened from the short-cut. Problem being that it won't run automatically. If I go to the module and run it, it works fine.

I don't understand what you mean by putting the macro named Private Sub Workbook_Open() into ThisWorkbook. Can you tell me where I should put it instead of the module?

Hello.

Bring up the VB editor Alt F11
bring up the project explorer ctrl R
in the treeview folder microst excel objects click ThisWorkbook.
place the workbook open sub in there.

have a good day.

Hi D_Rennie . . .

Works perfect. I've never used the This Workbook feature and I certainly will learn the various functions. I know of another one right now.

Many Many Thanks

I thought everything was perfect, but when I checked the 4 seconds (which I estimated) I now see that it should be 6 seconds.

How can I stop the macro before it opens the next workbook and closes the Welcome sheet which has the macros. I need to change the timing.

Ok The reason you are having trouble is the macro security is set to allow the macros for these or all files.

The simplest way to ovecome this is to open excel in safemode.

close ALL excell workbooks.
click the startbutton
click run.. Type excel.
HOLD down the ctrl key and then hit ok in the run dialog box
excel will now start in safemode
open the workbook that you want to change
save the workbook
close all workbooks.
Magic.

This is quite a good way of previewing the code of a workbook when you have downloaded it off the net. it stops the code from running and then cheek to make sure it wont crash everythink.

hope this helps

ohh if this does not work you can manually set the security to prompt the user to enable the macros. set this change the workbook. put setting back to normal.

cheers

Sorry -

Followed your instructions exactly. When I open the file that has the timed macro in it, it still runs and closes itself and opens the next workbook just the way it should. So, I can't unprotect it to change the macro.

Help please

If you do exaclly that it should work.

another way
for xl 2007
open excel
click the office buttion (the round one up the top left)
click trust center
click trust center settings
click macro settings
set to disable all macros
ok to close the trust settings

change the code

do the top in again and set back to previous settings.

..
the other way is much simpler. though it will only work with opening the application
not a workbook.

try that again opening excel from the windows start menue,

if you still have trouble, if you like upload the workbook and ill change it for you.

I'm using Excel 2002
XP operating system

I know I am following your instructions correctly.

I can't use 2007 as I use 2002

Any more ideas ???

I'd like to send you the file, but I can not send you the password. Sorry.

the only way is to open the workbook without running the macros.

if you put this code into a new workbooks module and run it. it will allow you to open the file withough running the workbook open event.

Sub openxlfile_MacroOff()
Dim var_File As Variant
'select workbook to open
var_File = Application.GetOpenFilename _
("All Files(*.*),*.*", Title:="Please select the Files you wish to open as macro disabled.")
'disable the macro open events for file
Application.EnableEvents = False
'open file
Workbooks.Open (var_File)
Application.EnableEvents = True
End Sub

hope this helps

Looks Excellant

I just had a call and I have to go, but I will test it tomorrow morning.