Hello All,
I have a macro here that hide all of my command bars on workbook open. ( a similar macro restores them on workbook close). However, this only works flawlessly on my computer. If someone else opens the workbook with different commandbar settings, it of course does not hide all their's, which is the desired result so that they can not mess around with the workbook and are forced to use the custom buttons on the workbook.
Is there a command to temporarily hide all commandbars and menus from any user that opens this workbook, regardless of their individual settings?
here is the marco the runs on workbook open:
I have a macro here that hide all of my command bars on workbook open. ( a similar macro restores them on workbook close). However, this only works flawlessly on my computer. If someone else opens the workbook with different commandbar settings, it of course does not hide all their's, which is the desired result so that they can not mess around with the workbook and are forced to use the custom buttons on the workbook.
Is there a command to temporarily hide all commandbars and menus from any user that opens this workbook, regardless of their individual settings?
here is the marco the runs on workbook open:
Code:
Sub RemoveToolbars()
On Error Resume Next
Worksheets("QC").Activate
With Application
.CommandBars("Full Screen").Visible = False
.CommandBars("Formatting").Visible = False
.CommandBars("Standard").Visible = False
.CommandBars("Worksheet Menu Bar").Enabled = False
.CommandBars("Worksheet Menu Bar").Visible = False
.CommandBars("Formulabar").Visible = False
.CommandBars("Formulabar").Enabled = False
.CommandBars("ControlToolbox") = False
.DisplayScrollBars = False
.DisplayStatusBar = True
.DisplayFullScreen = False
.Height = "470"
.Width = "573"
.EnableResize = False
End With
End Sub