You can protect a few different things on a worksheet.

Dim wks as worksheet
set wks = activesheet

If wks.ProtectContents _
Or wks.ProtectDrawingObjects _
Or wks.ProtectScenarios Then
msgbox "It's protected"
Else
'do the work to add the conditional formatting
end if



????? wrote:

i want to paint some cells in red if the activesheet is not protected
(conditional formatting)

ather question:
a vba code "if the activesheet is unprotected then...."

thank you
rozent

--

Dave Peterson