Reviewing Toolbar Reappears

[Duncan314]

Running WinXP, Office 2002.

The Reviewing Toolbar keeps reappearing when I open a spreadsheet.
I kill it by doing View, Toolbars, & unchecking Reviewing, but thi
does not seem to stick.

Anybody have a fix

 

[Don Guillett]

Put in workbook_open event

Application.CommandBars("Reviewing").Enabled = False

or

from
Jim Rech
Excel MVP

Sub KillReviewingCustProps()
Dim x As DocumentProperties
Dim Counter As Integer
Set x = ActiveWorkbook.CustomDocumentProperties
For Counter = x.Count To 1 Step -1
If Left(x.Item(Counter).Name, 1) = "_" Then _
x.Item(Counter).Delete
Next
CommandBars("Reviewing").Visible = False
End Sub

 

[Gord Dibben]

Duncan

A recent posting from Jim Rech addresses this.

Jim post..................

If the workbook is sent as an attachment to Outlook then File, Properties
are automatically added which will make the Reviewing toolbar appear when
the workbook is opened in Excel. I don't know of a way to stop this.

However, once you open the workbook in Excel you can remove these properties
and save the workbook. After that it will no longer cause the reviewing
toolbar to appear. Here's an old message on that:

--------------

The Reviewing toolbar in Excel pops up whenever you open a workbook that has
been emailed from within Excel "for review". There may be other ways to
make this happen too. If you do a File, Properties you'll see the custom
file properties that have been added that triggers this.

You can kill the added file properties manually or run the below macro to do
it. This macro is in my Personal and attached to a toolbar button because I
feel the same way as you about this toolbar.

--
Jim Rech
Excel MVP

Sub KillReviewingCustProps()
Dim x As DocumentProperties
Dim Counter As Integer
Set x = ActiveWorkbook.CustomDocumentProperties
For Counter = x.Count To 1 Step -1
If Left(x.Item(Counter).Name, 1) = "_" Then _
x.Item(Counter).Delete
Next
CommandBars("Reviewing").Visible = False
End Sub

End Jim post.......................


Gord Dibben Excel MVP