Excel: Permitir usuario modifique rango: AllowEditRanges

[Nuvato]

Buenas necesito hacer una macro la cual al proteger permite dejar modificar cierto rango de celdas...

ActiveSheet.Protection.AllowEditRanges.Add Title:="Rango1", Range:=Range( "A1:F1")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

pero ese rango "A1:F1" es variable, osea la proxima vez necesito que sea "A2:F2", y no he podido crear un macro para modificar ese rango "Rango1".

He intentado eliminar el anterior y crear uno nuevo en el mismo macro, pero no me lo elimina, lo adiciona como "Rango2".

Ojala me haya echo entender....

[David]

Es que estás usando el método Add (que sirve explícitamente para Agregar), para modificar uno ya existente (por ejemplo Rango1) debería ser:

Código vb:

ActiveSheet.Protection.AllowEditRanges("Rango1").Range = "A2:E2"
 

[Nuvato]

ok, probare...

pero han comprobado que cuando uno graba una macro y te vas a:

Herramientas->Proteger->Permitir que los usuarios modifiquen rangos...

y le das modificar a un rango que tengas existente, la grabadora de macro no crea ningun codigo, como si no hubiesemos echo nada...