Hola:
La siguiente rutina te servirá. Solo te resta establecer cómo le indicarás a la macro cual será el nuevo rango, en la variable 'rgo'
Sub protege()
'establecer nvo rango
rgo = "A4:F4"
'desprotege, elimina rango anterior y vuelve a asignar un nuevo rango
ActiveSheet.Unprotect
ActiveSheet.Protection.AllowEditRanges(1).Delete
ActiveSheet.Protection.AllowEditRanges.Add Title:="Rango1", Range:=Range(rgo)
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Saludos
Elsa
http://es.geocities.com/lacibelesdepunilla/macros