Al intentar modificar una celda escrita pida clave
Pregunta para DANTE AMOR
Tengo una instrucción que:
Al escribir en la 3 columna se ponen fecha y hora en las dos primeras columnas
Después de escritas las filas anteriores se bloquean, pero ahora necesito que:
Al intentar borrar cualquiera de las filas ya escritas, pida una clave.
Esto es con lo que vosotros me habéis ayudado
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
Range("A" & Target.Row) = Date
Range("B" & Target.Row) = Format(Now, "hh:mm")
End If
If Not Application.Intersect(Target, Range("A1:c500")) Is Nothing Then
Application.ScreenUpdating = False
Set Rango = Range("A1:c500")
ActiveSheet.Unprotect
For Each celda In Rango.Cells
celda.Select
If celda = "" Then
Selection.Locked = False
Selection.FormulaHidden = False
Else
Selection.Locked = True
Selection.FormulaHidden = False
End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = False
End If
End Sub