Macro para bloquear una celda despues de haber sido modificada

[Yuliana Elizalde]

Hola ben día:

Me podria ayuar a localiza el error en la siguinte sintaxis ya que por mas que la intent buscar no la encuentro, lo que esta en negrito es dondeme aparece el error

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column < 6 Then

Cells(Target.Row, 6).Value = Now

End If

End Sub

-----------------------------------------------------------------------------

Private Sub Workbook_Open()

Worksheets("09-00 AM").Protect "aBc", 1, 1, 1, 1

End Sub

------------------------------------------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then ActiveCell.Select

With ActiveCell

If .Locked Then Exit Sub

If Not IsEmpty(ActiveCell) And Not .Locked Then .Locked = True

End With

End Sub

Estaria eternamente agradecida

[Yuliana Elizalde]

este es el archivo...

Check-List.zip

Check-List.zip

[Martin Urieta]

Prueba con esta macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A1:Z1000")) Is Nothing Then

Exit Sub

Else

If Target.Value > "" Then

Target.Select

ActiveSheet.Unprotect

Selection.Locked = True

End If

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

ActiveSheet.EnableSelection = xlUnlockedCells

End If

End Sub[/CODE]