problema con proteger hoja

hola, Jordi !

Quiero proteger una hoja en la que dos celdas esten desprotegidas.
Yo hago lo siguiente, seleccionar toda la hoja y marcar las dos celdas que quiero que esten desprotegidas.
Seguidamente voy a herramientas/proteger hoja.
No se que hago mal Tengo excel 2000

(hasta donde se) todas las celdas de una hoja (nueva/limpia/nunca antes protegida/...) estan bloqueadas (por omision)
el siguiente ejemplo asume que es la primera vez que se va a proteger la hoja activa (deja libres A1 y B5 y protege SIN password)
(obviamente, si ya estaba protegida, primero debieras quitar la proteccion)

Sub Dos_Libres()
With ActiveSheet
.Cells.Locked = True ' bloquear todas (por si las dudas) '
.Range("a1,b5").Locked = False ' libera A1 y B5 solamente '
.Protect ' protege la hoja SIN password '
End With
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.