unable to edit header/footer

[SirGTek]

I have an Excel spreadsheet that was created in Office 2003 being edited in Excel 2010. However, even after unprotecting the worksheet I am unable to edit the footers.

On another worksheet in the same file, I can edit the footer just fine.

Can someone give me an idea why this might be?

 

[xlhelp]

Are there any macros associated with the worksheet?

Canadian eh! Check out the new social forum Tek-Tips in Canada.
I should live a long time - I eat a lot of preservatives.

 

[SirGTek]

Yes, it appears there is. However, the only function of the macro is to print multiple worksheets.

I didn't see anything about footer information being modified dynamically or anything like that.

 

[SkipVought]

Please post the code for your macro(s).

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[SkipVought]

...and how is this macro called in order to run?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[SirGTek]

Below is the code for the macro. I'm honestly unsure of how it is called. I see no buttons or activation method. The only thing I can think of is that it is called automatically when the document is printed - that is if it is even used.

Sub printing()
'
' printing Macro
' Macro recorded 2/7/2003 by Frederic Decaix
'

'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("index").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("drain").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("DEMIN Instructions").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("filter").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("demin").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1
    Sheets("peroxide").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("APV control").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("APV readings").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Post APV adj").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("ammonium sulfate").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("UF log").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("TT comments").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("TT sanitation").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Special Instructions").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("chemetators").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("dryer").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("bison finisher").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("sterilizer").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Sanitation Finisher-Sterilizer").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Sanitation Chems").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("dryer comments").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("moisture dryer").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("product off dryer 1st ext").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("product off dryer 2nd 3rd ext").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("grease plant").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("decanter").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("grease plant comments").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("DAF").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("instructions").Select
    Range("A1:K1").Select
End Sub
[code]

 

[Gavona]

even after unprotecting the worksheet I am unable to edit the footers.

1. How are you trying to change the footer?
2. What happens? - Are you unable to select an option or do you appear to be able to make changes but then they don't appear in the printed output?

3. There could be other code in the workbook not in a module. To show the code: In the VBE environment, Project Explorer double-click on ThisWorkbook also on the sheet that is active when you initiate the print.
Alternatively alter security permissions so you can open the file with macros disabled.
4. Are any Custom Views set up in Views, CustomView?

Gavin

 

[SirGTek]

PS - I found how the code is executed. There is a big red "print" button on one of the worksheeets.

There are a number of other modules and a couple classes, but when I look at them they are all blank. Is it possible the rest of the document is still protected, making the code invisible to me?

Also, there are no custom views setup for this file.

Here is the process I go through to change the footer...

Open the file
click review
click unprotect sheet
enter the password
:: the thing I find odd at this stage, is that the
:: spreadsheet still says <name> [Read-Only] but I'm
:: not sure if that is normal after unprotecting only
:: one worksheet or not.

Click insert
Header and Footer
scroll to the footer
(try to) edit the footer

The footer is visible, I simply cannot select it.

 

[Gavona]

Protection is to do with whether you can change things while the workbook is in memory.
Read Only is about whether you can save the changes you have made.
So a totally unprotected workbook can be changed but the only way to save the changes is to save it with a different name.

You cannot make some changes to a shared workbook. Changing headers and footers may be one of these. As I haven't got Excel 2010 I think I should leave that for you to investigate via help or a search engine. There may be other restrictions I am unaware of if you are using sharepoint etc.

You could always save with a different name to your local drive. Open from there and see if the behaviour remains. That would effectively eliminate a few possibilities.

Hope this helps a little.

Regards,

I don't have xl2010

Gavin