Matt,

Do the latter, unprotect the worksheet before printing, then protect it
afterwards,

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Matt" wrote in message
...
I have code that changes the cell shading in a worksheet, however, when I
protect the worksheet, I get an error in any code that changes the shading
in cells. I'm not sure if I need to add some code so that it will allow the
changes when protected or if I need to add code to unprotect it then place
protection on it again. Any help would be greatly appreciated. Here is an
example of the code that is causing problems. Thanks. Matt

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "TIME AND LEAVE" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
.Range("A1:P40").Interior.ColorIndex = xlNone
.PrintOut

..Range("A5:B5,C6:P9,O10:O11,M10:M11,K10:K11,I10:I 11,G10:G11,E10:E11,A10:C11,
C12:P12,O16,M16,K16,I16,G16,E16,A16:C16,A17:P33,O3 4:P40,A34:B40").Interior.C
olorIndex = 24
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub