have each workbook open as stand alone?
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 -- jinx_uk_98 ------------------------------------------------------------------------ jinx_uk_98's Profile: http://www.excelforum.com/member.php...o&userid=28878 View this thread: http://www.excelforum.com/showthread...hreadid=487443 |
All times are GMT +1. The time now is 10:53 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com