Small runtime error - advice required

[Dean]

Hi, I am having a small issue with this piece of code. It seems to run
ok with the sheet unprotected however I need it to run with the sheet
protected.

This appears to be the offending line of code:

Rows(cell.Row).EntireRow.Hidden = True

Would appreciate any advice to correct.

Many Thanks,
Dean


Sub Macro4()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.DisplayPageBreaks = False
MsgBox "Labels Spooled to Printer" & Chr(13) & "Click OK to Proceed" &
Chr(10)
LR = Range("B991").End(xlUp).Row ' Determine the last used row
For Each cell In Range("B1:B" & CStr(LR))
If cell.Value = 0 Then
Rows(cell.Row).EntireRow.Hidden = True
End If
Next cell
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.Run Macro:="Macro6"
End Sub

 

[Damon Longworth]

Have a look at the Protect Method in help. Here is an excerpt:

-----------------------------------
UserInterfaceOnly Optional Variant. True to protect the user interface, but
not macros. If this argument is omitted, protection applies both to macros
and to the user interface.

If you apply the Protect method with the UserInterfaceOnly argument set to
True to a worksheet and then save the workbook, the entire worksheet (not
just the interface) will be fully protected when you reopen the workbook. To
re-enable the user interface protection after the workbook is opened, you
must again apply the Protect method with UserInterfaceOnly set to True.
--------------------------------

You must set this property each time the workbook is opened.

--
Damon Longworth

2006 UK Excel User Conference
July 19/21st, 2006
University of Westminster - Marylebone Campus
London, England
Early Bird Registration Now Open!!
http://www.exceluserconference.com/2006UKEUC.html

2006 East Coast Excel User Conference
April 19/21st, 2006
Holiday Inn, Boardwalk
Atlantic City, New Jersey
It's not too late to register!
http://www.exceluserconference.com/2006ECEUC.html


Hi, I am having a small issue with this piece of code. It seems to run
ok with the sheet unprotected however I need it to run with the sheet
protected.

This appears to be the offending line of code:

Rows(cell.Row).EntireRow.Hidden = True

Would appreciate any advice to correct.

Many Thanks,
Dean


Sub Macro4()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.DisplayPageBreaks = False
MsgBox "Labels Spooled to Printer" & Chr(13) & "Click OK to Proceed" &
Chr(10)
LR = Range("B991").End(xlUp).Row ' Determine the last used row
For Each cell In Range("B1:B" & CStr(LR))
If cell.Value = 0 Then
Rows(cell.Row).EntireRow.Hidden = True
End If
Next cell
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.Run Macro:="Macro6"
End Sub