Macro marca error y no funciona

[guerodiaz]

Hola amigos del foro tengo la siguiente macro 

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  If IsNumeric(Target) And Target.Address = "$AM$4" Then
     Select Case Target.Value
     Case 1, 2, 3, 4, 5, 6, 7
    ActiveSheet.Unprotect
    Range("h11").Select
    Target.Locked = True
    Target.FormulaHidden = True
    ActiveSheet.Protect
    
     Case 9
     ActiveSheet.Unprotect
     Range("h11").Select
    Target.Locked = False
    Target.FormulaHidden = False
    ActiveSheet.Protect
      End Select
   End If
End Sub
 

pero al seleccionar cualquiera de los case me marca el siguiente error:

No se puede asignar la propiedad locked de la clase Range

alguna idea de por que esta pasando el error ya la busque de muchas manera y no encuentro la salida

 

saludos

[guerodiaz]

ya supe que era en lugar de  Target.Locked = False es  Selection.Locked = False

 

saludos y gracias

quedaría resuelto 

no se como moverlo a temas resueltos

[Antoni]

No es necesario seleccionar:

Range("h11").Locked = False

Y no te preocupes por dar el tema como solucionado, ya lo hará algún moderador.

[guerodiaz]

En 9/4/2019 at 11:43 , Antoni dijo:

No es necesario seleccionar:

Range("h11").Locked = False

Y no te preocupes por dar el tema como solucionado, ya lo hará algún moderador.

gracias a ti por comentar

saludos desde Aguascalientes, México