Hi All, i use the code below to hide toolbars and command bar. Some of
my users are experiencing loss of functions on the command bar e.g.
"Find", "Replace" and GoTo. Is this a coincidence or can it be the
method ?

Is there a way to get the functions back ?

'------------------------------ Record and hide toolbars
----------------------
Sub HideAllToolbarsStd()
Dim TB As CommandBar
Dim TBNum As Integer
Dim TBSheet As Worksheet
Set TBSheet = Workbooks("Recon_Tool.xls").Worksheets("TBSheet")
Application.ScreenUpdating = False
' clear the sheet
TBSheet.Cells.Clear
'------------- Hide all visable toolbars and store their names in
TBSheet --------------------
TBNum = 0
For Each TB In CommandBars
If TB.Type = msoBarTypeNormal Then
If TB.Visible Then
TBNum = TBNum + 1
TB.Visible = False
TBSheet.Cells(TBNum, 1) = TB.Name
End If
End If
Next TB
Application.ScreenUpdating = True
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFormulaBar = False
addToolbarStd
End Sub



Les Stout

*** Sent via Developersdex http://www.developersdex.com ***