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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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