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

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

GUS

Selection.NumberFormat = "0.00" should read..

cell.NumberFormat = "0.00"

To prevent losing formatting on Locked cells.

Gord

On Sun, 14 Sep 2003 14:46:06 -0700, Gord Dibben wrote:

GUS

Sub UnLocked_Cells()
Dim cell As Range
For Each cell In Selection
If Not cell.Locked Then
Selection.NumberFormat = "0.00"
cell.Value = "0"
End If
Next cell
End Sub

Gord Dibben Excel MVP XL2002

On Sun, 14 Sep 2003 23:47:19 +0300, "GUS" wrote:

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