have each workbook open as stand alone??

jinx_uk_98

Board Regular
Joined
Jul 3, 2005
Messages
105
Hi All,

I use this code to impose some restrictions on users using my workbook.

Sub remove_tool()
Dim CommandBar
Application.ScreenUpdating = False
With Application
For Each CommandBar In .CommandBars
CommandBar.Enabled = False
Next
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
With Application.ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = False
.WindowState = xlMaximized
End With

'creates new commandbar
Call AddCommandBar
'creates controls of the new commandbar
Call addnewMenuItem


The only problem is that code imposes itself on any other workbooks the user may already be open.

Is there anyway to have my workbook open in it's own environment almost standalone?

Hope that makes sense.

Kevin

End Sub
 

dtchan

Board Regular
Joined
Aug 8, 2005
Messages
108
Try using this:

Application.IgnoreRemoteRequests = True

This forces excel to open the workbook in a new instance of excel.
 

Forum statistics

Threads
1,078,400
Messages
5,339,991
Members
399,346
Latest member
t0land

Some videos you may like

This Week's Hot Topics

Top