How do I disable the Reviewing Toolbar in Excel?

T

tazdevl

I am so sick of looking at this thing I'm about ready to toss my laptop out
the window. I cannot believe there is not a simple method to keep this from
popping up. I have disabled the option in Outlook, however it still keeps
appearing everytime I open a excel doc, even if I'm the one generating it.

Based on my searches it seems like the only way to take care of this is a
macro which is totally unacceptable.

Did the Excel Product Manager have his head in the ground the day this
feature was discussed?

Based on searches here, the "security" argument doesn't cut it for me BTW.
I can see where it might be useful in some instances, but users should at
least have the option to completely disable the automatic appearance of the
toolbar.
 
D

Darthjade

I have the exact same question for Word. If I want the Reviewing toolbar
opened, I'll open it myself; I don't need the program to do it for me. And
I'M about ready to toss MY desktop out the window, or at least go back to
Word 2000.....
 
G

Graham Mayor

No need for anything so drastic. You need a handful of macros and the
reviewing toolbar will only appear when you ask it to. The following are
taken from my own machine and set the options that Word seems to like to
change for each document that you open. I always start in Print layout View,
if you prefer Normal view, change the Type= lines for the commented out line
in the first of the macros.

If you prefer you can remove any of the options I have set (or add others).
See http://www.gmayor.com/installing_macro.htm if you don't know how to use
the listings.

Sub AutoNew()
ActiveWindow.ActivePane.DisplayRulers = True
ActiveWindow.ActivePane.View.ShowAll = False
With ActiveWindow.View
.Type = wdPrintView
'.Type = wdNormalView
.Zoom.Percentage = 100
.FieldShading = wdFieldShadingWhenSelected
.ShowFieldCodes = False
.DisplayPageBoundaries = True
End With
CommandBars("Reviewing").Visible = False
End Sub

Sub AutoOpen()
ActiveWindow.Caption = ActiveDocument.FullName
ActiveWindow.ActivePane.DisplayRulers = True
ActiveWindow.ActivePane.View.ShowAll = False
With ActiveWindow.View
.Type = wdPrintView
.Zoom.Percentage = 100
.FieldShading = wdFieldShadingWhenSelected
.ShowFieldCodes = False
.DisplayPageBoundaries = True
End With
End Sub

Sub AutoExec()
CommandBars("Reviewing").Visible = False
Application.OnTime _
When:=Now + TimeValue("00:00:01"), Name:="CodesOff"
End Sub

Sub CodesOff()
On Error GoTo oops
ActiveWindow.ActivePane.View.ShowAll = False
oops:
End Sub



--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top