if ActiveSheet.ProtectContents then
ActiveSheet.Protect UserInterfaceOnly:=True
End if
for each cell in range("C4:M102")
if cell.locked = False then
cell.Value = 0
cell.Numberformat = "0.00"
end if
Next

if using xl2002, and the sheet is protected and has a password, you will
need to supply the password as well.

--
Regards,
Tom Ogilvy

GUS wrote in message
...
How can i put with a macro the zero(0.00) value to all cells that are
unprotected .

The range that i am working and it is protected is
c4 to m102
not all cells of course are protected