Macro to unprotect workbook

[Mike]

Hi

I have the following macros coded to protect and unprotect a workbook I'm
working on. However, when I try to unprotect the workbook using
UnprotectAllSheets(), it keeps failing, particularly with reference to the
part ".Cells.FormulaHidden = False". This had worked fine for a while, but
now that other macros have been put into the workbook, it now seems to fail.

Has anybody any thoughts on what might be causing this? Thanks in advance
for any help.

Mike


Sub UnprotectAllSheets()

Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
With Sheets(n)
.Unprotect Password:="password"
.Cells.FormulaHidden = False
End With
Next n
Application.ScreenUpdating = True

End Sub


Sub ProtectAllSheets()

Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Protect Password:="password"

Next n
Application.ScreenUpdating = True

End Sub


Sub HideFormulaCode()

Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
With Sheets(n)
.Cells.FormulaHidden = True
.Protect Password:="password"

End With
Next n
Application.ScreenUpdating = True

End Sub

 

[Ron de Bruin]

Hi Mike

Do you have a Chart sheet in the workbook??

 

[Mike]

Yes - is that a problem now?

Mike

Hi Mike

Do you have a Chart sheet in the workbook??

 

[Ron de Bruin]

Yes

You use sheets in your loop
There are no cells in a chart sheet that's why your code blow.

Change sheets to worksheets in the code(2*) and it will work for all the worksheets

 

[Mike]

That now works fine.

Cheers for the help - I was sure that it was something quick and easy to
correct.

Mike

 

[Tom Ogilvy]

Do you have merged cells on any of the sheets. Just a guess, but that can
sometimes interfere when you are changing properties.

 

[Mike]

That now works fine.

Cheers for the help - I was sure that it was something quick and easy to
correct.

Mike

 

[Mike]

cheers

Yes

You use sheets in your loop
There are no cells in a chart sheet that's why your code blow.

Change sheets to worksheets in the code(2*) and it will work for all the worksheets

 

[Ron de Bruin]

You are welcome