Excel 2002 - 2 problems

[Alan Hutchins]

1. Every so often, when I open a workbook I have received
from a colleague, Excel automatically displays the
Reviewing toolbar.

How can I prevent this toolbar from making it's unwanted
appearance (permanently please) ?

2. I had a problem with Excel yesterday, when it refused
to open. It said that it had encountered a problem with
my Personal.xls file, and that it recommended disabling
it - I accepted this option, and it re-started ok.

I then opened Personal.xls (it was fine - no problems,
and I can compile it ok as well). The problem is that it
does not appear when I now open Excel (it is in my
XlStart directory). Can anyone suggest what I need to do
to include it, so that it is always present ?

 

[Norman Jones]

Hi Alan,

I assume that you are using xl 2003.

For your second problem, in Excel try:

Help | About Microsoft Excel | Select Disabled Items button |
Select Personal.xls | Re-Enable

For your first problem, Jim Rech recently posted the following:
--------------------------------->>>>>>>> Start
From: Jim Rech ([email protected])
Subject: Re: Delete toolbar
View: Complete Thread (2 articles)
Original Format
Newsgroups: microsoft.public.excel.misc
Date: 2004-09-29 07:44:34 PST


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.

If the toolbar pops up every time you start Excel then perhaps there is a
workbook in your XLSTART folder that is the cause.

--
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