have each workbook open as stand alone?

[jinx_uk_98]

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