Opening new session of Excel

[tiredofit]

I use the following code to force Excel to open a new session every time it's run:

Sub Workbook_Open()

Dim oXL As Excel.Application

If Workbooks.Count > 1 Then
    
    Set oXL = CreateObject("Excel.Application")
    oXL.Visible = True
    oXL.Workbooks.Open ThisWorkbook.FullName
    AppActivate oXL.Caption
    ThisWorkbook.Close False
   
End If

End Sub

Why is it when I open my workbook, it's Read-Only, then after about 5 secs, a message pops up stating the file is now available for editing?

Thanks

 

[Norie]

Why do you have code in a workbook that opens that workbook again in a new instance of Excel?

 

[tiredofit]

I got the code from here (near the bottom of the page):

Open a New Instance of Excel

though I've amended it slightly, omitting the standard module.

 

[Norie]

What are you trying to do with the code that you can't already do within the instance of Excel the workbook is originally opened?

 

[tiredofit]

Scenario 1:

Suppose I turn on my PC, then open my program via Windows Explorer (WE). Obviously Excel opens, call that session 1.

If I go to WE and open another Excel file, I want that file to be opened in another session of Excel. (Any subsequent Excel files should also be opened in sessions 2 or later, not too bothered, as long as it's not in session 1).

The above can be achieved by setting:

Application.IgnoreRemoteRequest = False

in my program.

Scenario 2:

A session of Excel is already open.

Opening my program via WE, I WANT it to open in session 2. Opening another subsequent Excel file, I want that to open in session 3, etc.

Scenario 2 cannot totally be achieved using IgnoreRemoteRequest. All IgnoreRemoteRequest does is force subsequent Excel files to be opened in a separate session of Excel but it does NOT open my program in a separate session of Excel, IF a session is already open.

 

[Jaafar Tribak]

Hey tiredofit,

Take a look at post#2 in this thread Don't allow another workbook to open in this instance?

I believe the code may need some tweaking to consider the scenario where there is one or more addins installed/loaded or a Personal workbook but give it a try and see if it works for you.

 

[tiredofit]

Thanks for replying!